C.....TESTS FLUID SUBPROGRAM AND OXYGEN TABLES.

      INTEGER ENTRY,ERROR
      LOGICAL VAPOR,REF,DONE
      DIMENSION PROPS(6)
      COMMON /FLUIDC/ GAMMA,WL,WG,DL,DG,SL,SG,HL,HG
      EQUIVALENCE (Z, PROPS(1)), (S, PROPS(2)), (H, PROPS(3)),
     *            (CV,PROPS(4)), (CP,PROPS(5)), (A, PROPS(6))

C     FOR TEMPERATURE IN K, PRESSURE IN ATMOSPHERES, REDUCED DENSITY,
C     ENTROPY AS S/R, ENTHALPY AS H/(R*T0), SPECIFIC HEATS AS CV/R AND
C     CP/R, AND REDUCED SONIC VELOCITY.  (THE VALUES OF SREF AND HREF
C     HERE GIVE AGREEMENT BETWEEN FLUID AND NBS 564 AT 273 K, 1 ATM.)

      DATA T0,P0,TCONV,PCONV / 0.0, 0.0, 1.0, 9.8692 /,
     *     DCONV,SCONV,HCONV,CCONV / 699.8, 3.8487, 0.01409, 3.8487 /,
     *     ACONV,SREF,HREF,NP / 0.10045, 1.180, 408.14, 6 /

      NAMELIST /INPUT/ TEMP,PRES,DENS,ENT,ENTH,ENTRY,REF,NP,T0,P0,
     *                 TCONV,PCONV,DCONV,SCONV,HCONV,CCONV,ACONV,
     *                 SREF,HREF

C.....MAIN PROGRAM FLOW.
      CALL O2
20001 READ (5,INPUT,END=20003)
      DONE=.FALSE.
      GO TO 20004
20003 DONE=.TRUE.
20004 IF (DONE) GO TO 20002
      IF (.NOT.(ENTRY.GE.1 .AND. ENTRY.LE.5)) GO TO 20005
      GO TO (20007,20008,20009,20010,20011), ENTRY
20007 ASSIGN 20013 TO NPR003
      GO TO 30003
20013 GO TO 20012
20008 ASSIGN 20014 TO NPR004
      GO TO 30004
20014 GO TO 20012
20009 ASSIGN 20015 TO NPR005
      GO TO 30005
20015 GO TO 20012
20010 ASSIGN 20016 TO NPR006
      GO TO 30006
20016 GO TO 20012
20011 ASSIGN 20017 TO NPR007
      GO TO 30007
20017 CONTINUE
20012 IF (.NOT.(VAPOR)) GO TO 20018
      WRITE (6,1) TEMP,PRES,DENS,ENT,ENTH
      GO TO 20019
20018 WRITE (6,2) TEMP,PRES,DENS,ENT,ENTH,CV,CP,A
      IF (NP.GT.6)  WRITE (6,3) (PROPS(I),I=7,NP)
20019 GO TO 20006
20005 IF (.NOT.(VAPOR)) GO TO 20020
      IF (.NOT.(ENTRY.EQ.6)) GO TO 20022
      ASSIGN 20024 TO NPR008
      GO TO 30008
20024 GO TO 20023
20022 IF (.NOT.(ENTRY.EQ.7)) GO TO 20025
      ASSIGN 20027 TO NPR009
      GO TO 30009
20027 GO TO 20026
20025 WRITE (6,4)
20026 CONTINUE
20023 GO TO 20021
20020 WRITE (6,4)
20021 CONTINUE
20006 GO TO 20001
20002 STOP




C.....PROCEDURES.

C     PROCEDURE (TEMP AND DENS INPUT)
30003 TSAVE=TEMP
      DSAVE=DENS
      ASSIGN 20028 TO NPR010
      GO TO 30010
20028 TEMP=TSAVE
      DENS=DSAVE
      GO TO NPR003, (20013)

C     PROCEDURE (PRES AND DENS INPUT)
30004 PSAVE=PRES
      DSAVE=DENS
      ASSIGN 20029 TO NPR010
      GO TO 30010
20029 PRES=PSAVE
      DENS=DSAVE
      GO TO NPR004, (20014)

C     PROCEDURE (TEMP AND PRES INPUT)
30005 TSAVE=TEMP
      PSAVE=PRES
      ASSIGN 20030 TO NPR010
      GO TO 30010
20030 TEMP=TSAVE
      PRES=PSAVE
      GO TO NPR005, (20015)

C     PROCEDURE (PRES AND ENT INPUT)
30006 PSAVE=PRES
      SSAVE=ENT
      ASSIGN 20031 TO NPR010
      GO TO 30010
20031 PRES=PSAVE
      ENT=SSAVE
      GO TO NPR006, (20016)

C     PROCEDURE (PRES AND ENTH INPUT)
30007 PSAVE=PRES
      HSAVE=ENTH
      ASSIGN 20032 TO NPR010
      GO TO 30010
20032 PRES=PSAVE
      ENTH=HSAVE
      GO TO NPR007, (20017)

C     PROCEDURE (GET ALL PROPERTIES VIA FLUID)
30010 T=(TEMP+T0)/TCONV
      P=(PRES+P0)/PCONV
      D=DENS/DCONV
      S=ENT/SCONV + SREF
      H=ENTH/HCONV + HREF
      CALL FLUID (T,P,D,PROPS,NP,ENTRY,VAPOR,ERROR)
      IF (ERROR.NE.0) WRITE (6,5) ERROR
      IF (.NOT.(REF)) GO TO 20033
      SREF=S
      HREF=H
      REF=.FALSE.
20033 TEMP=T*TCONV - T0
      PRES=P*PCONV - P0
      DENS=D*DCONV
      ENT=(S-SREF)*SCONV
      ENTH=(H-HREF)*HCONV
      IF (.NOT.(VAPOR)) GO TO 20035
      DENSL=DL*DCONV
      DENSG=DG*DCONV
      ENTL=(SL-SREF)*SCONV
      ENTG=(SG-SREF)*SCONV
      ENTHL=(HL-HREF)*HCONV
      ENTHG=(HG-HREF)*HCONV
      GO TO 20036
20035 CV=CV*CCONV
      CP=CP*CCONV
      A=A*ACONV
20036 GO TO NPR010, (20028,20029,20030,20031,20032)

C     PROCEDURE (LIQUID-PHASE VALUES)
30008 CALL FLUIDL (PROPS,NP,ERROR)
      ASSIGN 20037 TO NPR011
      GO TO 30011
20037 GO TO NPR008, (20024)

C     PROCEDURE (GAS-PHASE VALUES)
30009 CALL FLUIDG (PROPS,NP,ERROR)
      ASSIGN 20038 TO NPR011
      GO TO 30011
20038 GO TO NPR009, (20027)

C     PROCEDURE (REPORT PHASE VALUES)
30011 IF (ERROR.NE.0) WRITE (6,5) ERROR
      CV=CV*CCONV
      CP=CP*CCONV
      A=A*ACONV
      IF (.NOT.(ENTRY.EQ.6)) GO TO 20039
      WRITE (6,6) DENSL,ENTL,ENTHL,CV,CP,A
      GO TO 20040
20039 WRITE (6,7) DENSG,ENTG,ENTHG,CV,CP,A
20040 IF (NP.GT.6)  WRITE (6,3) (PROPS(I),I=7,NP)
      GO TO NPR011, (20037,20038)

1     FORMAT (' T,P,D,S,H:',5(1PE13.4))
2     FORMAT (' T,P,D,S,H,CV,CP,A:',8(1PE13.4))
3     FORMAT ('  ADDITIONAL PROPS:',8(1PE13.4))
4     FORMAT (' *ERROR* BAD VALUE FOR ENTRY')
5     FORMAT (' ERROR =',I3)
6     FORMAT (' DL,SL,HL,CV,CP,A: ',6(1PE13.4))
7     FORMAT (' DG,SG,HG,CV,CP,A: ',6(1PE13.4))


      END
      SUBROUTINE FLUID0 (G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,L)
C.....INTITIALIZING ENTRY FOR FLUID-PROPERTIES PACKAGE.  SETS UP TABLE
C     POINTERS FOR A PARTICULAR FLUID.  SUBSEQUENT CALLS (TO FLUID) USE
C     THESE POINTERS.

C.....CALLING ARGUMENTS:
C       G = (NON-DIMENSIONAL) TABLES IN TEMPERATURE ONLY.
C         G(1,1) = ARGUMENT VALUES (TEMPERATURE).
C         G(1,2) = ENTROPY, S0.
C         G(1,3) = ENERGY, U0.
C         G(1,4) = SPECIFIC HEAT AT CONSTANT VOLUME, CV0.
C       NG = LENGTH OF EACH G TABLE.
C       GG = TABLES IN TEMPERATURE AND DENSITY.
C         GG(1,1,1) = Z1, THE MODEL-DEPARTURE FACTOR.
C         GG(1,1,2) = Z2 FACTOR FOR ENTROPY (S).
C         GG(1,1,3) = Z3 FACTOR FOR ENTHALPY (H).
C         GG(1,1,4) = Z4 FACTOR FOR SPECIFIC HEAT (CV).
C         GG(1,1,5) = Z5 FACTOR FOR SPECIFIC HEAT (CP).
C         GG(1,1,6) = Z6 FACTOR FOR VELOCITY OF SOUND.
C         GG(1,1,N) = OTHER FACTORS (EG. TRANSPORT PROPERTIES).
C       TT = TEMPERATURE ARGUMENTS (REDUCED) FOR GG TABLES.
C       DD = DENSITY ARGUMENTS (REDUCED) FOR GG TABLES.
C       N1 = LENGTH OF TT TABLE AND FIRST DIMENSION OF GG TABLE.
C       N2 = LENGTH OF DD TABLE AND SECOND DIMENSION OF GG TABLE.
C       N3 = THIRD DIMENSION (NUMBER OF) GG TABLES.
C       SAT = (NON-DIMENSIONAL) SATURATION TABLES.
C         SAT(1,1) = SATURATION TEMPERATURE.
C         SAT(1,2) = SATURATION PRESSURE.
C         SAT(1,3) = SATURATED LIQUID DENSITY.
C         SAT(1,4) = SATURATED GAS DENSITY.
C         SAT(1,5) = SATURATED LIQUID ENTROPY.
C         SAT(1,6) = SATURATED GAS ENTROPY.
C         SAT(1,7) = SATURATED LIQUID ENTHALPY.
C         SAT(1,8) = SATURATED GAS ENTHALPY.
C       NS = LENGTH OF EACH SATURATION TABLE.
C       C = MISCELLANEOUS CONSTANTS:
C         C(1) = SPECIFIC GAS CONSTANT, R.
C         C(2) = CRITICAL TEMPERATURE, TC.
C         C(3) = CRITICAL PRESSURE, PC.
C         C(4) = CRITICAL DENSITY, DC (OR PSEUDO VALUE FOR BEST RANGE).
C         C(5) = CONVERGENCE REQUIREMENT FOR TEMPERATURE.
C         C(6) = CONVERGENCE REQUIREMENT FOR DENSITY.
C         C(7) = CONVERGENCE REQUIREMENT FOR ENTROPY.
C         C(8) = CONVERGENCE REQUIREMENT FOR ENTHALPY.
C       L = MEMORY (4 WORDS) FOR TABLE INDICES.

C.....VARIABLES IN COMMON BLOCK /FLUIDC/:
C       GAMMA = RATIO OF SPECIFIC HEATS, CP/CV.
C       WL = MASS-FRACTION IN THE LIQUID PHASE.
C       WG = MASS-FRACTION IN THE GAS PHASE.
C       DENSL = DENSITY OF SATURATED LIQUID,  SAME UNITS AS DC.
C       DENSG = DENSITY OF SATURATED GAS,     SAME UNITS AS DC.
C       ENTL = ENTROPY OF SATURATED LIQUID,   SAME UNITS AS R.
C       ENTG = ENTROPY OF SATURATED GAS,      SAME UNITS AS R.
C       ENTHL = ENTHALPY OF SATURATED LIQUID, SAME UNITS AS R*TC.
C       ENTHG = ENTHALPY OF SATURATED GAS,    SAME UNITS AS R*TC.

C.....EXTERNAL SUBROUTINES:
C       NTRP;  CALCULATION OF INTERPOLATION COEFFICIENTS FOR SINGLE-
C              VARIABLE INTERPOLATIONS,
C       NTRP1; CALCULATION OF INTERPOLATION COEFFICIENTS FOR FIRST
C              VARIABLE IN 2-VARIABLE INTERPOLATIONS,
C       NTRP2; CALCULATION OF INTERPOLATION COEFFICIENTS FOR SECOND
C              VARIABLE IN 2-VARIABLE INTERPOLATIONS,
C       GNTRP;  GETS VALUE IN SINGLE-VARIABLE INTERPOLATIONS,
C       GGNTRP;  GETS VALUE IN 2-VARIABLE INTERPOLATIONS,
C       CUBIC;  SOLVES VAN DER WAALS' EQUATION OF STATE FOR DENSITY.

      INTEGER L(4)
      REAL G(NG,4),GG(N1,N2,N3),TT(N1),DD(N2),SAT(NS,8),C(8),ROOTS(2)
      COMMON /FLUIDC/ GAMMA,WL,WG,DENSL,DENSG,ENTL,ENTG,ENTHL,ENTHG
      RLIMIT(XMIN,X,XMAX)=AMAX1(XMIN,AMIN1(X,XMAX))
      TF(P,D)=(P+3.0*D**2)*(3.0-D)/(8.0*Z*D)
      PF(T,D)=8.0*Z*D*T/(3.0-D)-3.0*D**2
      HF(P,D)=1.125*(P/(3.0*D)-D)
      SF(D)=ALOG((3.0-D)/D)
      CPF(T,D)=1.0/(1.0-D*(3.0-D)**2/(4.0*T))
      A2F(T,D)=0.375*GAMMA*R*TC*(8.0*T/(3.0-D)*(1.0+D/(3.0-D))-6.0*D)

C.....INITIALIZE NORMALIZING VALUES.
      R=C(1)
      TC=C(2)
      PC=C(3)
      DC=C(4)

      RETURN


      ENTRY FLUID (TEMP,PRES,DENS,PROPS,NP,ENTRY,VAPOR,ERROR)
C.....MAIN ENTRY FOR PROPERTY CALCULATIONS.

C.....CALLING ARGUMENTS:
C       TEMP = FLUID TEMPERATURE,  SAME UNITS AS TC.
C       PRES = FLUID PRESSURE,  SAME UNITS AS PC.
C       DENS = FLUID DENSITY,  SAME UNITS AS DC.
C       PROPS = OTHER FLUID PROPERTIES:
C         PROPS(1) = COMPRESSIBILITY, PRES/(R*DENS*TEMP).
C         PROPS(2) = ENTROPY,  SAME UNITS AS R.
C         PROPS(3) = ENTHALPY,  SAME UNITS AS R*TC.
C         PROPS(4) = SPECIFIC HEAT, CV,  SAME UNITS AS R.
C         PROPS(5) = SPECIFIC HEAT, CP,  SAME UNITS AS R.
C         PROPS(6) = SONIC VELOCITY,  SAME UNITS AS SQRT(R*TC).
C       NP = NUMBER OF PROPERTIES TO BE CALCULATED.
C       ENTRY = INTEGER THAT SPECIFIES WHICH VARIABLES ARE INPUT:
C             = 1 IF TEMPERATURE AND DENSITY ARE GIVEN.
C             = 2 IF PRESSURE AND DENSITY ARE GIVEN.
C             = 3 IF TEMPERATURE AND PRESSURE ARE GIVEN.
C             = 4 IF PRESSURE AND ENTROPY ARE GIVEN.
C             = 5 IF PRESSURE AND ENTHALPY ARE GIVEN.
C       VAPOR = .TRUE. IF THE FLUID IS SATURATED.  IN THAT CASE,
C               VALUES OF LIQUID AND GAS PHASES ARE GIVEN IN THE
C               COMMON BLOCK /FLUIDC/.
C       ERROR = ERROR FLAGS (BITS -- LEAST SIGNIFICANT = 1):
C             ** IF ERROR = 0,  ALL IS WELL **
C         BIT 1 = OUT OF RANGE IN SAT TABLE.
C         BIT 2 = OUT OF RANGE IN G TABLE.
C         BIT 3 = OUT OF RANGE IN TT TABLE.
C         BIT 4 = OUT OF RANGE IN DD TABLE.
C         BIT 5 = CONVERGENCE NOT ACHIEVED IN SOLVING INVERSE FUNCTION.

      REAL PROPS(NP)
      INTEGER ENTRY,ERROR,ERROUT,BIT1,BIT2,BIT3,BIT4,BIT5
      LOGICAL VAPOR,GAS
      DATA BIT1,BIT2,BIT3,BIT4,BIT5,MAX2,MAX3/1,2,4,8,16,12,12/,
     *     MAX4,MAX5,DXMAX,HUGE,SMALL,BIG/12,12,3.0,1.0E37,.001,1000./,
     *     ERROUT / 6 /

      ASSIGN 20001 TO NPR004
      GO TO 30004
20001 IF (ENTRY.LT.1.OR.ENTRY.GT.5) GO TO 20007
      GO TO (20002,20003,20004,20005,20006), ENTRY

C.....GIVEN TEMPERATURE AND DENSITY.
20002 IF (.NOT.(T.LT.1.0)) GO TO 20009
      ASSIGN 20011 TO NPR005
      GO TO 30005
20011 GO TO 20010
20009 VAPOR=.FALSE.
20010 IF (.NOT.(VAPOR)) GO TO 20012
      ASSIGN 20014 TO NPR006
      GO TO 30006
20014 P=PSAT
      GO TO 20013
20012 ASSIGN 20015 TO NPR007
      GO TO 30007
20015 P=PF(T,D)
20013 PRES=P*PC

      GO TO 20008
C.....GIVEN PRESSURE AND DENSITY.
20003 IF (.NOT.(P.LT.1.0)) GO TO 20016
      ASSIGN 20018 TO NPR008
      GO TO 30008
20018 GO TO 20017
20016 VAPOR=.FALSE.
20017 IF (.NOT.(VAPOR)) GO TO 20019
      ASSIGN 20021 TO NPR009
      GO TO 30009
20021 T=TSAT
      GO TO 20020
20019 Z=1.0
      ASSIGN 20022 TO NPR010
      GO TO 30010
20022 CONTINUE
20020 TEMP=T*TC

      GO TO 20008
C.....GIVEN TEMPERATURE AND PRESSURE.
20004 VAPOR=.FALSE.
      IF (.NOT.(T.LT.1.0)) GO TO 20023
      ASSIGN 20025 TO NPR011
      GO TO 30011
20025 GO TO 20024
20023 GAS=.TRUE.
      Z=1.0
      ASSIGN 20026 TO NPR012
      GO TO 30012
20026 CONTINUE
20024 ASSIGN 20027 TO NPR013
      GO TO 30013
20027 DENS=D*DC

      GO TO 20008
C.....GIVEN PRESSURE AND ENTROPY.
20005 SIN=PROPS(2)/R
      IF (.NOT.(P.LT.1.0)) GO TO 20028
      ASSIGN 20030 TO NPR014
      GO TO 30014
20030 GO TO 20029
20028 VAPOR=.FALSE.
20029 IF (.NOT.(VAPOR)) GO TO 20031
      ASSIGN 20033 TO NPR015
      GO TO 30015
20033 GO TO 20032
20031 ASSIGN 20034 TO NPR016
      GO TO 30016
20034 ASSIGN 20035 TO NPR017
      GO TO 30017
20035 CONTINUE
20032 DENS=D*DC
      TEMP=T*TC

      GO TO 20008
C.....GIVEN PRESSURE AND ENTHALPY.
20006 HIN=PROPS(3)/R/TC
      IF (.NOT.(P.LT.1.0)) GO TO 20036
      ASSIGN 20038 TO NPR018
      GO TO 30018
20038 GO TO 20037
20036 VAPOR=.FALSE.
20037 IF (.NOT.(VAPOR)) GO TO 20039
      ASSIGN 20041 TO NPR019
      GO TO 30019
20041 GO TO 20040
20039 ASSIGN 20042 TO NPR020
      GO TO 30020
20042 ASSIGN 20043 TO NPR021
      GO TO 30021
20043 CONTINUE
20040 DENS=D*DC
      TEMP=T*TC

20007 CONTINUE

C.....CALCULATE REMAINING PROPERTIES AT (T,D).
20008 IF (.NOT.(T.GT.0.0 .AND. D.GT.0.0)) GO TO 20044
      IF (.NOT.(VAPOR)) GO TO 20046
      ASSIGN 20048 TO NPR022
      GO TO 30022
20048 GO TO 20047
20046 NEXTP=1
      ASSIGN 20049 TO NPR023
      GO TO 30023
20049 CONTINUE
20047 CONTINUE
20044 ERROR=KS*BIT1+K0*BIT2+K1*BIT3+K2*BIT4+ERROR
      RETURN


      ENTRY FLUIDL (PROPS,NP,ERROR)
C.....ENTRY FOR GETTING LIQUID-PHASE PROPERTIES NOT IN COMMON.
      D=DL
      ASSIGN 20050 TO NPR024
      GO TO 30024
20050 RETURN


      ENTRY FLUIDG (PROPS,NP,ERROR)
C.....ENTRY FOR GETTING GAS-PHASE PROPERTIES NOT IN COMMON.
      D=DG
      ASSIGN 20051 TO NPR024
      GO TO 30024
20051 RETURN


C.....PROCEDURES.

C     PROCEDURE (MAIN ENTRY INITIALIZATION)
30004 IF (.NOT.(NP.GT.N3)) GO TO 20052
      WRITE (ERROUT,1)
      STOP
20052 IF (.NOT.(ENTRY.LT.1 .OR. ENTRY.GT.5)) GO TO 20054
      WRITE (ERROUT,2)
      STOP
20054 KS=0
      K0=0
      K1=0
      K2=0
      ERROR=0
      ARG0=HUGE
      ARG1=HUGE
      ARG2=HUGE
      T=TEMP/TC
      D=DENS/DC
      P=PRES/PC
      GO TO NPR004, (20001)

1     FORMAT (' FATAL ERROR IN FLUID: NP > N3')
2     FORMAT (' FATAL ERROR IN FLUID: BAD ENTRY')


C     PROCEDURE (TEST FOR VAPOR CONDITION AT (T,D))
30005 ASSIGN 20056 TO NPR025
      GO TO 30025
20056 ASSIGN 20057 TO NPR026
      GO TO 30026
20057 VAPOR=D.GT.DG .AND. D.LT.DL
      GO TO NPR005, (20011)


C     PROCEDURE (TEST FOR VAPOR CONDITION AT (P,D))
30008 ASSIGN 20058 TO NPR027
      GO TO 30027
20058 ASSIGN 20059 TO NPR026
      GO TO 30026
20059 VAPOR=D.GT.DG .AND. D.LT.DL
      GO TO NPR008, (20018)


C     PROCEDURE (SOLVE FOR T AT (P,D) BY ITERATION)
30010 T=TF(P,D)
      DELT=HUGE
      I2=1
      N20060=MAX2
      GO TO 20061
20060 I2=I2+1
      IF ((N20060-I2).LT.0) GO TO 20062
20061 ASSIGN 20064 TO NPR007
      GO TO 30007
20064 IF (ABS(DELT).LE.C(5)*T) GO TO 20063
      T1=T
      P1=PF(T1,D)
      T=RLIMIT(TT(1),TF(P,D),TT(N1))
      ASSIGN 20065 TO NPR007
      GO TO 30007
20065 T2=T
      P2=PF(T2,D)
      DELP=P2-P1
      IF (DELP.EQ.0.0) GO TO 20063
      DELT=(P-P2)/DELP*(T2-T1)
      T=T2+DELT
      GO TO 20060
20062 ERROR=BIT5
20063 GO TO NPR010, (20022,20096,20125,20190)


C     PROCEDURE (GET FIRST GUESS FOR D FROM SATURATED VALUE)
30011 ASSIGN 20066 TO NPR025
      GO TO 30025
20066 ASSIGN 20067 TO NPR006
      GO TO 30006
20067 GAS=P.LT.PSAT
      ASSIGN 20068 TO NPR026
      GO TO 30026
20068 IF (.NOT.(GAS)) GO TO 20069
      D=DG
      GO TO 20070
20069 D=DL
20070 GO TO NPR011, (20025)


C     PROCEDURE (SOLVE FOR D AT (T,P) BY ITERATION)
30013 DELD=HUGE
      I3=1
      N20071=MAX3
      GO TO 20072
20071 I3=I3+1
      IF ((N20071-I3).LT.0) GO TO 20073
20072 ASSIGN 20075 TO NPR007
      GO TO 30007
20075 IF (ABS(DELD).LE.C(6)*D) GO TO 20074
      D1=D
      P1=PF(T,D1)
      ASSIGN 20076 TO NPR012
      GO TO 30012
20076 D=RLIMIT(DD(1),D,DD(N2))
      ASSIGN 20077 TO NPR007
      GO TO 30007
20077 D2=D
      P2=PF(T,D2)
      DELP=P2-P1
      IF (DELP.EQ.0.0) GO TO 20074
      DELD=(P-P2)/DELP*(D2-D1)
      D=D2+DELD
      GO TO 20071
20073 ERROR=BIT5
20074 GO TO NPR013, (20027)


C     PROCEDURE (TEST FOR VAPOR CONDITION AT (P,SIN))
30014 ASSIGN 20078 TO NPR027
      GO TO 30027
20078 ASSIGN 20079 TO NPR028
      GO TO 30028
20079 VAPOR=SIN.GT.SL .AND. SIN.LT.SG
      GO TO NPR014, (20030)


C     PROCEDURE (GET (TWO-PHASE) T, WL, WG AND D AT (P,SIN))
30015 ASSIGN 20080 TO NPR009
      GO TO 30009
20080 ASSIGN 20081 TO NPR026
      GO TO 30026
20081 T=TSAT
      WL=(SIN-SG)/(SL-SG)
      WG=1.0-WL
      D=1.0/(WL/DL+WG/DG)
      GO TO NPR015, (20033)


C     PROCEDURE (GET FIRST GUESS FOR D AT (P,SIN))
30016 GAS=SIN.GT.SAT(NS,5)
      Z=1.0
      IF (.NOT.(P.LT.1.0)) GO TO 20082
      ASSIGN 20084 TO NPR026
      GO TO 30026
20084 IF (.NOT.(GAS)) GO TO 20085
      D=DG
      S1=SG
      GO TO 20086
20085 D=DL
      S1=SL
20086 GO TO 20083
20082 ASSIGN 20087 TO NPR029
      GO TO 30029
20087 ASSIGN 20088 TO NPR030
      GO TO 30030
20088 ASSIGN 20089 TO NPR031
      GO TO 30031
20089 S1=S
20083 GO TO NPR016, (20034)


C     PROCEDURE (SOLVE FOR T AND D AT (P,SIN) BY ITERATION)
30017 IF (.NOT.(GAS)) GO TO 20090
      X1=ALOG(D)
      D=D/1.2
      X=ALOG(D)
      GO TO 20091
20090 X1=ALOG(3.0-D)
      D=1.01*D
      X=ALOG(3.0-D)
20091 DELS=HUGE
      I4=1
      N20092=MAX4
      GO TO 20093
20092 I4=I4+1
      IF ((N20092-I4).LT.0) GO TO 20094
20093 ASSIGN 20096 TO NPR010
      GO TO 30010
20096 IF (ABS(DELS).LE.C(7)) GO TO 20095
      IF (.NOT.(X.NE.X1)) GO TO 20097
      ERROR=0
      ASSIGN 20099 TO NPR030
      GO TO 30030
20099 ASSIGN 20100 TO NPR031
      GO TO 30031
20100 DXDS=(X1-X)/(S1-S)
      DELS=SIN-S
      DELX=RLIMIT(-DXMAX,DXDS*DELS,DXMAX)
      X1=X
      S1=S
      X=X+DELX
      IF (.NOT.(GAS)) GO TO 20101
      D=EXP(X)
      GO TO 20102
20101 D=3.0-EXP(X)
20102 DLIM=RLIMIT(DD(1),D,DD(N2))
      IF (.NOT.(DLIM.NE.D)) GO TO 20103
      D=DLIM
      IF (.NOT.(GAS)) GO TO 20105
      X=ALOG(D)
      GO TO 20106
20105 X=ALOG(3.0-D)
20106 CONTINUE
20103 CONTINUE
20097 GO TO 20092
20094 ERROR=BIT5
20095 GO TO NPR017, (20035)


C     PROCEDURE (TEST FOR VAPOR CONDITION AT (P,HIN))
30018 ASSIGN 20107 TO NPR027
      GO TO 30027
20107 ASSIGN 20108 TO NPR032
      GO TO 30032
20108 VAPOR=HIN.GT.HL .AND. HIN.LT.HG
      GO TO NPR018, (20038)


C     PROCEDURE (GET (TWO-PHASE) T, WL, WG AND D AT (P,HIN))
30019 ASSIGN 20109 TO NPR009
      GO TO 30009
20109 ASSIGN 20110 TO NPR026
      GO TO 30026
20110 T=TSAT
      WL=(HIN-HG)/(HL-HG)
      WG=1.0-WL
      D=1.0/(WL/DL+WG/DG)
      GO TO NPR019, (20041)

C     PROCEDURE (GET FIRST GUESS FOR D AT (P,HIN))
30020 Z=1.0
      IF (.NOT.(P.LT.1.0)) GO TO 20111
      GAS=HG.LT.HIN
      ASSIGN 20113 TO NPR026
      GO TO 30026
20113 IF (.NOT.(GAS)) GO TO 20114
      D=DG
      H1=HG
      GO TO 20115
20114 D=DL
      H1=HL
20115 GO TO 20112
20111 ASSIGN 20116 TO NPR029
      GO TO 30029
20116 ASSIGN 20117 TO NPR033
      GO TO 30033
20117 ASSIGN 20118 TO NPR034
      GO TO 30034
20118 H1=H
      GAS=H1.LT.HIN
20112 GO TO NPR020, (20042)


C     PROCEDURE (SOLVE FOR T AND D AT (P,HIN) BY ITERATION)
30021 IF (.NOT.(GAS)) GO TO 20119
      X1=1.0/D
      D=D/1.2
      X=1.0/D
      GO TO 20120
20119 X1=D
      D=1.01*D
      X=D
20120 DELH=HUGE
      I5=1
      N20121=MAX5
      GO TO 20122
20121 I5=I5+1
      IF ((N20121-I5).LT.0) GO TO 20123
20122 ASSIGN 20125 TO NPR010
      GO TO 30010
20125 IF (ABS(DELH).LE.C(8)) GO TO 20124
      IF (.NOT.(X.NE.X1)) GO TO 20126
      ERROR=0
      ASSIGN 20128 TO NPR033
      GO TO 30033
20128 ASSIGN 20129 TO NPR034
      GO TO 30034
20129 DXDH=(X1-X)/(H1-H)
      DELH=HIN-H
      DELX=DXDH*DELH
      X1=X
      H1=H
      X=X+DELX
      IF (.NOT.(GAS)) GO TO 20130
      D=1.0/X
      GO TO 20131
20130 D=X
20131 DLIM=RLIMIT(DD(1),D,DD(N2))
      IF (.NOT.(D.NE.DLIM)) GO TO 20132
      D=DLIM
      IF (.NOT.(GAS)) GO TO 20134
      X=1.0/D
      GO TO 20135
20134 X=D
20135 CONTINUE
20132 CONTINUE
20126 GO TO 20121
20123 ERROR=BIT5
20124 GO TO NPR021, (20043)


C     PROCEDURE (CALCULATE REMAINING PROPERTIES FOR 2-PHASE FLUID)
30022 NPROPS=MIN0(3,NP)
      IPROP=1
      N20136=NPROPS
      GO TO 20137
20136 IPROP=IPROP+1
      IF ((N20136-IPROP).LT.0) GO TO 20138
20137 IF (IPROP.LT.1.OR.IPROP.GT.3) GO TO 20143
      GO TO (20140,20141,20142), IPROP
20140 IF (.NOT.(ENTRY.LE.3)) GO TO 20145
      WL=DL/D*(D-DG)/(DL-DG)
      WG=1.0-WL
20145 DENSL=DL*DC
      DENSG=DG*DC
      PROPS(1)=PRES/(R*DENS*TEMP)
      GO TO 20144
20141 IF (.NOT.(ENTRY.NE.4)) GO TO 20147
      ASSIGN 20149 TO NPR028
      GO TO 30028
20149 PROPS(2)=(WL*SL+WG*SG)*R
20147 ENTL=SL*R
      ENTG=SG*R
      GO TO 20144
20142 IF (.NOT.(ENTRY.NE.5)) GO TO 20150
      ASSIGN 20152 TO NPR032
      GO TO 30032
20152 PROPS(3)=(WL*HL+WG*HG)*R*TC
20150 ENTHL=HL*R*TC
      ENTHG=HG*R*TC
20143 CONTINUE
20144 GO TO 20136
20138 GO TO NPR022, (20048)


C     PROCEDURE (CALCULATE REMAINING PROPERTIES FOR HOMOGENEOUS FLUID)
30023 IPROP=NEXTP
      N20153=NP
      GO TO 20154
20153 IPROP=IPROP+1
      IF ((N20153-IPROP).LT.0) GO TO 20155
20154 IF (.NOT.(IPROP.LE.6)) GO TO 20157
      IF (IPROP.LT.1.OR.IPROP.GT.6) GO TO 20165
      GO TO (20159,20160,20161,20162,20163,20164), IPROP
20159 PROPS(1)=PRES/(R*DENS*TEMP)
      GO TO 20166
20160 IF (.NOT.(ENTRY.NE.4)) GO TO 20167
      ASSIGN 20169 TO NPR030
      GO TO 30030
20169 ASSIGN 20170 TO NPR031
      GO TO 30031
20170 PROPS(2)=S*R
20167 GO TO 20166
20161 IF (.NOT.(ENTRY.NE.5)) GO TO 20171
      ASSIGN 20173 TO NPR033
      GO TO 30033
20173 ASSIGN 20174 TO NPR034
      GO TO 30034
20174 PROPS(3)=H*R*TC
20171 GO TO 20166
20162 ASSIGN 20175 TO NPR035
      GO TO 30035
20175 ASSIGN 20176 TO NPR036
      GO TO 30036
20176 PROPS(4)=CV*R
      GO TO 20166
20163 ASSIGN 20177 TO NPR037
      GO TO 30037
20177 PROPS(5)=CP*R
      GAMMA=CP/CV
      GO TO 20166
20164 ASSIGN 20178 TO NPR038
      GO TO 30038
20178 PROPS(6)=A
20165 CONTINUE
20166 GO TO 20158
20157 ASSIGN 20179 TO NPR039
      GO TO 30039
20179 CONTINUE
20158 GO TO 20153
20155 GO TO NPR023, (20049,20188)


C     PROCEDURE (CALCULATE OTHER SATURATION-LOCUS PROPERTIES)
30024 IF (.NOT.(.NOT.VAPOR)) GO TO 20180
      WRITE (ERROUT,3)
      STOP
20180 IF (.NOT.(NP.GT.N3)) GO TO 20182
      WRITE (ERROUT,1)
      STOP
20182 ASSIGN 20184 TO NPR040
      GO TO 30040
20184 ASSIGN 20185 TO NPR041
      GO TO 30041
20185 IF (.NOT.(T.GT.0.0 .AND. NP.GE.4)) GO TO 20186
      NEXTP=4
      ASSIGN 20188 TO NPR023
      GO TO 30023
20188 CONTINUE
20186 ERROR=KS*BIT1+K0*BIT2+K1*BIT3+K2*BIT4
      GO TO NPR024, (20050,20051)

3     FORMAT (' FATAL ERROR IN FLUID: VAPOR=.FALSE.')


C     PROCEDURE (ASSUME WORST-CASE STARTING VALUE FOR DENSITY)
30029 T=TT(N1)
      ASSIGN 20189 TO NPR012
      GO TO 30012
20189 D=AMAX1(1.0,ROOTS(1))
      ASSIGN 20190 TO NPR010
      GO TO 30010
20190 GO TO NPR029, (20087,20116)


C     PROCEDURE (SOLVE CUBIC FOR D AT (T,P))
30012 CALL CUBIC (Z*T,P,ROOTS,NR)
      IF (GAS) NR=1
      D=ROOTS(NR)
      GO TO NPR012, (20026,20076,20189)


C     PROCEDURE (SET UP FOR INTERPOLATION OF ZERO-DENSITY DATA AT T)
30040 IF (.NOT.(ARG0.NE.T)) GO TO 20191
      CALL NTRP (G(1,1),T,NG,L(2),K0)
      ARG0=T
20191 GO TO NPR040, (20184,20198,20200)


C     PROCEDURE (SET UP FOR INTERPOLATION OF SATURATION DATA AT T)
30025 CALL NTRP (SAT(1,1),T,NS,L(1),KS)
      GO TO NPR025, (20056,20066)


C     PROCEDURE (SET UP FOR INTERPOLATION OF SATURATION DATA AT P)
30027 CALL NTRP (SAT(1,2),AMAX1(P,SAT(1,2)),NS,L(1),KS)
      GO TO NPR027, (20058,20078,20107)


C     PROCEDURE (SET UP FOR DOUBLE INTERPOLATION AT (T,D))
30041 IF (.NOT.(ARG1.NE.T)) GO TO 20193
      CALL NTRP1 (TT,T,N1,L(3),K1)
      ARG1=T
20193 IF (.NOT.(ARG2.NE.D)) GO TO 20195
      CALL NTRP2 (DD,D,N2,L(4),K2)
      ARG2=D
20195 GO TO NPR041, (20185,20197,20199,20201)


C     PROCEDURE (GET SATURATION TEMPERATURE, TSAT)
30009 CALL GNTRP (SAT(1,1),TSAT)
      GO TO NPR009, (20021,20080,20109)


C     PROCEDURE (GET SATURATION PRESSURE, PSAT)
30006 CALL GNTRP (SAT(1,2),PSAT)
      GO TO NPR006, (20014,20067)


C     PROCEDURE (GET SATURATED LIQUID (DL) AND GAS (DG) DENSITIES)
30026 CALL GNTRP (SAT(1,3),DL)
      CALL GNTRP (SAT(1,4),DG)
      GO TO NPR026, (20057,20059,20068,20081,20084,20110,20113)


C     PROCEDURE (GET SATURATED LIQUID (SL) AND GAS (SG) ENTROPIES)
30028 CALL GNTRP (SAT(1,5),SL)
      CALL GNTRP (SAT(1,6),SG)
      GO TO NPR028, (20079,20149)


C     PROCEDURE (GET SATURATED LIQUID (HL) AND GAS (HG) ENTHALPIES)
30032 CALL GNTRP (SAT(1,7),HL)
      CALL GNTRP (SAT(1,8),HG)
      GO TO NPR032, (20108,20152)


C     PROCEDURE (GET Z BY DOUBLE INTERPOLATION AT (T,D))
30007 ASSIGN 20197 TO NPR041
      GO TO 30041
20197 CALL GGNTRP (GG(1,1,1),Z)
      Z=RLIMIT(SMALL,Z,BIG)
      GO TO NPR007, (20015,20064,20065,20075,20077)


C     PROCEDURE (GET S0 BY INTERPOLATION OF ZERO-DENSITY DATA)
30030 ASSIGN 20198 TO NPR040
      GO TO 30040
20198 CALL GNTRP (G(1,2),S0)
      GO TO NPR030, (20088,20099,20169)


C     PROCEDURE (GET S BY DOUBLE INTERPOLATION FOR Z2)
30031 ASSIGN 20199 TO NPR041
      GO TO 30041
20199 CALL GGNTRP (GG(1,1,2),Z2)
      S=Z2*(S0+SF(D))
      GO TO NPR031, (20089,20100,20170)


C     PROCEDURE (GET U0 BY INTERPOLATION OF ZERO-DENSITY DATA)
30033 ASSIGN 20200 TO NPR040
      GO TO 30040
20200 CALL GNTRP (G(1,3),U0)
      GO TO NPR033, (20117,20128,20173)


C     PROCEDURE (GET H BY DOUBLE INTERPOLATION FOR Z3)
30034 ASSIGN 20201 TO NPR041
      GO TO 30041
20201 CALL GGNTRP (GG(1,1,3),Z3)
      H=Z3*(U0+HF(P,D))
      GO TO NPR034, (20118,20129,20174)


C     PROCEDURE (GET CV0 BY INTERPOLATION OF ZERO-DENSITY DATA)
30035 CALL GNTRP(G(1,4),CV0)
      GO TO NPR035, (20175)


C     PROCEDURE (GET CV BY DOUBLE INTERPOLATION FOR Z4)
30036 CALL GGNTRP (GG(1,1,4),Z4)
      CV=Z4*CV0
      GO TO NPR036, (20176)


C     PROCEDURE (GET CP BY DOUBLE INTERPOLATION FOR Z5)
30037 CALL GGNTRP (GG(1,1,5),Z5)
      CP=Z5*(CV+CPF(T,D))
      GO TO NPR037, (20177)


C     PROCEDURE (GET SONIC VELOCITY BY DOUBLE INTERPOLATION FOR Z6)
30038 CALL GGNTRP (GG(1,1,6),Z6)
      A2=A2F(T,D)
      IF (.NOT.(A2.GT.0.0)) GO TO 20202
      A=Z6*SQRT(A2)
      GO TO 20203
20202 A=0.0
20203 GO TO NPR038, (20178)


C     PROCEDURE (DOUBLE INTERPOLATION FOR OTHER PROPERTIES)
30039 CALL GGNTRP (GG(1,1,IPROP),PROPS(IPROP))
      GO TO NPR039, (20179)




      END
      SUBROUTINE NTRP (A,X,N0,IA,OUT)
C.....DOUBLE 3-POINT INTERPOLATION ROUTINES FOR SUBPROGRAM FLUID.

C.....CALLING ARGUMENTS:
C       A = TABLE OF INDEPENDENT-VARIABLE VALUES,
C       X = ENTRY VALUE OF INDEPENDENT VARIABLE,
C       N0 (OR N1/N2) = LENGTH OF A TABLE,
C       IA = CURRENT INDEX VALUE ASSOCIATED WITH A TABLE.
C       OUT = 0,1 IF X IS INSIDE/NOT INSIDE LIMITS OF A.

      REAL A(1),C(4,3),C0(4),C1(4),C2(4)
      INTEGER I1(3),I2(3),NN(3),OUT
      LOGICAL NEW12
      EQUIVALENCE (C0,C(1,1)), (C1,C(1,2)), (C2,C(1,3)), (L1,I1(1)),
     *            (L2,I2(1)),  (M1,I1(2)),  (M2,I2(2)),  (MM1,I1(3)),
     *            (MM2,I2(3)), (NI,NN(2)),  (NJ,NN(3))

      LIMIT(IMIN,I,IMAX)=MAX0(IMIN,MIN0(I,IMAX))

C.....ENTER HERE TO CALCULATE COEFFICIENTS FOR GNTRP.
      K=1
      NA=N0
      ASSIGN 20001 TO NPR001
      GO TO 30001
20001 RETURN

      ENTRY NTRP1 (A,X,N1,IA,OUT)
C.....ENTER HERE TO CALCULATE FIRST COEFFICIENTS FOR GGNTRP.
      K=2
      NA=N1
      NEW12=.TRUE.
      ASSIGN 20002 TO NPR001
      GO TO 30001
20002 RETURN

      ENTRY NTRP2 (A,X,N2,IA,OUT)
C.....ENTER HERE TO CALCULATE SECOND COEFFICIENTS FOR GGNTRP.
      K=3
      NA=N2
      NEW12=.TRUE.
      ASSIGN 20003 TO NPR001
      GO TO 30001
20003 RETURN


      ENTRY GNTRP (F,VALUE)
C.....EVALUATION OF FUNCTION IN ONE VARIABLE.

C.....ARGUMENT F IS THE TABLE OF DEPENDENT-VARIABLE VALUES.

      REAL F(N0)

      VALUE=0.0
      K=0
      I=L1
      GO TO 20005
20004 I=I+1
      IF (I.GT.L2      ) GO TO 20006
20005 K=K+1
      VALUE=VALUE+C0(K)*F(I)
      GO TO 20004
20006 RETURN


      ENTRY GGNTRP (FF,VALUE)
C.....ENTRY FOR EVALUATION OF FUNCTIONS IN TWO VARIABLES.

C.....ARGUMENT FF IS THE (2-D) TABLE OF DEPENDENT-VARIABLE VALUES.

      REAL FF(N1,N2),CC(16)

      IF (.NOT.(NEW12)) GO TO 20008
      IJ=0
      I=1
      GO TO 20011
20010 I=I+1
      IF (I.GT.NI      ) GO TO 20012
20011 J=1
      GO TO 20015
20014 J=J+1
      IF (J.GT.NJ      ) GO TO 20016
20015 IJ=IJ+1
      CC(IJ)=C1(I)*C2(J)
      GO TO 20014
20016 GO TO 20010
20012 NEW12=.FALSE.
20008 VALUE=0.0
      IJ=0
      I=M1
      GO TO 20019
20018 I=I+1
      IF (I.GT.M2      ) GO TO 20020
20019 J=MM1
      GO TO 20023
20022 J=J+1
      IF (J.GT.MM2     ) GO TO 20024
20023 IJ=IJ+1
      VALUE=VALUE+CC(IJ)*FF(I,J)
      GO TO 20022
20024 GO TO 20018
20020 RETURN


C.....PROCEDURES.

C     PROCEDURE (CALCULATE COEFFICIENTS FOR ONE DIMENSION)
30001 ASSIGN 20026 TO NPR002
      GO TO 30002
20026 ASSIGN 20027 TO NPR003
      GO TO 30003
20027 ASSIGN 20028 TO NPR004
      GO TO 30004
20028 GO TO NPR001, (20001,20002,20003)


C     PROCEDURE (CALCULATE INDEX VALUES)
30002 L=LIMIT(1,NA,3)
      M=NA-2
      ASSIGN 20029 TO NPR005
      GO TO 30005
20029 IF (IA.GE.2 .AND. IA.LE.M) L=4
      I=LIMIT(1,IA-1,M)
      I1(K)=I
      I2(K)=I+L-1
      NN(K)=L
      GO TO NPR002, (20026)


C     PROCEDURE (CALCULATE AIJ VALUES)
30003 IF (.NOT.(L.GT.1)) GO TO 20030
      IF (.NOT.(L.GT.2)) GO TO 20032
      IF (.NOT.(L.GT.3)) GO TO 20034
      A44=A(I+3)
      A14=A(I)-A44
      A24=A(I+1)-A44
      A34=A(I+2)-A44
      A44=X-A44
20034 A33=A(I+2)
      A13=A(I)-A33
      A23=A(I+1)-A33
      A33=X-A33
20032 A22=A(I+1)
      A12=A(I)-A22
      A22=X-A22
20030 A11=X-A(I)
      GO TO NPR003, (20027)


C     PROCEDURE (CALCULATE COEFFICIENTS)
30004 GO TO (20036,20037,20038,20039), L
20036 C(1,K)=1.0
      GO TO 20040
20037 C(1,K)=+A22/A12
      C(2,K)=-A11/A12
      GO TO 20040
20038 C(1,K)=+A22/A12*A33/A13
      C(2,K)=-A11/A12*A33/A23
      C(3,K)=+A11/A13*A22/A23
      GO TO 20040
20039 P1=A22/A23*A33
      C(1,K)=+P1/A12*A33/A13
      C(4,K)=-P1/A34*A22/A24
      P2=A33/A23*A11/A23
      P3=A22/A23*A44/A23
      C(2,K)=-A33*(P2/A12+P3/A24)
      C(3,K)=+A22*(P3/A34+P2/A13)
20040 GO TO NPR004, (20028)


C     PROCEDURE (TABLE LOOK-UP)
30005 IF (.NOT.(X.LT.A(1))) GO TO 20041
      OUT=1
      IA=1
      GO TO 20042
20041 IF (.NOT.(X.GT.A(NA))) GO TO 20043
      OUT=1
      IA=NA
      GO TO 20044
20043 OUT=0
      IA=LIMIT(1,IA,NA)
      IF (.NOT.(X.LT.A(IA))) GO TO 20045
      GO TO 20048
20047 IF (X.GE.A(IA)) GO TO 20049
20048 IA=IA-1
      GO TO 20047
20049 GO TO 20046
20045 CONTINUE
20050 IF (.NOT.(X.GT.A(IA+1))) GO TO 20051
      IA=IA+1
      GO TO 20050
20051 CONTINUE
20046 CONTINUE
20044 CONTINUE
20042 GO TO NPR005, (20029)

      END
      SUBROUTINE CUBIC (T,P,ROOTS,NROOTS)
C.....SOLVES FOR DENSITY IN REDUCED VAN DER WAALS GAS:

C        D**3 -3*D**2 +((8*T+P)/3)*D -P = 0

C     IF MORE THAN ONE DISTINCT ROOT EXISTS, ONLY THE MINIMUM AND
C     MAXIMUM ONES ARE RETURNED AND NROOTS=2.

      IMPLICIT REAL*8 (A-H,O-Z)
      REAL*8 K1,K2
      REAL*4 T,P,ROOTS(2)
      DATA K1,K2,THIRD / 2.094395102393195D+0, 4.188790204786391D+0,
     *                   3.333333333333333D-1 /

C.....FUNCTION DEFINITION.
      QRT(ARG)=DSIGN(DABS(ARG)**THIRD,ARG)


C.....MAIN PROGRAM FLOW.
      ASSIGN 20001 TO NPR001
      GO TO 30001
20001 IF (.NOT.(RAD.LT.0.0D0)) GO TO 20002
      ASSIGN 20004 TO NPR002
      GO TO 30002
20004 GO TO 20003
20002 IF (.NOT.(RAD.EQ.0.0D0)) GO TO 20005
      IF (.NOT.(B.EQ.0.0D0)) GO TO 20007
      ASSIGN 20009 TO NPR003
      GO TO 30003
20009 GO TO 20008
20007 ASSIGN 20010 TO NPR004
      GO TO 30004
20010 CONTINUE
20008 GO TO 20006
20005 ASSIGN 20011 TO NPR003
      GO TO 30003
20011 CONTINUE
20006 CONTINUE
20003 RETURN


C.....PROCEDURES.

C     PROCEDURE (REDUCE TO NORMAL FORM)
30001 Q=(8.0D0*T+P)/3.0D0
      A=Q/3.0D0-1.0D0
      A3=A*A*A
      B=(Q-P)/2.0D0-1.0D0
      B2=B*B
      RAD=A3+B2
      GO TO NPR001, (20001)

C     PROCEDURE (CASE FOR 3 DISTINCT REAL ROOTS)
30002 PHI=DARCOS(DSIGN(DSQRT(-B2/A3),-B))/3.0D0
      CR=2.0D0*DSQRT(-A)
      R1=CR*DCOS(PHI)
      R2=CR*DCOS(PHI+K1)
      R3=CR*DCOS(PHI+K2)
      ROOTS(1)=DMIN1(R1,R2,R3)+1.0D0
      ROOTS(2)=DMAX1(R1,R2,R3)+1.0D0
      NROOTS=2
      GO TO NPR002, (20004)

C     PROCEDURE (CASE FOR 3 REAL ROOTS BUT TWO ARE EQUAL)
30004 R1=QRT(B)
      R2=-2.0D0*R1
      ROOTS(1)=DMIN1(R1,R2)+1.0D0
      ROOTS(2)=DMAX1(R1,R2)+1.0D0
      NROOTS=2
      GO TO NPR004, (20010)

C     PROCEDURE (CASE FOR ONLY ONE REAL ROOT)
30003 IF (RAD.NE.0.0D0) RAD=DSQRT(RAD)
      AA=-B+RAD
      BB=-B-RAD
      IF (AA.NE.0.0D0) AA=QRT(AA)
      IF (BB.NE.0.0D0) BB=QRT(BB)
      ROOTS(1)=AA+BB+1.0D0
      NROOTS=1
      GO TO NPR003, (20009,20011)

      END
      SUBROUTINE O2
C.....OXYGEN TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 0.25983 JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 154.78 DEG. K                   C(2)
C       PCRIT = 5.083 MEGA-NEWTONS / METER**2   C(3)
C       DCRIT = 0.4325 GRAMS / CENTIMETER**3    C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)


      DIMENSION G(18,4),TT(18),DD(18),GG(18,18,8),SAT(22,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(100),X1601(100),X1701(100),X1801(100),X1901(100),
     *          X2001(100),X2101(100),X2201(100),X2301(100),X2401(100),
     *          X2501(100),X2601(100),X2701(100),X2801(84)

      DIMENSION Z(2884)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501)), (X1601,Z(1601)), (X1701,Z(1701)),
     *            (X1801,Z(1801)), (X1901,Z(1901)), (X2001,Z(2001)),
     *            (X2101,Z(2101)), (X2201,Z(2201)), (X2301,Z(2301)),
     *            (X2401,Z(2401)), (X2501,Z(2501)), (X2601,Z(2601)),
     *            (X2701,Z(2701)), (X2801,Z(2801))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0073)),(DD,Z(0091)),(GG,Z(0109)),
     *            (SAT,Z(2701)),(C,Z(2877))
      DATA NG,N1,N2,N3,NS / 18,18,18,8,22 /

      DATA X0001/ 4.2000E-1, 5.0000E-1, 6.0000E-1, 7.2000E-1, 8.5000E-1,
     * 9.8000E-1, 1.1000E+0, 1.2500E+0, 1.5000E+0, 1.7500E+0, 2.0000E+0,
     * 2.5000E+0, 3.0000E+0, 3.7000E+0, 4.7500E+0, 6.0000E+0, 7.2000E+0,
     * 8.0000E+0, 1.8491E+1, 1.8927E+1, 1.9383E+1, 1.9840E+1, 2.0255E+1,
     * 2.0611E+1, 2.0900E+1, 2.1220E+1, 2.1677E+1, 2.2065E+1, 2.2403E+1,
     * 2.2976E+1, 2.3458E+1, 2.4036E+1, 2.4763E+1, 2.5483E+1, 2.6067E+1,
     * 2.6412E+1, 1.1071E+1, 1.1248E+1, 1.1470E+1, 1.1737E+1, 1.2025E+1,
     * 1.2314E+1, 1.2580E+1, 1.2913E+1, 1.3469E+1, 1.4027E+1, 1.4588E+1,
     * 1.5731E+1, 1.6912E+1, 1.8645E+1, 2.1410E+1, 2.4910E+1, 2.8415E+1,
     * 3.0812E+1, 2.5033E+0, 2.5031E+0, 2.5028E+0, 2.5026E+0, 2.5024E+0,
     * 2.5024E+0, 2.5028E+0, 2.5040E+0, 2.5091E+0, 2.5206E+0, 2.5425E+0,
     * 2.6000E+0, 2.6930E+0, 2.8250E+0, 3.0020E+0, 3.1540E+0, 3.2500E+0,
     * 3.3070E+0, 4.2000E-1, 4.5000E-1, 5.0000E-1, 5.9000E-1, 6.8000E-1,
     * 8.0000E-1, 9.2000E-1, 9.8500E-1, 1.0500E+0, 1.1500E+0, 1.3000E+0,
     * 1.6000E+0, 2.0000E+0, 2.6000E+0, 3.5000E+0, 4.6000E+0, 6.0000E+0,
     * 8.0000E+0, 1.0000E-5, 3.0000E-4, 7.0000E-4, 2.0000E-3, 1.0000E-2,
     * 3.0000E-2, 1.0000E-1, 3.0000E-1, 6.0000E-1, 1.0000E+0/
      DATA X0101/ 1.4500E+0, 1.8500E+0, 2.2000E+0, 2.4600E+0, 2.6500E+0,
     * 2.7900E+0, 2.8700E+0, 2.9200E+0, 1.2832E+0, 1.2832E+0, 1.2832E+0,
     * 1.2832E+0, 1.2832E+0, 1.2832E+0, 1.2832E+0, 1.2832E+0, 1.2832E+0,
     * 1.2832E+0, 1.2832E+0, 1.2832E+0, 1.2832E+0, 1.2832E+0, 1.2832E+0,
     * 1.2832E+0, 1.2832E+0, 1.2832E+0, 1.2815E+0, 1.2817E+0, 1.2820E+0,
     * 1.2824E+0, 1.2827E+0, 1.2828E+0, 1.2829E+0, 1.2830E+0, 1.2830E+0,
     * 1.2831E+0, 1.2831E+0, 1.2832E+0, 1.2832E+0, 1.2832E+0, 1.2833E+0,
     * 1.2833E+0, 1.2833E+0, 1.2833E+0, 1.2791E+0, 1.2797E+0, 1.2805E+0,
     * 1.2814E+0, 1.2819E+0, 1.2823E+0, 1.2826E+0, 1.2827E+0, 1.2827E+0,
     * 1.2828E+0, 1.2829E+0, 1.2831E+0, 1.2832E+0, 1.2832E+0, 1.2833E+0,
     * 1.2833E+0, 1.2834E+0, 1.2834E+0, 1.2722E+0, 1.2735E+0, 1.2754E+0,
     * 1.2779E+0, 1.2794E+0, 1.2806E+0, 1.2813E+0, 1.2816E+0, 1.2818E+0,
     * 1.2821E+0, 1.2824E+0, 1.2828E+0, 1.2830E+0, 1.2832E+0, 1.2834E+0,
     * 1.2835E+0, 1.2836E+0, 1.2837E+0, 1.2352E+0, 1.2396E+0, 1.2464E+0,
     * 1.2566E+0, 1.2642E+0, 1.2702E+0, 1.2738E+0, 1.2752E+0, 1.2763E+0,
     * 1.2776E+0, 1.2791E+0, 1.2809E+0, 1.2822E+0, 1.2833E+0, 1.2841E+0,
     * 1.2846E+0, 1.2850E+0, 1.2854E+0, 1.1628E+0, 1.1719E+0/
      DATA X0201/ 1.1861E+0, 1.2084E+0, 1.2267E+0, 1.2446E+0, 1.2554E+0,
     * 1.2595E+0, 1.2628E+0, 1.2668E+0, 1.2711E+0, 1.2763E+0, 1.2802E+0,
     * 1.2834E+0, 1.2858E+0, 1.2874E+0, 1.2886E+0, 1.2896E+0, 9.6184E-1,
     * 9.8254E-1, 1.0152E+0, 1.0680E+0, 1.1131E+0, 1.1614E+0, 1.1960E+0,
     * 1.2091E+0, 1.2196E+0, 1.2321E+0, 1.2456E+0, 1.2621E+0, 1.2742E+0,
     * 1.2840E+0, 1.2917E+0, 1.2967E+0, 1.3004E+0, 1.3034E+0, 5.6891E-1,
     * 6.1034E-1, 6.7607E-1, 7.8392E-1, 8.7836E-1, 9.8332E-1, 1.0644E+0,
     * 1.0983E+0, 1.1252E+0, 1.1572E+0, 1.1912E+0, 1.2326E+0, 1.2631E+0,
     * 1.2879E+0, 1.3074E+0, 1.3204E+0, 1.3300E+0, 1.3378E+0, 4.0965E-1,
     * 4.5375E-1, 5.2423E-1, 6.4147E-1, 7.4641E-1, 8.6719E-1, 9.6608E-1,
     * 1.0105E+0, 1.0485E+0, 1.0944E+0, 1.1447E+0, 1.2084E+0, 1.2574E+0,
     * 1.2990E+0, 1.3330E+0, 1.3561E+0, 1.3735E+0, 1.3879E+0, 6.0883E-1,
     * 6.3414E-1, 6.7514E-1, 7.4503E-1, 8.0996E-1, 8.8875E-1, 9.5870E-1,
     * 9.9289E-1, 1.0245E+0, 1.0680E+0, 1.1218E+0, 1.1997E+0, 1.2671E+0,
     * 1.3294E+0, 1.3835E+0, 1.4218E+0, 1.4511E+0, 1.4760E+0, 6.5456E-1,
     * 6.7430E-1, 7.0665E-1, 7.6296E-1, 8.1689E-1, 8.8504E-1, 9.4891E-1,
     * 9.8171E-1, 1.0133E+0, 1.0594E+0, 1.1206E+0, 1.2161E+0/
      DATA X0301/ 1.3044E+0, 1.3905E+0, 1.4685E+0, 1.5253E+0, 1.5695E+0,
     * 1.6072E+0, 4.7783E-1, 5.1056E-1, 5.6352E-1, 6.5370E-1, 7.3733E-1,
     * 8.3856E-1, 9.2810E-1, 9.7172E-1, 1.0119E+0, 1.0673E+0, 1.1376E+0,
     * 1.2444E+0, 1.3431E+0, 1.4405E+0, 1.5303E+0, 1.5966E+0, 1.6485E+0,
     * 1.6931E+0, 4.0719E-1, 4.4941E-1, 5.1686E-1, 6.2905E-1, 7.2946E-1,
     * 8.4497E-1, 9.3948E-1, 9.8192E-1, 1.0196E+0, 1.0699E+0, 1.1325E+0,
     * 1.2267E+0, 1.3142E+0, 1.4018E+0, 1.4838E+0, 1.5450E+0, 1.5931E+0,
     * 1.6346E+0, 4.4461E-1, 4.8502E-1, 5.4873E-1, 6.5188E-1, 7.4025E-1,
     * 8.3506E-1, 9.0358E-1, 9.3368E-1, 9.6022E-1, 9.9568E-1, 1.0399E+0,
     * 1.1072E+0, 1.1709E+0, 1.2360E+0, 1.2980E+0, 1.3448E+0, 1.3819E+0,
     * 1.4141E+0, 4.5414E-1, 4.8728E-1, 5.3834E-1, 6.1711E-1, 6.7897E-1,
     * 7.3515E-1, 7.7508E-1, 7.9264E-1, 8.0819E-1, 8.2914E-1, 8.5561E-1,
     * 8.9689E-1, 9.3713E-1, 9.7928E-1, 1.0202E+0, 1.0515E+0, 1.0766E+0,
     * 1.0985E+0, 3.9048E-1, 4.1390E-1, 4.4854E-1, 4.9706E-1, 5.2778E-1,
     * 5.5496E-1, 5.7422E-1, 5.8279E-1, 5.9046E-1, 6.0094E-1, 6.1448E-1,
     * 6.3632E-1, 6.5842E-1, 6.8228E-1, 7.0600E-1, 7.2445E-1, 7.3937E-1,
     * 7.5246E-1, 2.9987E-1, 3.1554E-1, 3.3729E-1, 3.6266E-1/
      DATA X0401/ 3.7815E-1, 3.9156E-1, 4.0109E-1, 4.0539E-1, 4.0928E-1,
     * 4.1469E-1, 4.2185E-1, 4.3379E-1, 4.4628E-1, 4.6012E-1, 4.7416E-1,
     * 4.8522E-1, 4.9423E-1, 5.0219E-1, 2.1237E-1, 2.2169E-1, 2.3348E-1,
     * 2.4683E-1, 2.5470E-1, 2.6137E-1, 2.6613E-1, 2.6831E-1, 2.7031E-1,
     * 2.7314E-1, 2.7697E-1, 2.8356E-1, 2.9067E-1, 2.9872E-1, 3.0702E-1,
     * 3.1363E-1, 3.1904E-1, 3.2384E-1, 1.0000E+0, 1.0001E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9999E-1, 9.9999E-1, 1.0000E+0, 9.9998E-1, 1.0001E+0,
     * 1.0002E+0, 1.0000E+0, 1.0000E+0, 9.9993E-1, 1.0000E+0, 9.9996E-1,
     * 9.9998E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 9.9998E-1, 9.9998E-1, 1.0000E+0, 9.9997E-1, 1.0001E+0,
     * 1.0002E+0, 1.0000E+0, 1.0000E+0, 9.9996E-1, 9.9992E-1, 9.9989E-1,
     * 9.9994E-1, 9.9996E-1, 9.9997E-1, 9.9997E-1, 9.9998E-1, 9.9998E-1,
     * 9.9998E-1, 9.9997E-1, 9.9998E-1, 9.9999E-1, 9.9997E-1, 1.0001E+0,
     * 1.0002E+0, 9.9999E-1, 9.9999E-1, 9.9952E-1, 9.9959E-1, 9.9968E-1,
     * 9.9980E-1, 9.9986E-1, 9.9990E-1, 9.9992E-1, 9.9994E-1, 9.9995E-1,
     * 9.9995E-1, 9.9995E-1, 9.9996E-1, 9.9998E-1, 9.9995E-1/
      DATA X0501/ 1.0001E+0, 1.0002E+0, 9.9998E-1, 9.9999E-1, 9.9790E-1,
     * 9.9811E-1, 9.9842E-1, 9.9889E-1, 9.9922E-1, 9.9948E-1, 9.9962E-1,
     * 9.9968E-1, 9.9972E-1, 9.9976E-1, 9.9980E-1, 9.9985E-1, 9.9989E-1,
     * 9.9987E-1, 1.0000E+0, 1.0001E+0, 9.9992E-1, 9.9993E-1, 9.9443E-1,
     * 9.9488E-1, 9.9557E-1, 9.9665E-1, 9.9752E-1, 9.9836E-1, 9.9883E-1,
     * 9.9900E-1, 9.9913E-1, 9.9928E-1, 9.9941E-1, 9.9956E-1, 9.9966E-1,
     * 9.9968E-1, 9.9982E-1, 9.9995E-1, 9.9976E-1, 9.9980E-1, 9.8363E-1,
     * 9.8475E-1, 9.8651E-1, 9.8930E-1, 9.9168E-1, 9.9418E-1, 9.9591E-1,
     * 9.9652E-1, 9.9699E-1, 9.9751E-1, 9.9801E-1, 9.9853E-1, 9.9884E-1,
     * 9.9897E-1, 9.9919E-1, 9.9936E-1, 9.9920E-1, 9.9933E-1, 9.5441E-1,
     * 9.5720E-1, 9.6172E-1, 9.6899E-1, 9.7529E-1, 9.8214E-1, 9.8724E-1,
     * 9.8927E-1, 9.9079E-1, 9.9246E-1, 9.9403E-1, 9.9563E-1, 9.9652E-1,
     * 9.9697E-1, 9.9737E-1, 9.9764E-1, 9.9760E-1, 9.9798E-1, 9.2433E-1,
     * 9.2857E-1, 9.3534E-1, 9.4641E-1, 9.5619E-1, 9.6712E-1, 9.7569E-1,
     * 9.7935E-1, 9.8231E-1, 9.8552E-1, 9.8850E-1, 9.9147E-1, 9.9308E-1,
     * 9.9394E-1, 9.9455E-1, 9.9497E-1, 9.9510E-1, 9.9589E-1, 9.2225E-1,
     * 9.2580E-1, 9.3148E-1, 9.4097E-1, 9.4949E-1, 9.5936E-1/
      DATA X0601/ 9.6754E-1, 9.7126E-1, 9.7448E-1, 9.7846E-1, 9.8221E-1,
     * 9.8602E-1, 9.8813E-1, 9.8929E-1, 9.9008E-1, 9.9066E-1, 9.9107E-1,
     * 9.9252E-1, 9.2630E-1, 9.2915E-1, 9.3377E-1, 9.4143E-1, 9.4836E-1,
     * 9.5638E-1, 9.6304E-1, 9.6608E-1, 9.6872E-1, 9.7199E-1, 9.7527E-1,
     * 9.7883E-1, 9.8093E-1, 9.8212E-1, 9.8300E-1, 9.8376E-1, 9.8459E-1,
     * 9.8711E-1, 9.0187E-1, 9.0680E-1, 9.1461E-1, 9.2714E-1, 9.3780E-1,
     * 9.4906E-1, 9.5697E-1, 9.5986E-1, 9.6176E-1, 9.6435E-1, 9.6710E-1,
     * 9.7022E-1, 9.7209E-1, 9.7316E-1, 9.7404E-1, 9.7499E-1, 9.7636E-1,
     * 9.8026E-1, 9.1975E-1, 9.2198E-1, 9.2555E-1, 9.3154E-1, 9.3701E-1,
     * 9.4349E-1, 9.4903E-1, 9.5163E-1, 9.5333E-1, 9.5571E-1, 9.5824E-1,
     * 9.6105E-1, 9.6264E-1, 9.6349E-1, 9.6432E-1, 9.6548E-1, 9.6744E-1,
     * 9.7288E-1, 9.0100E-1, 9.0493E-1, 9.1111E-1, 9.2099E-1, 9.2926E-1,
     * 9.3782E-1, 9.4353E-1, 9.4617E-1, 9.4787E-1, 9.5020E-1, 9.5259E-1,
     * 9.5509E-1, 9.5634E-1, 9.5689E-1, 9.5759E-1, 9.5884E-1, 9.6122E-1,
     * 9.6779E-1, 8.8499E-1, 8.9162E-1, 9.0173E-1, 9.1696E-1, 9.2840E-1,
     * 9.3773E-1, 9.4370E-1, 9.4638E-1, 9.4805E-1, 9.5029E-1, 9.5248E-1,
     * 9.5456E-1, 9.5538E-1, 9.5553E-1, 9.5595E-1, 9.5711E-1/
      DATA X0701/ 9.5957E-1, 9.6648E-1, 8.8779E-1, 8.9528E-1, 9.0667E-1,
     * 9.2367E-1, 9.3619E-1, 9.4609E-1, 9.5215E-1, 9.5478E-1, 9.5634E-1,
     * 9.5840E-1, 9.6028E-1, 9.6178E-1, 9.6200E-1, 9.6157E-1, 9.6148E-1,
     * 9.6224E-1, 9.6424E-1, 9.7037E-1, 9.0578E-1, 9.1065E-1, 9.1950E-1,
     * 9.3768E-1, 9.5080E-1, 9.6089E-1, 9.6682E-1, 9.6934E-1, 9.7076E-1,
     * 9.7258E-1, 9.7412E-1, 9.7499E-1, 9.7457E-1, 9.7346E-1, 9.7271E-1,
     * 9.7284E-1, 9.7396E-1, 9.7833E-1, 9.2608E-1, 9.2960E-1, 9.3891E-1,
     * 9.5780E-1, 9.7120E-1, 9.8123E-1, 9.8691E-1, 9.8926E-1, 9.9049E-1,
     * 9.9203E-1, 9.9316E-1, 9.9332E-1, 9.9216E-1, 9.9026E-1, 9.8867E-1,
     * 9.8794E-1, 9.8777E-1, 9.8956E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9998E-1, 1.0006E+0,
     * 1.0017E+0, 1.0000E+0, 1.0000E+0, 9.9991E-1, 9.9992E-1, 9.9993E-1,
     * 9.9995E-1, 9.9996E-1, 9.9997E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1,
     * 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9997E-1, 1.0006E+0,
     * 1.0017E+0, 9.9999E-1, 1.0000E+0, 9.9979E-1, 9.9981E-1, 9.9984E-1,
     * 9.9988E-1, 9.9991E-1, 9.9993E-1, 9.9995E-1, 9.9996E-1/
      DATA X0801/ 9.9996E-1, 9.9997E-1, 9.9997E-1, 9.9998E-1, 9.9998E-1,
     * 9.9996E-1, 1.0006E+0, 1.0017E+0, 9.9999E-1, 9.9999E-1, 9.9941E-1,
     * 9.9946E-1, 9.9954E-1, 9.9966E-1, 9.9974E-1, 9.9981E-1, 9.9986E-1,
     * 9.9987E-1, 9.9989E-1, 9.9991E-1, 9.9992E-1, 9.9994E-1, 9.9995E-1,
     * 9.9993E-1, 1.0005E+0, 1.0016E+0, 9.9996E-1, 9.9997E-1, 9.9717E-1,
     * 9.9740E-1, 9.9775E-1, 9.9828E-1, 9.9869E-1, 9.9904E-1, 9.9927E-1,
     * 9.9936E-1, 9.9943E-1, 9.9952E-1, 9.9961E-1, 9.9971E-1, 9.9976E-1,
     * 9.9975E-1, 1.0004E+0, 1.0014E+0, 9.9977E-1, 9.9985E-1, 9.9219E-1,
     * 9.9272E-1, 9.9356E-1, 9.9489E-1, 9.9599E-1, 9.9710E-1, 9.9780E-1,
     * 9.9808E-1, 9.9830E-1, 9.9856E-1, 9.9883E-1, 9.9912E-1, 9.9927E-1,
     * 9.9930E-1, 9.9988E-1, 1.0009E+0, 9.9931E-1, 9.9954E-1, 9.7583E-1,
     * 9.7731E-1, 9.7965E-1, 9.8340E-1, 9.8663E-1, 9.9010E-1, 9.9260E-1,
     * 9.9356E-1, 9.9432E-1, 9.9522E-1, 9.9613E-1, 9.9711E-1, 9.9761E-1,
     * 9.9774E-1, 9.9825E-1, 9.9923E-1, 9.9772E-1, 9.9847E-1, 9.2905E-1,
     * 9.3312E-1, 9.3961E-1, 9.5018E-1, 9.5941E-1, 9.6957E-1, 9.7733E-1,
     * 9.8053E-1, 9.8302E-1, 9.8587E-1, 9.8871E-1, 9.9162E-1, 9.9304E-1,
     * 9.9337E-1, 9.9358E-1, 9.9428E-1, 9.9312E-1, 9.9537E-1/
      DATA X0901/ 8.7263E-1, 8.7946E-1, 8.9033E-1, 9.0825E-1, 9.2407E-1,
     * 9.4194E-1, 9.5611E-1, 9.6224E-1, 9.6729E-1, 9.7293E-1, 9.7836E-1,
     * 9.8367E-1, 9.8600E-1, 9.8623E-1, 9.8570E-1, 9.8584E-1, 9.8527E-1,
     * 9.9001E-1, 8.5755E-1, 8.6398E-1, 8.7426E-1, 8.9143E-1, 9.0683E-1,
     * 9.2469E-1, 9.3945E-1, 9.4616E-1, 9.5196E-1, 9.5912E-1, 9.6583E-1,
     * 9.7197E-1, 9.7398E-1, 9.7302E-1, 9.7087E-1, 9.7013E-1, 9.7076E-1,
     * 9.7999E-1, 8.6629E-1, 8.7129E-1, 8.7932E-1, 8.9260E-1, 9.0454E-1,
     * 9.1826E-1, 9.2954E-1, 9.3461E-1, 9.3896E-1, 9.4424E-1, 9.4903E-1,
     * 9.5265E-1, 9.5233E-1, 9.4894E-1, 9.4471E-1, 9.4340E-1, 9.4644E-1,
     * 9.6268E-1, 8.2066E-1, 8.2916E-1, 8.4254E-1, 8.6391E-1, 8.8181E-1,
     * 9.0026E-1, 9.1256E-1, 9.1666E-1, 9.1895E-1, 9.2195E-1, 9.2444E-1,
     * 9.2528E-1, 9.2285E-1, 9.1787E-1, 9.1292E-1, 9.1218E-1, 9.1816E-1,
     * 9.4137E-1, 8.4825E-1, 8.5113E-1, 8.5572E-1, 8.6340E-1, 8.7036E-1,
     * 8.7849E-1, 8.8530E-1, 8.8844E-1, 8.9005E-1, 8.9224E-1, 8.9388E-1,
     * 8.9372E-1, 8.9081E-1, 8.8602E-1, 8.8200E-1, 8.8265E-1, 8.9111E-1,
     * 9.1934E-1, 8.0207E-1, 8.0765E-1, 8.1635E-1, 8.3015E-1, 8.4152E-1,
     * 8.5294E-1, 8.6006E-1, 8.6326E-1, 8.6495E-1, 8.6718E-1/
      DATA X1001/ 8.6886E-1, 8.6889E-1, 8.6650E-1, 8.6272E-1, 8.6006E-1,
     * 8.6192E-1, 8.7168E-1, 9.0216E-1, 7.6301E-1, 7.7213E-1, 7.8602E-1,
     * 8.0689E-1, 8.2245E-1, 8.3494E-1, 8.4255E-1, 8.4584E-1, 8.4765E-1,
     * 8.4996E-1, 8.5174E-1, 8.5206E-1, 8.5023E-1, 8.4735E-1, 8.4573E-1,
     * 8.4835E-1, 8.5863E-1, 8.8977E-1, 7.4660E-1, 7.5678E-1, 7.7214E-1,
     * 7.9479E-1, 8.1101E-1, 8.2389E-1, 8.3158E-1, 8.3482E-1, 8.3663E-1,
     * 8.3891E-1, 8.4068E-1, 8.4113E-1, 8.3965E-1, 8.3737E-1, 8.3642E-1,
     * 8.3945E-1, 8.4986E-1, 8.8096E-1, 7.4569E-1, 7.5365E-1, 7.6672E-1,
     * 7.8967E-1, 8.0592E-1, 8.1875E-1, 8.2631E-1, 8.2946E-1, 8.3122E-1,
     * 8.3342E-1, 8.3512E-1, 8.3559E-1, 8.3426E-1, 8.3226E-1, 8.3163E-1,
     * 8.3482E-1, 8.4521E-1, 8.7611E-1, 7.4429E-1, 7.5107E-1, 7.6429E-1,
     * 7.8719E-1, 8.0332E-1, 8.1600E-1, 8.2342E-1, 8.2648E-1, 8.2820E-1,
     * 8.3033E-1, 8.3196E-1, 8.3240E-1, 8.3115E-1, 8.2929E-1, 8.2883E-1,
     * 8.3210E-1, 8.4245E-1, 8.7314E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9976E-1, 1.0025E+0,
     * 1.0044E+0, 1.0000E+0, 1.0000E+0, 1.0016E+0, 1.0014E+0/
      DATA X1101/ 1.0011E+0, 1.0008E+0, 1.0006E+0, 1.0004E+0, 1.0003E+0,
     * 1.0002E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0,
     * 9.9977E-1, 1.0025E+0, 1.0044E+0, 1.0000E+0, 1.0000E+0, 1.0037E+0,
     * 1.0033E+0, 1.0027E+0, 1.0019E+0, 1.0013E+0, 1.0009E+0, 1.0006E+0,
     * 1.0005E+0, 1.0004E+0, 1.0003E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0,
     * 9.9979E-1, 1.0025E+0, 1.0044E+0, 1.0000E+0, 1.0000E+0, 1.0106E+0,
     * 1.0095E+0, 1.0078E+0, 1.0054E+0, 1.0038E+0, 1.0025E+0, 1.0017E+0,
     * 1.0014E+0, 1.0012E+0, 1.0009E+0, 1.0006E+0, 1.0003E+0, 1.0002E+0,
     * 9.9983E-1, 1.0025E+0, 1.0044E+0, 1.0000E+0, 1.0000E+0, 1.0511E+0,
     * 1.0462E+0, 1.0389E+0, 1.0278E+0, 1.0194E+0, 1.0127E+0, 1.0086E+0,
     * 1.0071E+0, 1.0059E+0, 1.0046E+0, 1.0032E+0, 1.0017E+0, 1.0008E+0,
     * 1.0001E+0, 1.0026E+0, 1.0044E+0, 1.0000E+0, 1.0000E+0, 1.1389E+0,
     * 1.1277E+0, 1.1102E+0, 1.0827E+0, 1.0604E+0, 1.0387E+0, 1.0262E+0,
     * 1.0215E+0, 1.0179E+0, 1.0137E+0, 1.0095E+0, 1.0050E+0, 1.0025E+0,
     * 1.0007E+0, 1.0028E+0, 1.0044E+0, 1.0000E+0, 1.0000E+0, 1.4271E+0,
     * 1.3965E+0, 1.3485E+0, 1.2712E+0, 1.2060E+0, 1.1375E+0, 1.0902E+0,
     * 1.0735E+0, 1.0606E+0, 1.0461E+0, 1.0317E+0, 1.0166E+0/
      DATA X1201/ 1.0081E+0, 1.0030E+0, 1.0034E+0, 1.0045E+0, 1.0000E+0,
     * 1.0000E+0, 2.2621E+0, 2.1779E+0, 2.0450E+0, 1.8287E+0, 1.6421E+0,
     * 1.4394E+0, 1.2893E+0, 1.2300E+0, 1.1861E+0, 1.1383E+0, 1.0931E+0,
     * 1.0476E+0, 1.0227E+0, 1.0085E+0, 1.0048E+0, 1.0048E+0, 1.0000E+0,
     * 9.9999E-1, 3.1196E+0, 2.9890E+0, 2.7816E+0, 2.4406E+0, 2.1412E+0,
     * 1.8067E+0, 1.5462E+0, 1.4359E+0, 1.3473E+0, 1.2534E+0, 1.1674E+0,
     * 1.0839E+0, 1.0392E+0, 1.0144E+0, 1.0060E+0, 1.0048E+0, 9.9992E-1,
     * 9.9995E-1, 2.8856E+0, 2.7848E+0, 2.6236E+0, 2.3548E+0, 2.1137E+0,
     * 1.8350E+0, 1.6054E+0, 1.5016E+0, 1.4121E+0, 1.3025E+0, 1.2020E+0,
     * 1.1026E+0, 1.0476E+0, 1.0164E+0, 1.0053E+0, 1.0040E+0, 9.9958E-1,
     * 9.9986E-1, 2.5161E+0, 2.4289E+0, 2.2902E+0, 2.0614E+0, 1.8593E+0,
     * 1.6315E+0, 1.4512E+0, 1.3734E+0, 1.3096E+0, 1.2387E+0, 1.1680E+0,
     * 1.0889E+0, 1.0396E+0, 1.0101E+0, 1.0009E+0, 1.0018E+0, 9.9885E-1,
     * 9.9970E-1, 1.7750E+0, 1.7356E+0, 1.6727E+0, 1.5685E+0, 1.4758E+0,
     * 1.3703E+0, 1.2853E+0, 1.2479E+0, 1.2165E+0, 1.1761E+0, 1.1284E+0,
     * 1.0659E+0, 1.0231E+0, 9.9810E-1, 9.9383E-1, 9.9866E-1, 9.9787E-1,
     * 9.9949E-1, 1.4617E+0, 1.4456E+0, 1.4194E+0, 1.3740E+0/
      DATA X1301/ 1.3312E+0, 1.2779E+0, 1.2289E+0, 1.2042E+0, 1.1803E+0,
     * 1.1460E+0, 1.1023E+0, 1.0427E+0, 1.0032E+0, 9.8328E-1, 9.8530E-1,
     * 9.9501E-1, 9.9677E-1, 9.9926E-1, 1.4399E+0, 1.4405E+0, 1.4367E+0,
     * 1.4151E+0, 1.3744E+0, 1.2904E+0, 1.1724E+0, 1.3644E+0, 1.1672E+0,
     * 1.1294E+0, 1.0825E+0, 1.0217E+0, 9.8464E-1, 9.6960E-1, 9.7762E-1,
     * 9.9178E-1, 9.9581E-1, 9.9906E-1, 1.9668E+0, 1.8789E+0, 1.7458E+0,
     * 1.5490E+0, 1.4071E+0, 1.3034E+0, 1.1711E+0, 1.3578E+0, 1.1567E+0,
     * 1.1148E+0, 1.0648E+0, 1.0033E+0, 9.6866E-1, 9.5811E-1, 9.7128E-1,
     * 9.8915E-1, 9.9503E-1, 9.9890E-1, 1.2516E+0, 1.3753E+0, 1.5222E+0,
     * 1.5999E+0, 1.4376E+0, 1.3129E+0, 1.1679E+0, 1.3503E+0, 1.1461E+0,
     * 1.1012E+0, 1.0492E+0, 9.8763E-1, 9.5549E-1, 9.4882E-1, 9.6622E-1,
     * 9.8707E-1, 9.9442E-1, 9.9878E-1, 1.0896E+0, 1.3143E+0, 1.5658E+0,
     * 1.6309E+0, 1.4544E+0, 1.3167E+0, 1.1645E+0, 1.3444E+0, 1.1386E+0,
     * 1.0920E+0, 1.0391E+0, 9.7787E-1, 9.4742E-1, 9.4319E-1, 9.6318E-1,
     * 9.8582E-1, 9.9406E-1, 9.9870E-1, 1.1134E+0, 1.3426E+0, 1.5943E+0,
     * 1.6499E+0, 1.4642E+0, 1.3184E+0, 1.1616E+0, 1.3400E+0, 1.1332E+0,
     * 1.0857E+0, 1.0323E+0, 9.7146E-1, 9.4218E-1, 9.3956E-1/
      DATA X1401/ 9.6123E-1, 9.8502E-1, 9.9382E-1, 9.9865E-1, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0018E+0,
     * 1.0015E+0, 1.0012E+0, 1.0008E+0, 1.0005E+0, 1.0004E+0, 1.0003E+0,
     * 1.0002E+0, 1.0002E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0041E+0,
     * 1.0035E+0, 1.0027E+0, 1.0018E+0, 1.0013E+0, 1.0008E+0, 1.0006E+0,
     * 1.0005E+0, 1.0004E+0, 1.0003E+0, 1.0003E+0, 1.0002E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0112E+0,
     * 1.0098E+0, 1.0078E+0, 1.0052E+0, 1.0036E+0, 1.0024E+0, 1.0017E+0,
     * 1.0014E+0, 1.0012E+0, 1.0010E+0, 1.0007E+0, 1.0005E+0, 1.0003E+0,
     * 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0527E+0,
     * 1.0474E+0, 1.0394E+0, 1.0274E+0, 1.0187E+0, 1.0121E+0, 1.0085E+0,
     * 1.0071E+0, 1.0061E+0, 1.0049E+0, 1.0036E+0, 1.0023E+0, 1.0015E+0,
     * 1.0009E+0, 1.0005E+0, 1.0003E+0, 1.0001E+0, 1.0000E+0, 1.1517E+0,
     * 1.1388E+0, 1.1188E+0, 1.0877E+0, 1.0627E+0, 1.0391E+0/
      DATA X1501/ 1.0266E+0, 1.0221E+0, 1.0187E+0, 1.0148E+0, 1.0110E+0,
     * 1.0069E+0, 1.0043E+0, 1.0027E+0, 1.0015E+0, 1.0008E+0, 1.0003E+0,
     * 1.0001E+0, 1.6401E+0, 1.5896E+0, 1.5107E+0, 1.3850E+0, 1.2807E+0,
     * 1.1746E+0, 1.1063E+0, 1.0850E+0, 1.0696E+0, 1.0531E+0, 1.0377E+0,
     * 1.0223E+0, 1.0136E+0, 1.0082E+0, 1.0047E+0, 1.0024E+0, 1.0010E+0,
     * 1.0003E+0, 7.1954E+0, 6.6747E+0, 5.8603E+0, 4.5618E+0, 3.4789E+0,
     * 2.3702E+0, 1.6446E+0, 1.4116E+0, 1.2909E+0, 1.1909E+0, 1.1177E+0,
     * 1.0597E+0, 1.0331E+0, 1.0190E+0, 1.0111E+0, 1.0060E+0, 1.0026E+0,
     * 1.0008E+0, 5.9052E+1, 5.4191E+1, 4.6563E+1, 3.4328E+1, 2.4015E+1,
     * 1.3253E+1, 5.9064E+0, 3.3536E+0, 1.8031E+0, 1.3749E+0, 1.1929E+0,
     * 1.0878E+0, 1.0476E+0, 1.0281E+0, 1.0173E+0, 1.0100E+0, 1.0045E+0,
     * 1.0015E+0, 2.8716E+0, 2.7616E+0, 2.5863E+0, 2.2962E+0, 2.0389E+0,
     * 1.7467E+0, 1.5126E+0, 1.4102E+0, 1.3248E+0, 1.2268E+0, 1.1556E+0,
     * 1.0950E+0, 1.0634E+0, 1.0440E+0, 1.0300E+0, 1.0180E+0, 1.0082E+0,
     * 1.0026E+0, 4.1237E+1, 3.7861E+1, 3.2566E+1, 2.4076E+1, 1.6924E+1,
     * 9.4700E+0, 4.3961E+0, 2.6414E+0, 1.5849E+0, 1.3230E+0, 1.2166E+0,
     * 1.1490E+0, 1.1154E+0, 1.0919E+0, 1.0688E+0, 1.0435E+0/
      DATA X1601/ 1.0204E+0, 1.0068E+0, 6.6482E+0, 6.1792E+0, 5.4464E+0,
     * 4.2806E+0, 3.3121E+0, 2.3276E+0, 1.6937E+0, 1.4968E+0, 1.4027E+0,
     * 1.3270E+0, 1.2710E+0, 1.2225E+0, 1.1941E+0, 1.1692E+0, 1.1348E+0,
     * 1.0881E+0, 1.0425E+0, 1.0146E+0, 2.3254E+0, 2.2341E+0, 2.0920E+0,
     * 1.8675E+0, 1.6834E+0, 1.5007E+0, 1.3898E+0, 1.3598E+0, 1.3396E+0,
     * 1.3198E+0, 1.3034E+0, 1.2886E+0, 1.2774E+0, 1.2588E+0, 1.2155E+0,
     * 1.1443E+0, 1.0709E+0, 1.0248E+0, 1.6957E+0, 1.6507E+0, 1.5824E+0,
     * 1.4803E+0, 1.4050E+0, 1.3464E+0, 1.3355E+0, 1.2918E+0, 1.3199E+0,
     * 1.3214E+0, 1.3271E+0, 1.3386E+0, 1.3448E+0, 1.3355E+0, 1.2874E+0,
     * 1.1956E+0, 1.0973E+0, 1.0344E+0, 1.4172E+0, 1.3976E+0, 1.3686E+0,
     * 1.3280E+0, 1.3022E+0, 1.2909E+0, 1.3072E+0, 1.2756E+0, 1.3125E+0,
     * 1.3258E+0, 1.3454E+0, 1.3758E+0, 1.3963E+0, 1.3957E+0, 1.3454E+0,
     * 1.2379E+0, 1.1194E+0, 1.0427E+0, 1.4276E+0, 1.3813E+0, 1.3191E+0,
     * 1.2545E+0, 1.2509E+0, 1.2606E+0, 1.2912E+0, 1.2668E+0, 1.3090E+0,
     * 1.3300E+0, 1.3591E+0, 1.4033E+0, 1.4349E+0, 1.4418E+0, 1.3907E+0,
     * 1.2714E+0, 1.1372E+0, 1.0493E+0, 1.4039E+0, 1.3417E+0, 1.2664E+0,
     * 1.2209E+0, 1.2264E+0, 1.2454E+0, 1.2830E+0, 1.2623E+0/
      DATA X1701/ 1.3073E+0, 1.3324E+0, 1.3667E+0, 1.4187E+0, 1.4569E+0,
     * 1.4685E+0, 1.4174E+0, 1.2913E+0, 1.1479E+0, 1.0534E+0, 1.3650E+0,
     * 1.3008E+0, 1.2373E+0, 1.2020E+0, 1.2122E+0, 1.2365E+0, 1.2780E+0,
     * 1.2596E+0, 1.3061E+0, 1.3337E+0, 1.3712E+0, 1.4282E+0, 1.4706E+0,
     * 1.4853E+0, 1.4343E+0, 1.3041E+0, 1.1548E+0, 1.0560E+0, 9.9997E-1,
     * 9.9998E-1, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9880E-1,
     * 9.9900E-1, 9.9924E-1, 9.9951E-1, 9.9967E-1, 9.9980E-1, 9.9987E-1,
     * 9.9990E-1, 9.9992E-1, 9.9994E-1, 9.9997E-1, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 9.9722E-1,
     * 9.9764E-1, 9.9821E-1, 9.9885E-1, 9.9922E-1, 9.9951E-1, 9.9968E-1,
     * 9.9974E-1, 9.9979E-1, 9.9985E-1, 9.9992E-1, 9.9999E-1, 1.0000E+0,
     * 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0002E+0, 9.9249E-1,
     * 9.9343E-1, 9.9481E-1, 9.9667E-1, 9.9774E-1, 9.9858E-1, 9.9906E-1,
     * 9.9925E-1, 9.9939E-1, 9.9956E-1, 9.9974E-1, 9.9995E-1, 1.0001E+0,
     * 1.0002E+0, 1.0003E+0, 1.0003E+0, 1.0004E+0, 1.0004E+0/
      DATA X1801/ 9.6621E-1, 9.6967E-1, 9.7491E-1, 9.8270E-1, 9.8840E-1,
     * 9.9274E-1, 9.9524E-1, 9.9617E-1, 9.9691E-1, 9.9777E-1, 9.9868E-1,
     * 9.9973E-1, 1.0005E+0, 1.0010E+0, 1.0014E+0, 1.0017E+0, 1.0018E+0,
     * 1.0020E+0, 9.0971E-1, 9.1739E-1, 9.2932E-1, 9.4798E-1, 9.6303E-1,
     * 9.7747E-1, 9.8550E-1, 9.8842E-1, 9.9072E-1, 9.9339E-1, 9.9614E-1,
     * 9.9930E-1, 1.0014E+0, 1.0030E+0, 1.0042E+0, 1.0049E+0, 1.0054E+0,
     * 1.0058E+0, 6.9101E-1, 7.1483E-1, 7.5213E-1, 8.1178E-1, 8.6187E-1,
     * 9.1372E-1, 9.4851E-1, 9.6024E-1, 9.6907E-1, 9.7895E-1, 9.8865E-1,
     * 9.9917E-1, 1.0058E+0, 1.0105E+0, 1.0137E+0, 1.0157E+0, 1.0171E+0,
     * 1.0182E+0,-5.6741E-1,-4.4385E-1,-2.4976E-1, 6.2107E-2, 3.2585E-1,
     * 6.0255E-1, 7.9366E-1, 8.6143E-1, 9.0409E-1, 9.4480E-1, 9.7860E-1,
     * 1.0090E+0, 1.0249E+0, 1.0345E+0, 1.0405E+0, 1.0439E+0, 1.0463E+0,
     * 1.0481E+0,-5.9369E+0,-5.3776E+0,-4.4980E+0,-3.0810E+0,-1.8775E+0,
     *-6.0499E-1, 2.8786E-1, 6.1297E-1, 8.2669E-1, 9.3800E-1, 1.0007E+0,
     * 1.0442E+0, 1.0639E+0, 1.0754E+0, 1.0827E+0, 1.0871E+0, 1.0902E+0,
     * 1.0928E+0, 6.4421E-1, 6.6861E-1, 7.0770E-1, 7.7310E-1, 8.3211E-1,
     * 9.0085E-1, 9.5824E-1, 9.8459E-1, 1.0076E+0, 1.0365E+0/
      DATA X1901/ 1.0651E+0, 1.0967E+0, 1.1177E+0, 1.1337E+0, 1.1461E+0,
     * 1.1544E+0, 1.1606E+0, 1.1658E+0,-6.2090E+0,-5.6261E+0,-4.7094E+0,
     *-3.2320E+0,-1.9764E+0,-6.4748E-1, 2.8700E-1, 6.2848E-1, 8.5421E-1,
     * 9.7551E-1, 1.0498E+0, 1.1101E+0, 1.1452E+0, 1.1718E+0, 1.1926E+0,
     * 1.2067E+0, 1.2171E+0, 1.2258E+0,-9.4321E-1,-7.8610E-1,-5.3944E-1,
     *-1.4334E-1, 1.9123E-1, 5.4156E-1, 7.8249E-1, 8.6731E-1, 9.2002E-1,
     * 9.7124E-1, 1.0166E+0, 1.0645E+0, 1.0979E+0, 1.1259E+0, 1.1493E+0,
     * 1.1656E+0, 1.1778E+0, 1.1880E+0, 4.0217E-1, 4.4326E-1, 5.0758E-1,
     * 6.1027E-1, 6.9615E-1, 7.8448E-1, 8.4290E-1, 8.6206E-1, 8.7673E-1,
     * 8.9392E-1, 9.1259E-1, 9.3748E-1, 9.5882E-1, 9.7932E-1, 9.9793E-1,
     * 1.0115E+0, 1.0220E+0, 1.0309E+0, 6.0620E-1, 6.1863E-1, 6.3786E-1,
     * 6.6779E-1, 6.9170E-1, 7.1422E-1, 7.2603E-1, 7.3065E-1, 7.3460E-1,
     * 7.3984E-1, 7.4649E-1, 7.5722E-1, 7.6814E-1, 7.7992E-1, 7.9150E-1,
     * 8.0036E-1, 8.0741E-1, 8.1352E-1, 5.4378E-1, 5.4596E-1, 5.4913E-1,
     * 5.5336E-1, 5.5569E-1, 5.5584E-1, 5.5576E-1, 5.5590E-1, 5.5616E-1,
     * 5.5680E-1, 5.5810E-1, 5.6129E-1, 5.6556E-1, 5.7095E-1, 5.7681E-1,
     * 5.8157E-1, 5.8549E-1, 5.8897E-1, 3.9806E-1, 3.9648E-1/
      DATA X2001/ 3.9386E-1, 3.8919E-1, 3.8458E-1, 3.7991E-1, 3.7682E-1,
     * 3.7564E-1, 3.7474E-1, 3.7377E-1, 3.7298E-1, 3.7272E-1, 3.7350E-1,
     * 3.7517E-1, 3.7742E-1, 3.7944E-1, 3.8121E-1, 3.8283E-1, 2.7446E-1,
     * 2.7223E-1, 2.6866E-1, 2.6273E-1, 2.5801E-1, 2.5348E-1, 2.5042E-1,
     * 2.4921E-1, 2.4823E-1, 2.4708E-1, 2.4592E-1, 2.4482E-1, 2.4449E-1,
     * 2.4480E-1, 2.4558E-1, 2.4642E-1, 2.4721E-1, 2.4797E-1, 1.8053E-1,
     * 1.7854E-1, 1.7540E-1, 1.7064E-1, 1.6702E-1, 1.6357E-1, 1.6121E-1,
     * 1.6026E-1, 1.5948E-1, 1.5853E-1, 1.5753E-1, 1.5644E-1, 1.5588E-1,
     * 1.5573E-1, 1.5593E-1, 1.5626E-1, 1.5661E-1, 1.5696E-1, 5.3333E-5,
     * 5.6952E-5, 6.3018E-5, 7.3966E-5, 8.4837E-5, 9.9044E-5, 1.1278E-4,
     * 1.1999E-4, 1.2703E-4, 1.3753E-4, 1.5252E-4, 1.8010E-4, 2.1316E-4,
     * 2.5790E-4, 3.1689E-4, 3.8126E-4, 4.5478E-4, 5.4876E-4, 5.3343E-5,
     * 5.6962E-5, 6.3028E-5, 7.3975E-5, 8.4847E-5, 9.9054E-5, 1.1279E-4,
     * 1.2000E-4, 1.2704E-4, 1.3754E-4, 1.5253E-4, 1.8011E-4, 2.1317E-4,
     * 2.5791E-4, 3.1690E-4, 3.8127E-4, 4.5479E-4, 5.4877E-4, 5.3341E-5,
     * 5.6975E-5, 6.3041E-5, 7.3989E-5, 8.4860E-5, 9.9067E-5, 1.1280E-4,
     * 1.2002E-4, 1.2706E-4, 1.3755E-4, 1.5255E-4, 1.8012E-4/
      DATA X2101/ 2.1318E-4, 2.5792E-4, 3.1691E-4, 3.8128E-4, 4.5481E-4,
     * 5.4879E-4, 5.3290E-5, 5.6970E-5, 6.3085E-5, 7.4032E-5, 8.4904E-5,
     * 9.9111E-5, 1.1285E-4, 1.2006E-4, 1.2710E-4, 1.3760E-4, 1.5259E-4,
     * 1.8017E-4, 2.1323E-4, 2.5797E-4, 3.1695E-4, 3.8133E-4, 4.5485E-4,
     * 5.4883E-4, 5.3266E-5, 5.7027E-5, 6.3250E-5, 7.4307E-5, 8.5179E-5,
     * 9.9386E-5, 1.1312E-4, 1.2033E-4, 1.2738E-4, 1.3787E-4, 1.5287E-4,
     * 1.8044E-4, 2.1350E-4, 2.5824E-4, 3.1723E-4, 3.8160E-4, 4.5512E-4,
     * 5.4910E-4, 5.3522E-5, 5.7373E-5, 6.3726E-5, 7.4955E-5, 8.5919E-5,
     * 1.0013E-4, 1.1386E-4, 1.2107E-4, 1.2812E-4, 1.3861E-4, 1.5361E-4,
     * 1.8118E-4, 2.1424E-4, 2.5898E-4, 3.1797E-4, 3.8234E-4, 4.5586E-4,
     * 5.4984E-4, 5.6202E-5, 6.0122E-5, 6.6579E-5, 7.7960E-5, 8.9033E-5,
     * 1.0332E-4, 1.1706E-4, 1.2427E-4, 1.3131E-4, 1.4180E-4, 1.5680E-4,
     * 1.8438E-4, 2.1744E-4, 2.6217E-4, 3.2116E-4, 3.8554E-4, 4.5906E-4,
     * 5.5304E-4, 7.0449E-5, 7.4401E-5, 8.0916E-5, 9.2383E-5, 1.0352E-4,
     * 1.1786E-4, 1.3162E-4, 1.3883E-4, 1.4587E-4, 1.5637E-4, 1.7136E-4,
     * 1.9894E-4, 2.3200E-4, 2.7674E-4, 3.3573E-4, 4.0010E-4, 4.7362E-4,
     * 5.6760E-4, 1.0939E-4, 1.1336E-4, 1.1988E-4, 1.3137E-4/
      DATA X2201/ 1.4252E-4, 1.5688E-4, 1.7066E-4, 1.7787E-4, 1.8491E-4,
     * 1.9541E-4, 2.1040E-4, 2.3798E-4, 2.7104E-4, 3.1578E-4, 3.7476E-4,
     * 4.3914E-4, 5.1266E-4, 6.0664E-4, 1.9622E-4, 2.0016E-4, 2.0666E-4,
     * 2.1811E-4, 2.2923E-4, 2.4355E-4, 2.5730E-4, 2.6451E-4, 2.7154E-4,
     * 2.8204E-4, 2.9703E-4, 3.2461E-4, 3.5767E-4, 4.0241E-4, 4.6140E-4,
     * 5.2577E-4, 5.9929E-4, 6.9327E-4, 3.3550E-4, 3.3947E-4, 3.4600E-4,
     * 3.5748E-4, 3.6864E-4, 3.8301E-4, 3.9678E-4, 4.0399E-4, 4.1103E-4,
     * 4.2153E-4, 4.3652E-4, 4.6410E-4, 4.9716E-4, 5.4190E-4, 6.0089E-4,
     * 6.6526E-4, 7.3878E-4, 8.3276E-4, 5.3794E-4, 5.4204E-4, 5.4884E-4,
     * 5.6078E-4, 5.7239E-4, 5.8733E-4, 6.0165E-4, 6.0917E-4, 6.1650E-4,
     * 6.2744E-4, 6.4305E-4, 6.7178E-4, 7.0622E-4, 7.5282E-4, 8.1427E-4,
     * 8.8132E-4, 9.5791E-4, 1.0558E-3, 8.5071E-4, 8.5480E-4, 8.6153E-4,
     * 8.7338E-4, 8.8491E-4, 8.9979E-4, 9.1410E-4, 9.2161E-4, 9.2895E-4,
     * 9.3988E-4, 9.5550E-4, 9.8423E-4, 1.0187E-3, 1.0653E-3, 1.1267E-3,
     * 1.1938E-3, 1.2704E-3, 1.3682E-3, 1.3464E-3, 1.3504E-3, 1.3571E-3,
     * 1.3688E-3, 1.3802E-3, 1.3950E-3, 1.4093E-3, 1.4168E-3, 1.4241E-3,
     * 1.4351E-3, 1.4507E-3, 1.4794E-3, 1.5139E-3, 1.5605E-3/
      DATA X2301/ 1.6219E-3, 1.6890E-3, 1.7655E-3, 1.8634E-3, 2.0537E-3,
     * 2.0577E-3, 2.0641E-3, 2.0757E-3, 2.0870E-3, 2.1018E-3, 2.1161E-3,
     * 2.1236E-3, 2.1309E-3, 2.1419E-3, 2.1575E-3, 2.1862E-3, 2.2206E-3,
     * 2.2673E-3, 2.3287E-3, 2.3958E-3, 2.4723E-3, 2.5702E-3, 2.9491E-3,
     * 2.9529E-3, 2.9593E-3, 2.9707E-3, 2.9820E-3, 2.9968E-3, 3.0111E-3,
     * 3.0186E-3, 3.0260E-3, 3.0369E-3, 3.0525E-3, 3.0812E-3, 3.1157E-3,
     * 3.1623E-3, 3.2237E-3, 3.2908E-3, 3.3674E-3, 3.4653E-3, 3.6966E-3,
     * 3.7004E-3, 3.7067E-3, 3.7181E-3, 3.7294E-3, 3.7442E-3, 3.7585E-3,
     * 3.7661E-3, 3.7734E-3, 3.7843E-3, 3.7999E-3, 3.8287E-3, 3.8631E-3,
     * 3.9097E-3, 3.9711E-3, 4.0382E-3, 4.1148E-3, 4.2127E-3, 4.2864E-3,
     * 4.2902E-3, 4.2965E-3, 4.3079E-3, 4.3193E-3, 4.3341E-3, 4.3484E-3,
     * 4.3559E-3, 4.3632E-3, 4.3742E-3, 4.3898E-3, 4.4185E-3, 4.4529E-3,
     * 4.4995E-3, 4.5610E-3, 4.6280E-3, 4.7046E-3, 4.8025E-3, 5.9747E-5,
     * 6.4015E-5, 7.1128E-5, 8.3931E-5, 9.6734E-5, 1.1380E-4, 1.3088E-4,
     * 1.4012E-4, 1.4734E-4, 1.5938E-4, 1.7834E-4, 2.1811E-4, 2.7190E-4,
     * 3.4458E-4, 4.2796E-4, 5.2231E-4, 6.3394E-4, 7.8186E-4, 5.9748E-5,
     * 6.4015E-5, 7.1128E-5, 8.3931E-5, 9.6734E-5, 1.1380E-4/
      DATA X2401/ 1.3088E-4, 1.4012E-4, 1.4734E-4, 1.5938E-4, 1.7834E-4,
     * 2.1811E-4, 2.7190E-4, 3.4458E-4, 4.2796E-4, 5.2231E-4, 6.3394E-4,
     * 7.8186E-4, 5.9748E-5, 6.4015E-5, 7.1128E-5, 8.3931E-5, 9.6734E-5,
     * 1.1380E-4, 1.3088E-4, 1.4012E-4, 1.4734E-4, 1.5938E-4, 1.7834E-4,
     * 2.1811E-4, 2.7190E-4, 3.4458E-4, 4.2796E-4, 5.2231E-4, 6.3394E-4,
     * 7.8186E-4, 5.9748E-5, 6.4016E-5, 7.1129E-5, 8.3932E-5, 9.6735E-5,
     * 1.1381E-4, 1.3088E-4, 1.4012E-4, 1.4734E-4, 1.5939E-4, 1.7834E-4,
     * 2.1811E-4, 2.7190E-4, 3.4458E-4, 4.2796E-4, 5.2231E-4, 6.3394E-4,
     * 7.8186E-4, 6.1127E-5, 6.5395E-5, 7.2508E-5, 8.5311E-5, 9.8114E-5,
     * 1.1518E-4, 1.3226E-4, 1.4150E-4, 1.4872E-4, 1.6076E-4, 1.7972E-4,
     * 2.1949E-4, 2.7328E-4, 3.4596E-4, 4.2934E-4, 5.2369E-4, 6.3532E-4,
     * 7.8324E-4, 6.4382E-5, 6.8650E-5, 7.5763E-5, 8.8566E-5, 1.0137E-4,
     * 1.1844E-4, 1.3551E-4, 1.4476E-4, 1.5198E-4, 1.6402E-4, 1.8298E-4,
     * 2.2275E-4, 2.7653E-4, 3.4922E-4, 4.3260E-4, 5.2694E-4, 6.3858E-4,
     * 7.8650E-4, 7.6684E-5, 8.0952E-5, 8.8066E-5, 1.0087E-4, 1.1367E-4,
     * 1.3074E-4, 1.4781E-4, 1.5706E-4, 1.6428E-4, 1.7632E-4, 1.9528E-4,
     * 2.3505E-4, 2.8883E-4, 3.6152E-4, 4.4490E-4, 5.3925E-4/
      DATA X2501/ 6.5088E-4, 7.9880E-4, 5.1025E-5, 6.2734E-5, 8.1301E-5,
     * 1.1169E-4, 1.3820E-4, 1.6750E-4, 1.8989E-4, 1.9913E-4, 2.0636E-4,
     * 2.1840E-4, 2.3736E-4, 2.7713E-4, 3.3091E-4, 4.0359E-4, 4.8697E-4,
     * 5.8132E-4, 6.9295E-4, 8.4087E-4, 2.3710E-4, 2.3845E-4, 2.4094E-4,
     * 2.4614E-4, 2.5224E-4, 2.6181E-4, 2.7300E-4, 2.7975E-4, 2.8697E-4,
     * 2.9901E-4, 3.1797E-4, 3.5774E-4, 4.1152E-4, 4.8421E-4, 5.6759E-4,
     * 6.6193E-4, 7.7357E-4, 9.2149E-4, 3.5996E-4, 3.6262E-4, 3.6714E-4,
     * 3.7560E-4, 3.8443E-4, 3.9682E-4, 4.0989E-4, 4.1726E-4, 4.2483E-4,
     * 4.3687E-4, 4.5583E-4, 4.9560E-4, 5.4938E-4, 6.2207E-4, 7.0545E-4,
     * 7.9980E-4, 9.1143E-4, 1.0593E-3, 5.7035E-4, 5.7171E-4, 5.7421E-4,
     * 5.7939E-4, 5.8550E-4, 5.9507E-4, 6.0626E-4, 6.1301E-4, 6.2023E-4,
     * 6.3227E-4, 6.5123E-4, 6.9100E-4, 7.4478E-4, 8.1747E-4, 9.0085E-4,
     * 9.9519E-4, 1.1068E-3, 1.2547E-3, 6.7437E-4, 6.8606E-4, 7.0465E-4,
     * 7.3503E-4, 7.6155E-4, 7.9085E-4, 8.1324E-4, 8.2248E-4, 8.2970E-4,
     * 8.4175E-4, 8.6071E-4, 9.0047E-4, 9.5426E-4, 1.0269E-3, 1.1103E-3,
     * 1.2047E-3, 1.3163E-3, 1.4642E-3, 9.5339E-4, 9.5766E-4, 9.6477E-4,
     * 9.7756E-4, 9.9036E-4, 1.0074E-3, 1.0245E-3, 1.0337E-3/
      DATA X2601/ 1.0410E-3, 1.0530E-3, 1.0720E-3, 1.1117E-3, 1.1655E-3,
     * 1.2382E-3, 1.3216E-3, 1.4159E-3, 1.5276E-3, 1.6755E-3, 1.1275E-3,
     * 1.1317E-3, 1.1389E-3, 1.1517E-3, 1.1645E-3, 1.1815E-3, 1.1986E-3,
     * 1.2078E-3, 1.2151E-3, 1.2271E-3, 1.2461E-3, 1.2858E-3, 1.3396E-3,
     * 1.4123E-3, 1.4957E-3, 1.5900E-3, 1.7017E-3, 1.8496E-3, 1.2641E-3,
     * 1.2684E-3, 1.2755E-3, 1.2883E-3, 1.3011E-3, 1.3181E-3, 1.3352E-3,
     * 1.3445E-3, 1.3517E-3, 1.3637E-3, 1.3827E-3, 1.4225E-3, 1.4762E-3,
     * 1.5489E-3, 1.6323E-3, 1.7266E-3, 1.8383E-3, 1.9862E-3, 1.3699E-3,
     * 1.3741E-3, 1.3813E-3, 1.3941E-3, 1.4069E-3, 1.4239E-3, 1.4410E-3,
     * 1.4503E-3, 1.4575E-3, 1.4695E-3, 1.4885E-3, 1.5282E-3, 1.5820E-3,
     * 1.6547E-3, 1.7381E-3, 1.8324E-3, 1.9441E-3, 2.0920E-3, 1.4323E-3,
     * 1.4366E-3, 1.4437E-3, 1.4565E-3, 1.4693E-3, 1.4864E-3, 1.5034E-3,
     * 1.5127E-3, 1.5199E-3, 1.5319E-3, 1.5509E-3, 1.5907E-3, 1.6444E-3,
     * 1.7171E-3, 1.8005E-3, 1.8949E-3, 2.0065E-3, 2.1544E-3, 1.4720E-3,
     * 1.4763E-3, 1.4834E-3, 1.4962E-3, 1.5090E-3, 1.5261E-3, 1.5432E-3,
     * 1.5524E-3, 1.5596E-3, 1.5717E-3, 1.5906E-3, 1.6304E-3, 1.6842E-3,
     * 1.7569E-3, 1.8403E-3, 1.9346E-3, 2.0462E-3, 2.1942E-3/
      DATA X2701/ 4.2000E-1, 4.3000E-1, 4.5000E-1, 4.7500E-1, 5.0000E-1,
     * 5.3000E-1, 5.6000E-1, 6.0000E-1, 6.5000E-1, 7.0000E-1, 7.5000E-1,
     * 8.0000E-1, 8.5000E-1, 9.0000E-1, 9.5000E-1, 9.7000E-1, 9.8200E-1,
     * 9.9000E-1, 9.9500E-1, 9.9800E-1, 9.9900E-1, 1.0000E+0, 4.5805E-4,
     * 6.3183E-4, 1.1488E-3, 2.2485E-3, 4.0928E-3, 7.7431E-3, 1.3596E-2,
     * 2.6187E-2, 5.2612E-2, 9.5220E-2, 1.5901E-1, 2.4928E-1, 3.7154E-1,
     * 5.3175E-1, 7.3740E-1, 8.3475E-1, 8.9794E-1, 9.4223E-1, 9.7084E-1,
     * 9.8837E-1, 9.9427E-1, 1.0000E+0, 2.9128E+0, 2.8965E+0, 2.8637E+0,
     * 2.8223E+0, 2.7804E+0, 2.7294E+0, 2.6774E+0, 2.6063E+0, 2.5137E+0,
     * 2.4153E+0, 2.3092E+0, 2.1922E+0, 2.0590E+0, 1.8988E+0, 1.6819E+0,
     * 1.5564E+0, 1.4527E+0, 1.3552E+0, 1.2647E+0, 1.1787E+0, 1.1353E+0,
     * 1.0000E+0, 3.1936E-4, 4.3052E-4, 7.4912E-4, 1.3930E-3, 2.4184E-3,
     * 4.3449E-3, 7.2854E-3, 1.3308E-2, 2.5369E-2, 4.4244E-2, 7.2367E-2,
     * 1.1317E-1, 1.7213E-1, 2.5978E-1, 4.0501E-1, 5.0169E-1, 5.8793E-1,
     * 6.7429E-1, 7.5959E-1, 8.4918E-1, 9.1077E-1, 1.0000E+0, 1.3818E+1,
     * 1.3943E+1, 1.4198E+1, 1.4522E+1, 1.4846E+1, 1.5228E+1, 1.5597E+1,
     * 1.6063E+1, 1.6603E+1, 1.7100E+1, 1.7570E+1, 1.8029E+1/
      DATA X2801/ 1.8489E+1, 1.8965E+1, 1.9498E+1, 1.9766E+1, 1.9972E+1,
     * 2.0154E+1, 2.0315E+1, 2.0462E+1, 2.0536E+1, 2.0790E+1, 2.7636E+1,
     * 2.7396E+1, 2.6954E+1, 2.6467E+1, 2.6039E+1, 2.5593E+1, 2.5205E+1,
     * 2.4761E+1, 2.4291E+1, 2.3888E+1, 2.3526E+1, 2.3188E+1, 2.2851E+1,
     * 2.2489E+1, 2.2037E+1, 2.1784E+1, 2.1577E+1, 2.1385E+1, 2.1205E+1,
     * 2.1028E+1, 2.0911E+1, 2.0790E+1, 5.8036E+0, 5.8566E+0, 5.9688E+0,
     * 6.1187E+0, 6.2769E+0, 6.4740E+0, 6.6759E+0, 6.9477E+0, 7.2875E+0,
     * 7.6282E+0, 7.9770E+0, 8.3443E+0, 8.7408E+0, 9.1806E+0, 9.7079E+0,
     * 9.9832E+0, 1.0196E+1, 1.0385E+1, 1.0551E+1, 1.0701E+1, 1.0777E+1,
     * 1.1033E+1, 1.1607E+1, 1.1642E+1, 1.1709E+1, 1.1793E+1, 1.1874E+1,
     * 1.1968E+1, 1.2057E+1, 1.2166E+1, 1.2285E+1, 1.2380E+1, 1.2444E+1,
     * 1.2471E+1, 1.2448E+1, 1.2352E+1, 1.2119E+1, 1.1940E+1, 1.1773E+1,
     * 1.1603E+1, 1.1437E+1, 1.1266E+1, 1.1152E+1, 1.1033E+1, 2.5983E-1,
     * 1.5478E+2, 5.0830E+0, 4.3250E-1, 1.0000E-3, 3.0000E-3, 1.0000E-3,
     * 1.0000E-3/

      CALL FLUID0(G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,M)
      RETURN

      END
      SUBROUTINE PH2
C.....PARA-HYDROGEN TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 4.1260  JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 32.976 DEG. K                   C(2)
C       PCRIT = 1.298 MEGA-NEWTONS / METER**2   C(3)
C       DCRIT = 0.03143 GRAMS / CENTIMETER**3   C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)

      DIMENSION G(29,4),TT(20),DD(18),GG(20,18,8),SAT(22,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(100),X1601(100),X1701(100),X1801(100),X1901(100),
     *          X2001(100),X2101(100),X2201(100),X2301(100),X2401(100),
     *          X2501(100),X2601(100),X2701(100),X2801(100),X2901(100),
     *          X3001(100),X3101(100),X3201(18)

      DIMENSION Z(3218)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501)), (X1601,Z(1601)), (X1701,Z(1701)),
     *            (X1801,Z(1801)), (X1901,Z(1901)), (X2001,Z(2001)),
     *            (X2101,Z(2101)), (X2201,Z(2201)), (X2301,Z(2301)),
     *            (X2401,Z(2401)), (X2501,Z(2501)), (X2601,Z(2601)),
     *            (X2701,Z(2701)), (X2801,Z(2801)), (X2901,Z(2901)),
     *            (X3001,Z(3001)), (X3101,Z(3101)), (X3201,Z(3201))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0117)),(DD,Z(0137)),(GG,Z(0155)),
     *            (SAT,Z(3035)),(C,Z(3211))
      DATA NG,N1,N2,N3,NS/29,20,18,8,22/

      DATA X0001/ 4.2500E-1, 5.0000E-1, 6.0000E-1, 7.5000E-1, 9.0000E-1,
     * 1.2000E+0, 1.5000E+0, 1.8000E+0, 2.2000E+0, 2.7000E+0, 3.4000E+0,
     * 4.0000E+0, 4.5000E+0, 5.0000E+0, 5.7000E+0, 6.5000E+0, 7.5000E+0,
     * 9.0000E+0, 1.1000E+1, 1.4000E+1, 1.8000E+1, 2.3000E+1, 3.0000E+1,
     * 3.8000E+1, 4.7000E+1, 5.8000E+1, 7.0000E+1, 8.3000E+1, 9.1000E+1,
     * 9.1109E+0, 9.3546E+0, 9.6279E+0, 9.9625E+0, 1.0236E+1, 1.0667E+1,
     * 1.1001E+1, 1.1280E+1, 1.1608E+1, 1.1990E+1, 1.2509E+1, 1.2939E+1,
     * 1.3277E+1, 1.3584E+1, 1.3966E+1, 1.4344E+1, 1.4744E+1, 1.5231E+1,
     * 1.5743E+1, 1.6349E+1, 1.6981E+1, 1.7604E+1, 1.8297E+1, 1.8935E+1,
     * 1.9535E+1, 2.0161E+1, 2.0753E+1, 2.1319E+1, 2.1635E+1, 6.1272E+0,
     * 6.2217E+0, 6.3475E+0, 6.5364E+0, 6.7252E+0, 7.1028E+0, 7.4802E+0,
     * 7.8659E+0, 8.4255E+0, 9.2415E+0, 1.0653E+1, 1.2100E+1, 1.3417E+1,
     * 1.4750E+1, 1.6627E+1, 1.8734E+1, 2.1285E+1, 2.4928E+1, 2.9554E+1,
     * 3.6369E+1, 4.5464E+1, 5.6982E+1, 7.3550E+1, 9.3249E+1, 1.1652E+2,
     * 1.4665E+2, 1.8159E+2, 2.2163E+2, 2.4723E+2, 1.4993E+0, 1.4992E+0,
     * 1.4992E+0, 1.4992E+0, 1.4992E+0, 1.4992E+0, 1.5006E+0, 1.5626E+0,
     * 1.7299E+0, 2.0260E+0, 2.4839E+0, 2.7979E+0, 2.9241E+0/
      DATA X0101/ 2.9317E+0, 2.9045E+0, 2.8408E+0, 2.7405E+0, 2.6043E+0,
     * 2.5261E+0, 2.5100E+0, 2.5232E+0, 2.5684E+0, 2.6491E+0, 2.7590E+0,
     * 2.8947E+0, 3.0641E+0, 3.2374E+0, 3.3982E+0, 3.4801E+0, 4.2500E-1,
     * 4.5000E-1, 5.0000E-1, 5.9000E-1, 6.8000E-1, 8.0000E-1, 9.2000E-1,
     * 9.9000E-1, 1.0500E+0, 1.1500E+0, 1.3000E+0, 1.6000E+0, 2.0000E+0,
     * 3.0000E+0, 5.0000E+0, 9.0000E+0, 1.6000E+1, 3.0000E+1, 6.0000E+1,
     * 9.1000E+1, 1.0000E-5, 4.4000E-3, 6.5000E-3, 1.2800E-2, 3.5000E-2,
     * 7.2000E-2, 1.6800E-1, 3.6000E-1, 7.0000E-1, 1.0000E+0, 1.3000E+0,
     * 1.7000E+0, 1.9800E+0, 2.1800E+0, 2.2900E+0, 2.3800E+0, 2.4300E+0,
     * 2.4500E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0,
     * 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0,
     * 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0,
     * 1.2404E+0, 1.2404E+0, 1.2404E+0, 1.2299E+0, 1.2307E+0, 1.2320E+0,
     * 1.2338E+0, 1.2351E+0, 1.2363E+0, 1.2371E+0, 1.2375E+0, 1.2378E+0,
     * 1.2382E+0, 1.2386E+0, 1.2392E+0, 1.2396E+0, 1.2401E+0, 1.2403E+0,
     * 1.2404E+0, 1.2405E+0, 1.2405E+0, 1.2405E+0, 1.2405E+0, 1.2250E+0,
     * 1.2261E+0, 1.2281E+0, 1.2307E+0, 1.2326E+0, 1.2343E+0/
      DATA X0201/ 1.2356E+0, 1.2361E+0, 1.2366E+0, 1.2371E+0, 1.2378E+0,
     * 1.2386E+0, 1.2392E+0, 1.2399E+0, 1.2403E+0, 1.2404E+0, 1.2405E+0,
     * 1.2405E+0, 1.2405E+0, 1.2405E+0, 1.2110E+0, 1.2129E+0, 1.2163E+0,
     * 1.2214E+0, 1.2251E+0, 1.2285E+0, 1.2309E+0, 1.2320E+0, 1.2328E+0,
     * 1.2339E+0, 1.2352E+0, 1.2369E+0, 1.2381E+0, 1.2394E+0, 1.2401E+0,
     * 1.2404E+0, 1.2405E+0, 1.2405E+0, 1.2405E+0, 1.2405E+0, 1.1713E+0,
     * 1.1746E+0, 1.1808E+0, 1.1909E+0, 1.1995E+0, 1.2086E+0, 1.2151E+0,
     * 1.2180E+0, 1.2201E+0, 1.2231E+0, 1.2265E+0, 1.2309E+0, 1.2341E+0,
     * 1.2376E+0, 1.2394E+0, 1.2402E+0, 1.2404E+0, 1.2404E+0, 1.2404E+0,
     * 1.2404E+0, 1.1057E+0, 1.1120E+0, 1.1240E+0, 1.1433E+0, 1.1599E+0,
     * 1.1775E+0, 1.1902E+0, 1.1960E+0, 1.2002E+0, 1.2060E+0, 1.2127E+0,
     * 1.2214E+0, 1.2279E+0, 1.2347E+0, 1.2382E+0, 1.2395E+0, 1.2398E+0,
     * 1.2399E+0, 1.2398E+0, 1.2398E+0, 9.8192E-1, 9.9238E-1, 1.0124E+0,
     * 1.0455E+0, 1.0747E+0, 1.1076E+0, 1.1337E+0, 1.1457E+0, 1.1545E+0,
     * 1.1669E+0, 1.1811E+0, 1.1995E+0, 1.2132E+0, 1.2272E+0, 1.2342E+0,
     * 1.2364E+0, 1.2367E+0, 1.2366E+0, 1.2364E+0, 1.2363E+0, 8.2478E-1,
     * 8.3949E-1, 8.6783E-1, 9.1521E-1, 9.5795E-1, 1.0077E+0/
      DATA X0301/ 1.0491E+0, 1.0695E+0, 1.0847E+0, 1.1062E+0, 1.1312E+0,
     * 1.1642E+0, 1.1885E+0, 1.2129E+0, 1.2240E+0, 1.2266E+0, 1.2262E+0,
     * 1.2254E+0, 1.2247E+0, 1.2244E+0, 7.6375E-1, 7.7731E-1, 8.0368E-1,
     * 8.4836E-1, 8.8958E-1, 9.3906E-1, 9.8232E-1, 1.0047E+0, 1.0222E+0,
     * 1.0478E+0, 1.0791E+0, 1.1223E+0, 1.1554E+0, 1.1892E+0, 1.2040E+0,
     * 1.2064E+0, 1.2049E+0, 1.2029E+0, 1.2015E+0, 1.2009E+0, 8.2315E-1,
     * 8.3249E-1, 8.5075E-1, 8.8208E-1, 9.1147E-1, 9.4762E-1, 9.8030E-1,
     * 9.9776E-1, 1.0118E+0, 1.0332E+0, 1.0609E+0, 1.1015E+0, 1.1346E+0,
     * 1.1697E+0, 1.1857E+0, 1.1881E+0, 1.1861E+0, 1.1838E+0, 1.1820E+0,
     * 1.1813E+0, 8.6037E-1, 8.6725E-1, 8.8078E-1, 9.0424E-1, 9.2656E-1,
     * 9.5455E-1, 9.8052E-1, 9.9473E-1, 1.0064E+0, 1.0246E+0, 1.0486E+0,
     * 1.0847E+0, 1.1145E+0, 1.1463E+0, 1.1599E+0, 1.1607E+0, 1.1577E+0,
     * 1.1546E+0, 1.1524E+0, 1.1515E+0, 8.4833E-1, 8.5611E-1, 8.7123E-1,
     * 8.9688E-1, 9.2059E-1, 9.4908E-1, 9.7408E-1, 9.8705E-1, 9.9721E-1,
     * 1.0122E+0, 1.0307E+0, 1.0560E+0, 1.0746E+0, 1.0895E+0, 1.0891E+0,
     * 1.0806E+0, 1.0726E+0, 1.0666E+0, 1.0627E+0, 1.0613E+0, 9.1991E-1,
     * 9.2443E-1, 9.3316E-1, 9.4766E-1, 9.6073E-1, 9.7586E-1/
      DATA X0401/ 9.8838E-1, 9.9447E-1, 9.9901E-1, 1.0053E+0, 1.0121E+0,
     * 1.0188E+0, 1.0200E+0, 1.0110E+0, 9.9162E-1, 9.7104E-1, 9.5675E-1,
     * 9.4706E-1, 9.4113E-1, 9.3904E-1, 1.0353E+0, 1.0320E+0, 1.0258E+0,
     * 1.0159E+0, 1.0075E+0, 9.9878E-1, 9.9280E-1, 9.8986E-1, 9.8747E-1,
     * 9.8358E-1, 9.7772E-1, 9.6590E-1, 9.5085E-1, 9.2076E-1, 8.8566E-1,
     * 8.5542E-1, 8.3622E-1, 8.2372E-1, 8.1623E-1, 8.1362E-1, 1.1148E+0,
     * 1.1035E+0, 1.0823E+0, 1.0493E+0, 1.0231E+0, 9.9847E-1, 9.8073E-1,
     * 9.7218E-1, 9.6556E-1, 9.5556E-1, 9.4229E-1, 9.1989E-1, 8.9593E-1,
     * 8.5468E-1, 8.1158E-1, 7.7664E-1, 7.5513E-1, 7.4133E-1, 7.3314E-1,
     * 7.3030E-1, 1.1721E+0, 1.1519E+0, 1.1151E+0, 1.0605E+0, 1.0209E+0,
     * 9.8371E-1, 9.5667E-1, 9.4374E-1, 9.3381E-1, 9.1909E-1, 9.0017E-1,
     * 8.6984E-1, 8.3935E-1, 7.9018E-1, 7.4167E-1, 7.0372E-1, 6.8079E-1,
     * 6.6624E-1, 6.5764E-1, 6.5467E-1, 1.1920E+0, 1.1672E+0, 1.1223E+0,
     * 1.0575E+0, 1.0113E+0, 9.6766E-1, 9.3593E-1, 9.2079E-1, 9.0921E-1,
     * 8.9215E-1, 8.7043E-1, 8.3625E-1, 8.0265E-1, 7.4985E-1, 6.9901E-1,
     * 6.5985E-1, 6.3641E-1, 6.2160E-1, 6.1288E-1, 6.0986E-1, 1.1964E+0,
     * 1.1707E+0, 1.1225E+0, 1.0540E+0, 1.0053E+0, 9.5937E-1/
      DATA X0501/ 9.2590E-1, 9.0994E-1, 8.9776E-1, 8.7984E-1, 8.5710E-1,
     * 8.2153E-1, 7.8682E-1, 7.3276E-1, 6.8115E-1, 6.4164E-1, 6.1805E-1,
     * 6.0318E-1, 5.9443E-1, 5.9140E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 9.9999E-1, 9.9998E-1, 9.9996E-1, 9.9999E-1,
     * 1.0000E+0, 9.9998E-1, 9.9997E-1, 9.9999E-1, 9.9997E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9998E-1, 1.0000E+0, 9.9977E-1,
     * 9.9985E-1, 9.9982E-1, 9.9986E-1, 9.9985E-1, 9.9986E-1, 9.9987E-1,
     * 9.9985E-1, 9.9990E-1, 9.9996E-1, 9.9991E-1, 9.9992E-1, 9.9995E-1,
     * 9.9995E-1, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9998E-1,
     * 1.0000E+0, 9.9976E-1, 9.9974E-1, 9.9973E-1, 9.9978E-1, 9.9978E-1,
     * 9.9980E-1, 9.9981E-1, 9.9980E-1, 9.9985E-1, 9.9992E-1, 9.9987E-1,
     * 9.9989E-1, 9.9994E-1, 9.9994E-1, 9.9999E-1, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9998E-1, 1.0000E+0, 9.9933E-1, 9.9938E-1, 9.9945E-1,
     * 9.9953E-1, 9.9956E-1, 9.9960E-1, 9.9965E-1, 9.9965E-1, 9.9971E-1,
     * 9.9980E-1, 9.9976E-1, 9.9981E-1, 9.9988E-1, 9.9991E-1, 9.9998E-1,
     * 9.9999E-1, 1.0000E+0, 1.0000E+0, 9.9998E-1, 1.0000E+0, 9.9841E-1,
     * 9.9844E-1, 9.9851E-1, 9.9863E-1, 9.9875E-1, 9.9889E-1/
      DATA X0601/ 9.9903E-1, 9.9908E-1, 9.9919E-1, 9.9934E-1, 9.9937E-1,
     * 9.9952E-1, 9.9968E-1, 9.9981E-1, 9.9994E-1, 9.9998E-1, 9.9999E-1,
     * 1.0000E+0, 9.9998E-1, 1.0000E+0, 9.9685E-1, 9.9690E-1, 9.9701E-1,
     * 9.9721E-1, 9.9742E-1, 9.9770E-1, 9.9798E-1, 9.9811E-1, 9.9828E-1,
     * 9.9854E-1, 9.9869E-1, 9.9903E-1, 9.9935E-1, 9.9965E-1, 9.9989E-1,
     * 9.9997E-1, 1.0000E+0, 1.0000E+0, 9.9998E-1, 1.0000E+0, 9.9282E-1,
     * 9.9294E-1, 9.9322E-1, 9.9367E-1, 9.9413E-1, 9.9471E-1, 9.9527E-1,
     * 9.9559E-1, 9.9592E-1, 9.9643E-1, 9.9691E-1, 9.9775E-1, 9.9849E-1,
     * 9.9929E-1, 9.9982E-1, 1.0000E+0, 1.0001E+0, 1.0001E+0, 1.0000E+0,
     * 1.0001E+0, 9.9095E-1, 9.9075E-1, 9.9040E-1, 9.8996E-1, 9.8979E-1,
     * 9.8989E-1, 9.9043E-1, 9.9094E-1, 9.9150E-1, 9.9241E-1, 9.9349E-1,
     * 9.9531E-1, 9.9693E-1, 9.9877E-1, 9.9988E-1, 1.0003E+0, 1.0004E+0,
     * 1.0004E+0, 1.0003E+0, 1.0003E+0, 9.8558E-1, 9.8534E-1, 9.8495E-1,
     * 9.8445E-1, 9.8420E-1, 9.8424E-1, 9.8472E-1, 9.8521E-1, 9.8575E-1,
     * 9.8690E-1, 9.8858E-1, 9.9175E-1, 9.9477E-1, 9.9837E-1, 1.0005E+0,
     * 1.0012E+0, 1.0013E+0, 1.0013E+0, 1.0012E+0, 1.0011E+0, 9.8378E-1,
     * 9.8360E-1, 9.8327E-1, 9.8286E-1, 9.8261E-1, 9.8258E-1/
      DATA X0701/ 9.8289E-1, 9.8322E-1, 9.8359E-1, 9.8440E-1, 9.8604E-1,
     * 9.8975E-1, 9.9361E-1, 9.9850E-1, 1.0014E+0, 1.0023E+0, 1.0025E+0,
     * 1.0024E+0, 1.0022E+0, 1.0021E+0, 1.0611E+0, 1.0554E+0, 1.0446E+0,
     * 1.0273E+0, 1.0130E+0, 9.9814E-1, 9.8836E-1, 9.8498E-1, 9.8344E-1,
     * 9.8367E-1, 9.8498E-1, 9.8884E-1, 9.9328E-1, 9.9922E-1, 1.0028E+0,
     * 1.0039E+0, 1.0040E+0, 1.0038E+0, 1.0034E+0, 1.0032E+0, 8.5094E-1,
     * 8.6290E-1, 8.8519E-1, 9.1974E-1, 9.4717E-1, 9.7257E-1, 9.8528E-1,
     * 9.8682E-1, 9.8470E-1, 9.8441E-1, 9.8547E-1, 9.8968E-1, 9.9494E-1,
     * 1.0022E+0, 1.0064E+0, 1.0076E+0, 1.0075E+0, 1.0070E+0, 1.0063E+0,
     * 1.0059E+0, 9.8960E-1, 9.8908E-1, 9.8823E-1, 9.8713E-1, 9.8669E-1,
     * 9.8710E-1, 9.8864E-1, 9.9006E-1, 9.8776E-1, 9.8744E-1, 9.8866E-1,
     * 9.9348E-1, 9.9948E-1, 1.0077E+0, 1.0121E+0, 1.0129E+0, 1.0124E+0,
     * 1.0115E+0, 1.0103E+0, 1.0097E+0, 1.0063E+0, 1.0046E+0, 1.0015E+0,
     * 9.9712E-1, 9.9431E-1, 9.9296E-1, 9.9435E-1, 9.9579E-1, 9.9344E-1,
     * 9.9319E-1, 9.9463E-1, 9.9999E-1, 1.0065E+0, 1.0152E+0, 1.0194E+0,
     * 1.0196E+0, 1.0185E+0, 1.0170E+0, 1.0153E+0, 1.0143E+0, 1.0117E+0,
     * 1.0101E+0, 1.0072E+0, 1.0031E+0, 1.0003E+0, 9.9864E-1/
      DATA X0801/ 9.9993E-1, 1.0014E+0, 9.9900E-1, 9.9878E-1, 1.0003E+0,
     * 1.0060E+0, 1.0128E+0, 1.0217E+0, 1.0255E+0, 1.0251E+0, 1.0235E+0,
     * 1.0215E+0, 1.0193E+0, 1.0181E+0, 1.0140E+0, 1.0137E+0, 1.0129E+0,
     * 1.0106E+0, 1.0074E+0, 1.0054E+0, 1.0066E+0, 1.0080E+0, 1.0056E+0,
     * 1.0054E+0, 1.0070E+0, 1.0129E+0, 1.0199E+0, 1.0288E+0, 1.0321E+0,
     * 1.0309E+0, 1.0288E+0, 1.0263E+0, 1.0236E+0, 1.0221E+0, 1.0215E+0,
     * 1.0204E+0, 1.0185E+0, 1.0161E+0, 1.0126E+0, 1.0103E+0, 1.0114E+0,
     * 1.0128E+0, 1.0103E+0, 1.0101E+0, 1.0118E+0, 1.0177E+0, 1.0248E+0,
     * 1.0336E+0, 1.0365E+0, 1.0349E+0, 1.0324E+0, 1.0296E+0, 1.0265E+0,
     * 1.0248E+0, 1.0246E+0, 1.0228E+0, 1.0210E+0, 1.0186E+0, 1.0149E+0,
     * 1.0125E+0, 1.0135E+0, 1.0150E+0, 1.0125E+0, 1.0123E+0, 1.0139E+0,
     * 1.0199E+0, 1.0270E+0, 1.0358E+0, 1.0385E+0, 1.0367E+0, 1.0340E+0,
     * 1.0310E+0, 1.0278E+0, 1.0259E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0001E+0, 9.9997E-1, 1.0000E+0, 9.9985E-1, 1.0000E+0,
     * 1.0000E+0, 1.0078E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9962E-1,
     * 9.9964E-1, 9.9967E-1, 9.9969E-1, 9.9971E-1, 9.9974E-1/
      DATA X0901/ 9.9976E-1, 9.9977E-1, 9.9979E-1, 9.9981E-1, 9.9991E-1,
     * 9.9984E-1, 9.9991E-1, 9.9980E-1, 9.9996E-1, 9.9995E-1, 1.0077E+0,
     * 9.9992E-1, 9.9992E-1, 9.9992E-1, 9.9945E-1, 9.9948E-1, 9.9951E-1,
     * 9.9954E-1, 9.9957E-1, 9.9961E-1, 9.9965E-1, 9.9967E-1, 9.9968E-1,
     * 9.9971E-1, 9.9983E-1, 9.9978E-1, 9.9986E-1, 9.9977E-1, 9.9994E-1,
     * 9.9992E-1, 1.0077E+0, 9.9988E-1, 9.9988E-1, 9.9988E-1, 9.9898E-1,
     * 9.9900E-1, 9.9904E-1, 9.9910E-1, 9.9916E-1, 9.9923E-1, 9.9931E-1,
     * 9.9935E-1, 9.9938E-1, 9.9944E-1, 9.9958E-1, 9.9960E-1, 9.9972E-1,
     * 9.9969E-1, 9.9988E-1, 9.9985E-1, 1.0076E+0, 9.9977E-1, 9.9976E-1,
     * 9.9975E-1, 9.9739E-1, 9.9741E-1, 9.9748E-1, 9.9760E-1, 9.9773E-1,
     * 9.9791E-1, 9.9811E-1, 9.9822E-1, 9.9832E-1, 9.9847E-1, 9.9874E-1,
     * 9.9895E-1, 9.9925E-1, 9.9942E-1, 9.9967E-1, 9.9960E-1, 1.0072E+0,
     * 9.9937E-1, 9.9933E-1, 9.9933E-1, 9.9502E-1, 9.9505E-1, 9.9512E-1,
     * 9.9528E-1, 9.9547E-1, 9.9579E-1, 9.9616E-1, 9.9639E-1, 9.9658E-1,
     * 9.9688E-1, 9.9736E-1, 9.9790E-1, 9.9849E-1, 9.9899E-1, 9.9936E-1,
     * 9.9919E-1, 1.0067E+0, 9.9872E-1, 9.9863E-1, 9.9864E-1, 9.8941E-1,
     * 9.8945E-1, 9.8958E-1, 9.8979E-1, 9.9011E-1, 9.9066E-1/
      DATA X1001/ 9.9134E-1, 9.9180E-1, 9.9221E-1, 9.9287E-1, 9.9388E-1,
     * 9.9527E-1, 9.9663E-1, 9.9800E-1, 9.9862E-1, 9.9821E-1, 1.0053E+0,
     * 9.9709E-1, 9.9686E-1, 9.9689E-1, 9.8149E-1, 9.8141E-1, 9.8129E-1,
     * 9.8122E-1, 9.8137E-1, 9.8188E-1, 9.8276E-1, 9.8345E-1, 9.8414E-1,
     * 9.8539E-1, 9.8732E-1, 9.9035E-1, 9.9326E-1, 9.9630E-1, 9.9733E-1,
     * 9.9630E-1, 1.0025E+0, 9.9384E-1, 9.9332E-1, 9.9338E-1, 9.7882E-1,
     * 9.7806E-1, 9.7672E-1, 9.7470E-1, 9.7328E-1, 9.7217E-1, 9.7204E-1,
     * 9.7241E-1, 9.7299E-1, 9.7449E-1, 9.7734E-1, 9.8253E-1, 9.8768E-1,
     * 9.9311E-1, 9.9435E-1, 9.9203E-1, 9.9661E-1, 9.8707E-1, 9.8608E-1,
     * 9.8621E-1, 9.8182E-1, 9.8066E-1, 9.7851E-1, 9.7513E-1, 9.7238E-1,
     * 9.6972E-1, 9.6820E-1, 9.6784E-1, 9.6785E-1, 9.6849E-1, 9.7094E-1,
     * 9.7654E-1, 9.8259E-1, 9.8896E-1, 9.8990E-1, 9.8638E-1, 9.8952E-1,
     * 9.7941E-1, 9.7809E-1, 9.7835E-1, 1.1236E+0, 1.1123E+0, 1.0909E+0,
     * 1.0566E+0, 1.0277E+0, 9.9762E-1, 9.7714E-1, 9.6963E-1, 9.6579E-1,
     * 9.6474E-1, 9.6581E-1, 9.7052E-1, 9.7648E-1, 9.8287E-1, 9.8338E-1,
     * 9.7891E-1, 9.8075E-1, 9.7032E-1, 9.6881E-1, 9.6925E-1, 7.2775E-1,
     * 7.4954E-1, 7.8996E-1, 8.5223E-1, 9.0108E-1, 9.4521E-1/
      DATA X1101/ 9.6540E-1, 9.6612E-1, 9.6025E-1, 9.5703E-1, 9.5631E-1,
     * 9.5980E-1, 9.6553E-1, 9.7197E-1, 9.7245E-1, 9.6735E-1, 9.6789E-1,
     * 9.5740E-1, 9.5580E-1, 9.5650E-1, 9.8805E-1, 9.8530E-1, 9.8021E-1,
     * 9.7229E-1, 9.6610E-1, 9.6048E-1, 9.5787E-1, 9.5774E-1, 9.5140E-1,
     * 9.4775E-1, 9.4686E-1, 9.5058E-1, 9.5676E-1, 9.6384E-1, 9.6475E-1,
     * 9.5957E-1, 9.5943E-1, 9.4904E-1, 9.4740E-1, 9.4825E-1, 9.9925E-1,
     * 9.9448E-1, 9.8568E-1, 9.7231E-1, 9.6211E-1, 9.5344E-1, 9.5042E-1,
     * 9.5019E-1, 9.4413E-1, 9.4078E-1, 9.4027E-1, 9.4458E-1, 9.5123E-1,
     * 9.5885E-1, 9.6009E-1, 9.5487E-1, 9.5429E-1, 9.4396E-1, 9.4227E-1,
     * 9.4318E-1, 9.9389E-1, 9.8934E-1, 9.8092E-1, 9.6807E-1, 9.5817E-1,
     * 9.4958E-1, 9.4660E-1, 9.4642E-1, 9.4067E-1, 9.3760E-1, 9.3736E-1,
     * 9.4198E-1, 9.4883E-1, 9.5669E-1, 9.5804E-1, 9.5276E-1, 9.5193E-1,
     * 9.4161E-1, 9.3987E-1, 9.4079E-1, 9.8328E-1, 9.8042E-1, 9.7477E-1,
     * 9.6487E-1, 9.5531E-1, 9.4688E-1, 9.4400E-1, 9.4387E-1, 9.3842E-1,
     * 9.3559E-1, 9.3557E-1, 9.4038E-1, 9.4734E-1, 9.5531E-1, 9.5670E-1,
     * 9.5134E-1, 9.5030E-1, 9.3996E-1, 9.3817E-1, 9.3909E-1, 9.8300E-1,
     * 9.7929E-1, 9.7265E-1, 9.6335E-1, 9.5397E-1, 9.4566E-1/
      DATA X1201/ 9.4283E-1, 9.4273E-1, 9.3746E-1, 9.3477E-1, 9.3484E-1,
     * 9.3974E-1, 9.4673E-1, 9.5472E-1, 9.5610E-1, 9.5068E-1, 9.4952E-1,
     * 9.3916E-1, 9.3733E-1, 9.3825E-1, 9.8284E-1, 9.7813E-1, 9.7191E-1,
     * 9.6281E-1, 9.5349E-1, 9.4523E-1, 9.4243E-1, 9.4234E-1, 9.3713E-1,
     * 9.3449E-1, 9.3461E-1, 9.3953E-1, 9.4652E-1, 9.5453E-1, 9.5589E-1,
     * 9.5045E-1, 9.4924E-1, 9.3886E-1, 9.3702E-1, 9.3794E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0001E+0, 1.0001E+0, 1.0004E+0, 9.9956E-1, 9.9979E-1,
     * 1.0002E+0, 1.0000E+0, 1.0000E+0, 9.8498E-1, 1.0000E+0, 1.0001E+0,
     * 1.0000E+0, 1.0041E+0, 1.0029E+0, 1.0017E+0, 1.0012E+0, 1.0012E+0,
     * 1.0012E+0, 1.0013E+0, 1.0013E+0, 1.0013E+0, 1.0012E+0, 1.0015E+0,
     * 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0001E+0, 1.0000E+0, 9.8499E-1,
     * 1.0000E+0, 1.0001E+0, 1.0000E+0, 1.0054E+0, 1.0042E+0, 1.0024E+0,
     * 1.0017E+0, 1.0017E+0, 1.0018E+0, 1.0018E+0, 1.0018E+0, 1.0018E+0,
     * 1.0017E+0, 1.0020E+0, 1.0008E+0, 1.0007E+0, 1.0005E+0, 1.0001E+0,
     * 1.0000E+0, 9.8500E-1, 1.0000E+0, 1.0001E+0, 1.0000E+0, 1.0067E+0,
     * 1.0058E+0, 1.0044E+0, 1.0031E+0, 1.0032E+0, 1.0035E+0/
      DATA X1301/ 1.0036E+0, 1.0036E+0, 1.0035E+0, 1.0034E+0, 1.0035E+0,
     * 1.0020E+0, 1.0015E+0, 1.0009E+0, 1.0002E+0, 1.0001E+0, 9.8501E-1,
     * 1.0000E+0, 1.0001E+0, 1.0000E+0, 1.0016E+0, 1.0024E+0, 1.0038E+0,
     * 1.0059E+0, 1.0075E+0, 1.0089E+0, 1.0094E+0, 1.0095E+0, 1.0094E+0,
     * 1.0090E+0, 1.0087E+0, 1.0062E+0, 1.0045E+0, 1.0021E+0, 1.0006E+0,
     * 1.0002E+0, 9.8506E-1, 1.0000E+0, 1.0001E+0, 1.0000E+0, 9.9195E-1,
     * 9.9440E-1, 9.9896E-1, 1.0059E+0, 1.0114E+0, 1.0162E+0, 1.0182E+0,
     * 1.0186E+0, 1.0185E+0, 1.0180E+0, 1.0172E+0, 1.0132E+0, 1.0094E+0,
     * 1.0041E+0, 1.0012E+0, 1.0005E+0, 9.8514E-1, 1.0000E+0, 1.0001E+0,
     * 1.0000E+0, 9.4474E-1, 9.5225E-1, 9.6637E-1, 9.8853E-1, 1.0067E+0,
     * 1.0245E+0, 1.0351E+0, 1.0379E+0, 1.0391E+0, 1.0394E+0, 1.0381E+0,
     * 1.0311E+0, 1.0222E+0, 1.0093E+0, 1.0029E+0, 1.0011E+0, 9.8535E-1,
     * 1.0001E+0, 1.0001E+0, 1.0000E+0, 7.8487E-1, 8.0469E-1, 8.4218E-1,
     * 9.0244E-1, 9.5346E-1, 1.0070E+0, 1.0442E+0, 1.0582E+0, 1.0658E+0,
     * 1.0723E+0, 1.0744E+0, 1.0648E+0, 1.0474E+0, 1.0197E+0, 1.0062E+0,
     * 1.0023E+0, 9.8578E-1, 1.0002E+0, 1.0001E+0, 1.0000E+0, 4.0103E-1,
     * 4.4334E-1, 5.2403E-1, 6.5591E-1, 7.7070E-1, 8.9707E-1/
      DATA X1401/ 9.9301E-1, 1.0349E+0, 1.0626E+0, 1.0918E+0, 1.1118E+0,
     * 1.1108E+0, 1.0859E+0, 1.0370E+0, 1.0119E+0, 1.0045E+0, 9.8651E-1,
     * 1.0004E+0, 1.0002E+0, 1.0000E+0, 2.1842E-1, 2.6541E-1, 3.5561E-1,
     * 5.0526E-1, 6.3857E-1, 7.9089E-1, 9.1419E-1, 9.7270E-1, 1.0150E+0,
     * 1.0693E+0, 1.1130E+0, 1.1317E+0, 1.1093E+0, 1.0496E+0, 1.0164E+0,
     * 1.0063E+0, 9.8712E-1, 1.0006E+0, 1.0002E+0, 1.0001E+0,-3.6147E-1,
     *-2.8117E-1,-1.2747E-1, 1.2592E-1, 3.4949E-1, 6.0110E-1, 7.9964E-1,
     * 8.9093E-1, 9.5481E-1, 1.0318E+0, 1.0992E+0, 1.1408E+0, 1.1257E+0,
     * 1.0602E+0, 1.0204E+0, 1.0080E+0, 9.8771E-1, 1.0008E+0, 1.0002E+0,
     * 1.0001E+0,-6.8675E-1,-5.8986E-1,-4.0436E-1,-9.8356E-2, 1.7177E-1,
     * 4.7612E-1, 7.1671E-1, 8.2760E-1, 9.0538E-1, 1.0028E+0, 1.0927E+0,
     * 1.1566E+0, 1.1476E+0, 1.0736E+0, 1.0255E+0, 1.0101E+0, 9.8847E-1,
     * 1.0010E+0, 1.0003E+0, 1.0001E+0,-4.5286E-1,-3.8125E-1,-2.4227E-1,
     *-6.4831E-3, 2.1087E-1, 4.7199E-1, 7.0032E-1, 8.1836E-1, 9.0213E-1,
     * 1.0080E+0, 1.1065E+0, 1.1774E+0, 1.1672E+0, 1.0837E+0, 1.0292E+0,
     * 1.0116E+0, 9.8899E-1, 1.0011E+0, 1.0003E+0, 1.0001E+0, 1.1246E+0,
     * 1.0149E+0, 8.2355E-1, 5.7396E-1, 4.4623E-1, 4.6550E-1/
      DATA X1501/ 7.0141E-1, 8.2413E-1, 9.1132E-1, 1.0216E+0, 1.1238E+0,
     * 1.1964E+0, 1.1830E+0, 1.0912E+0, 1.0318E+0, 1.0126E+0, 9.8935E-1,
     * 1.0012E+0, 1.0003E+0, 1.0001E+0, 1.2020E+0, 1.1354E+0, 1.0255E+0,
     * 9.0609E-1, 8.8743E-1, 1.0193E+0, 9.9852E-1, 4.6120E-1, 9.1717E-1,
     * 1.0313E+0, 1.1351E+0, 1.2078E+0, 1.1922E+0, 1.0954E+0, 1.0332E+0,
     * 1.0132E+0, 9.8955E-1, 1.0013E+0, 1.0004E+0, 1.0001E+0, 1.0066E+0,
     * 9.8576E-1, 9.4968E-1, 9.0323E-1, 8.8056E-1, 1.0175E+0, 1.0018E+0,
     * 4.6669E-1, 9.2395E-1, 1.0397E+0, 1.1447E+0, 1.2173E+0, 1.1998E+0,
     * 1.0988E+0, 1.0344E+0, 1.0137E+0, 9.8971E-1, 1.0013E+0, 1.0004E+0,
     * 1.0001E+0, 8.4451E-1, 9.0027E-1, 9.6083E-1, 8.9860E-1, 8.7580E-1,
     * 1.0163E+0, 1.0038E+0, 4.6990E-1, 9.2789E-1, 1.0446E+0, 1.1502E+0,
     * 1.2227E+0, 1.2040E+0, 1.1007E+0, 1.0351E+0, 1.0139E+0, 9.8980E-1,
     * 1.0014E+0, 1.0004E+0, 1.0001E+0, 8.3111E-1, 9.1441E-1, 9.6367E-1,
     * 8.9621E-1, 8.7371E-1, 1.0159E+0, 1.0046E+0, 4.7120E-1, 9.2948E-1,
     * 1.0465E+0, 1.1524E+0, 1.2249E+0, 1.2057E+0, 1.1015E+0, 1.0353E+0,
     * 1.0140E+0, 9.8983E-1, 1.0014E+0, 1.0004E+0, 1.0001E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0/
      DATA X1601/ 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0081E+0, 1.0074E+0, 1.0064E+0,
     * 1.0051E+0, 1.0042E+0, 1.0034E+0, 1.0027E+0, 1.0024E+0, 1.0022E+0,
     * 1.0019E+0, 1.0015E+0, 1.0010E+0, 1.0006E+0, 1.0002E+0, 1.0000E+0,
     * 9.9998E-1, 9.9998E-1, 9.9999E-1, 9.9999E-1, 1.0000E+0, 1.0119E+0,
     * 1.0110E+0, 1.0095E+0, 1.0076E+0, 1.0063E+0, 1.0050E+0, 1.0040E+0,
     * 1.0036E+0, 1.0033E+0, 1.0028E+0, 1.0022E+0, 1.0015E+0, 1.0009E+0,
     * 1.0003E+0, 1.0000E+0, 9.9997E-1, 9.9997E-1, 9.9998E-1, 9.9999E-1,
     * 9.9999E-1, 1.0230E+0, 1.0216E+0, 1.0190E+0, 1.0153E+0, 1.0126E+0,
     * 1.0100E+0, 1.0080E+0, 1.0071E+0, 1.0065E+0, 1.0055E+0, 1.0044E+0,
     * 1.0029E+0, 1.0017E+0, 1.0005E+0, 1.0001E+0, 9.9994E-1, 9.9994E-1,
     * 9.9996E-1, 9.9999E-1, 9.9999E-1, 1.0611E+0, 1.0582E+0, 1.0528E+0,
     * 1.0441E+0, 1.0366E+0, 1.0285E+0, 1.0227E+0, 1.0200E+0, 1.0180E+0,
     * 1.0153E+0, 1.0121E+0, 1.0079E+0, 1.0046E+0, 1.0013E+0, 1.0001E+0,
     * 9.9985E-1, 9.9985E-1, 9.9993E-1, 9.9999E-1, 1.0000E+0, 1.1497E+0,
     * 1.1420E+0, 1.1275E+0, 1.1042E+0, 1.0844E+0, 1.0638E+0/
      DATA X1701/ 1.0495E+0, 1.0432E+0, 1.0386E+0, 1.0323E+0, 1.0252E+0,
     * 1.0160E+0, 1.0091E+0, 1.0024E+0, 1.0001E+0, 9.9968E-1, 9.9975E-1,
     * 9.9992E-1, 1.0000E+0, 1.0001E+0, 1.5351E+0, 1.5051E+0, 1.4484E+0,
     * 1.3570E+0, 1.2793E+0, 1.1969E+0, 1.1389E+0, 1.1164E+0, 1.1010E+0,
     * 1.0813E+0, 1.0606E+0, 1.0362E+0, 1.0193E+0, 1.0045E+0, 9.9985E-1,
     * 9.9918E-1, 9.9955E-1, 1.0000E+0, 1.0004E+0, 1.0004E+0, 4.6890E+0,
     * 4.4435E+0, 3.9798E+0, 3.2370E+0, 2.6124E+0, 1.9633E+0, 1.5242E+0,
     * 1.3651E+0, 1.2856E+0, 1.2043E+0, 1.1366E+0, 1.0721E+0, 1.0349E+0,
     * 1.0061E+0, 9.9843E-1, 9.9770E-1, 9.9872E-1, 9.9985E-1, 1.0006E+0,
     * 1.0007E+0, 5.5227E+1, 5.1367E+1, 4.4077E+1, 3.2395E+1, 2.2564E+1,
     * 1.2337E+1, 5.4011E+0, 2.8753E+0, 1.6017E+0, 1.3078E+0, 1.1821E+0,
     * 1.0923E+0, 1.0441E+0, 1.0061E+0, 9.9551E-1, 9.9399E-1, 9.9518E-1,
     * 9.9679E-1, 9.9806E-1, 9.9855E-1, 9.9187E-1, 1.0025E+0, 1.0225E+0,
     * 1.0541E+0, 1.0801E+0, 1.1061E+0, 1.1223E+0, 1.1271E+0, 1.1285E+0,
     * 1.1255E+0, 1.1079E+0, 1.0727E+0, 1.0407E+0, 1.0075E+0, 9.9585E-1,
     * 9.9346E-1, 9.9425E-1, 9.9576E-1, 9.9710E-1, 9.9766E-1, 3.7266E+1,
     * 3.4671E+1, 2.9770E+1, 2.1921E+1, 1.5322E+1, 8.4679E+0/
      DATA X1801/ 3.8360E+0, 2.1604E+0, 1.3261E+0, 1.1701E+0, 1.1152E+0,
     * 1.0743E+0, 1.0455E+0, 1.0144E+0, 1.0021E+0, 1.0002E+0, 1.0012E+0,
     * 1.0024E+0, 1.0031E+0, 1.0031E+0, 1.5150E+0, 1.4816E+0, 1.4186E+0,
     * 1.3186E+0, 1.2360E+0, 1.1526E+0, 1.0998E+0, 1.0833E+0, 1.0774E+0,
     * 1.0720E+0, 1.0659E+0, 1.0547E+0, 1.0423E+0, 1.0255E+0, 1.0186E+0,
     * 1.0226E+0, 1.0266E+0, 1.0284E+0, 1.0270E+0, 1.0252E+0, 2.1162E-1,
     * 2.6691E-1, 3.7117E-1, 5.3744E-1, 6.7628E-1, 8.1871E-1, 9.1235E-1,
     * 9.4444E-1, 9.6356E-1, 9.8454E-1, 1.0019E+0, 1.0162E+0, 1.0226E+0,
     * 1.0266E+0, 1.0312E+0, 1.0454E+0, 1.0555E+0, 1.0596E+0, 1.0566E+0,
     * 1.0528E+0, 3.9138E-1, 4.2165E-1, 4.8011E-1, 5.7839E-1, 6.6771E-1,
     * 7.7289E-1, 8.6217E-1, 8.9504E-1, 9.1555E-1, 9.3950E-1, 9.6164E-1,
     * 9.8498E-1, 1.0014E+0, 1.0213E+0, 1.0381E+0, 1.0637E+0, 1.0818E+0,
     * 1.0897E+0, 1.0861E+0, 1.0807E+0, 5.3104E-1, 5.5281E-1, 5.9527E-1,
     * 6.6811E-1, 7.3632E-1, 8.2008E-1, 8.6451E-1, 8.3994E-1, 8.9363E-1,
     * 9.1802E-1, 9.4115E-1, 9.6718E-1, 9.8768E-1, 1.0159E+0, 1.0405E+0,
     * 1.0742E+0, 1.0985E+0, 1.1099E+0, 1.1065E+0, 1.1001E+0, 5.8002E-1,
     * 5.9487E-1, 6.2491E-1, 6.8005E-1, 7.3659E-1, 8.1240E-1/
      DATA X1901/ 8.5145E-1, 8.1676E-1, 8.7675E-1, 9.0127E-1, 9.2481E-1,
     * 9.5225E-1, 9.7537E-1, 1.0100E+0, 1.0416E+0, 1.0828E+0, 1.1136E+0,
     * 1.1290E+0, 1.1262E+0, 1.1190E+0, 5.8476E-1, 6.0326E-1, 6.3649E-1,
     * 6.8365E-1, 7.3528E-1, 8.0772E-1, 8.4423E-1, 8.0400E-1, 8.6754E-1,
     * 8.9212E-1, 9.1581E-1, 9.4379E-1, 9.6812E-1, 1.0062E+0, 1.0417E+0,
     * 1.0877E+0, 1.1227E+0, 1.1408E+0, 1.1386E+0, 1.1310E+0, 5.9096E-1,
     * 6.0930E-1, 6.4019E-1, 6.8456E-1, 7.3448E-1, 8.0575E-1, 8.4131E-1,
     * 7.9889E-1, 8.6387E-1, 8.8847E-1, 9.1220E-1, 9.4037E-1, 9.6514E-1,
     * 1.0045E+0, 1.0417E+0, 1.0896E+0, 1.1265E+0, 1.1459E+0, 1.1439E+0,
     * 1.1361E+0, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9361E-1, 9.9416E-1, 9.9506E-1,
     * 9.9624E-1, 9.9707E-1, 9.9784E-1, 9.9837E-1, 9.9861E-1, 9.9878E-1,
     * 9.9901E-1, 9.9927E-1, 9.9960E-1, 9.9982E-1, 1.0000E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9057E-1,
     * 9.9133E-1, 9.9267E-1, 9.9443E-1, 9.9566E-1, 9.9680E-1/
      DATA X2001/ 9.9759E-1, 9.9795E-1, 9.9820E-1, 9.9854E-1, 9.9893E-1,
     * 9.9941E-1, 9.9974E-1, 1.0000E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 9.8167E-1, 9.8299E-1, 9.8541E-1,
     * 9.8893E-1, 9.9139E-1, 9.9368E-1, 9.9526E-1, 9.9596E-1, 9.9646E-1,
     * 9.9714E-1, 9.9790E-1, 9.9884E-1, 9.9950E-1, 1.0001E+0, 1.0003E+0,
     * 1.0002E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 9.5472E-1,
     * 9.5721E-1, 9.6193E-1, 9.6949E-1, 9.7585E-1, 9.8247E-1, 9.8697E-1,
     * 9.8895E-1, 9.9036E-1, 9.9227E-1, 9.9437E-1, 9.9696E-1, 9.9871E-1,
     * 1.0002E+0, 1.0007E+0, 1.0005E+0, 1.0003E+0, 1.0001E+0, 9.9999E-1,
     * 9.9995E-1, 8.9825E-1, 9.0411E-1, 9.1516E-1, 9.3281E-1, 9.4757E-1,
     * 9.6276E-1, 9.7281E-1, 9.7715E-1, 9.8022E-1, 9.8432E-1, 9.8877E-1,
     * 9.9410E-1, 9.9759E-1, 1.0004E+0, 1.0011E+0, 1.0007E+0, 1.0001E+0,
     * 9.9968E-1, 9.9939E-1, 9.9929E-1, 7.2416E-1, 7.3966E-1, 7.6906E-1,
     * 8.1658E-1, 8.5721E-1, 9.0065E-1, 9.3180E-1, 9.4430E-1, 9.5282E-1,
     * 9.6379E-1, 9.7514E-1, 9.8783E-1, 9.9544E-1, 1.0008E+0, 1.0011E+0,
     * 9.9937E-1, 9.9778E-1, 9.9660E-1, 9.9585E-1, 9.9558E-1,-7.9651E-2,
     *-1.2924E-2, 1.1349E-1, 3.1754E-1, 4.9132E-1, 6.7589E-1/
      DATA X2101/ 8.0665E-1, 8.5807E-1, 8.8758E-1, 9.2056E-1, 9.4995E-1,
     * 9.7794E-1, 9.9213E-1, 9.9971E-1, 9.9792E-1, 9.9328E-1, 9.8966E-1,
     * 9.8713E-1, 9.8556E-1, 9.8501E-1,-7.0323E+0,-6.4774E+0,-5.4277E+0,
     *-3.7410E+0,-2.3150E+0,-8.1917E-1, 2.1332E-1, 6.0161E-1, 8.0894E-1,
     * 8.9705E-1, 9.4246E-1, 9.7422E-1, 9.8761E-1, 9.9277E-1, 9.8838E-1,
     * 9.8159E-1, 9.7661E-1, 9.7320E-1, 9.7110E-1, 9.7037E-1, 8.7067E-1,
     * 8.7445E-1, 8.8180E-1, 8.9433E-1, 9.0592E-1, 9.1993E-1, 9.3228E-1,
     * 9.3873E-1, 9.4381E-1, 9.5136E-1, 9.6053E-1, 9.7119E-1, 9.7699E-1,
     * 9.7845E-1, 9.7359E-1, 9.6703E-1, 9.6224E-1, 9.5894E-1, 9.5691E-1,
     * 9.5620E-1,-6.6196E+0,-6.0886E+0,-5.0849E+0,-3.4740E+0,-2.1147E+0,
     *-6.9383E-1, 2.7959E-1, 6.4079E-1, 8.2921E-1, 8.9468E-1, 9.2384E-1,
     * 9.4140E-1, 9.4716E-1, 9.4642E-1, 9.3972E-1, 9.3219E-1, 9.2698E-1,
     * 9.2347E-1, 9.2133E-1, 9.2058E-1, 5.8975E-1, 6.1273E-1, 6.5594E-1,
     * 7.2466E-1, 7.8167E-1, 8.3946E-1, 8.7646E-1, 8.8843E-1, 8.9306E-1,
     * 8.9571E-1, 8.9470E-1, 8.8780E-1, 8.7791E-1, 8.5990E-1, 8.4158E-1,
     * 8.2733E-1, 8.1879E-1, 8.1339E-1, 8.1022E-1, 8.0912E-1, 1.2849E+0,
     * 1.2579E+0, 1.2066E+0, 1.1240E+0, 1.0539E+0, 9.7963E-1/
      DATA X2201/ 9.2745E-1, 9.0720E-1, 8.9311E-1, 8.7406E-1, 8.5216E-1,
     * 8.2166E-1, 7.9518E-1, 7.5854E-1, 7.2721E-1, 7.0491E-1, 6.9213E-1,
     * 6.8423E-1, 6.7963E-1, 6.7805E-1, 1.3157E+0, 1.2793E+0, 1.2110E+0,
     * 1.1030E+0, 1.0143E+0, 9.2613E-1, 8.7224E-1, 8.4893E-1, 8.3205E-1,
     * 8.0854E-1, 7.8084E-1, 7.4169E-1, 7.0763E-1, 6.6075E-1, 6.2098E-1,
     * 5.9278E-1, 5.7663E-1, 5.6664E-1, 5.6083E-1, 5.5884E-1, 1.2833E+0,
     * 1.2391E+0, 1.1577E+0, 1.0349E+0, 9.4226E-1, 8.6595E-1, 8.1542E-1,
     * 7.9271E-1, 7.7599E-1, 7.5234E-1, 7.2399E-1, 6.8323E-1, 6.4724E-1,
     * 5.9708E-1, 5.5401E-1, 5.2317E-1, 5.0537E-1, 4.9432E-1, 4.8787E-1,
     * 4.8565E-1, 1.2098E+0, 1.1596E+0, 1.0701E+0, 9.4620E-1, 8.6987E-1,
     * 8.0253E-1, 7.5581E-1, 7.3431E-1, 7.1829E-1, 6.9540E-1, 6.6761E-1,
     * 6.2707E-1, 5.9079E-1, 5.3954E-1, 4.9489E-1, 4.6252E-1, 4.4367E-1,
     * 4.3190E-1, 4.2501E-1, 4.2263E-1, 1.1476E+0, 1.0927E+0, 1.0005E+0,
     * 8.9334E-1, 8.2450E-1, 7.6197E-1, 7.1766E-1, 6.9706E-1, 6.8162E-1,
     * 6.5943E-1, 6.3233E-1, 5.9250E-1, 5.5657E-1, 5.0540E-1, 4.6042E-1,
     * 4.2755E-1, 4.0829E-1, 3.9622E-1, 3.8912E-1, 3.8667E-1, 1.1151E+0,
     * 1.0584E+0, 9.7265E-1, 8.7137E-1, 8.0531E-1, 7.4468E-1/
      DATA X2301/ 7.0140E-1, 6.8119E-1, 6.6601E-1, 6.4416E-1, 6.1741E-1,
     * 5.7797E-1, 5.4229E-1, 4.9130E-1, 4.4631E-1, 4.1333E-1, 3.9395E-1,
     * 3.8178E-1, 3.7462E-1, 3.7214E-1, 7.4675E-6, 7.9453E-6, 8.8896E-6,
     * 1.0548E-5, 1.2153E-5, 1.4208E-5, 1.6173E-5, 1.7280E-5, 1.8208E-5,
     * 1.9714E-5, 2.1884E-5, 2.5951E-5, 3.0916E-5, 4.1765E-5, 5.8292E-5,
     * 8.7114E-5, 1.2909E-4, 1.9837E-4, 3.1859E-4, 4.2352E-4, 7.4932E-6,
     * 7.9718E-6, 8.9175E-6, 1.0578E-5, 1.2184E-5, 1.4241E-5, 1.6207E-5,
     * 1.7315E-5, 1.8244E-5, 1.9750E-5, 2.1921E-5, 2.5989E-5, 3.0955E-5,
     * 4.1806E-5, 5.8334E-5, 8.7157E-5, 1.2913E-4, 1.9841E-4, 3.1863E-4,
     * 4.2356E-4, 7.5050E-6, 7.9844E-6, 8.9308E-6, 1.0593E-5, 1.2199E-5,
     * 1.4257E-5, 1.6224E-5, 1.7332E-5, 1.8261E-5, 1.9768E-5, 2.1939E-5,
     * 2.6007E-5, 3.0974E-5, 4.1826E-5, 5.8355E-5, 8.7178E-5, 1.2915E-4,
     * 1.9844E-4, 3.1865E-4, 4.2358E-4, 7.5408E-6, 8.0217E-6, 8.9707E-6,
     * 1.0635E-5, 1.2244E-5, 1.4304E-5, 1.6273E-5, 1.7382E-5, 1.8312E-5,
     * 1.9819E-5, 2.1992E-5, 2.6062E-5, 3.1030E-5, 4.1885E-5, 5.8415E-5,
     * 8.7240E-5, 1.2921E-4, 1.9850E-4, 3.1872E-4, 4.2364E-4, 7.6989E-6,
     * 8.1788E-6, 9.1264E-6, 1.0791E-5, 1.2404E-5, 1.4472E-5/
      DATA X2401/ 1.6447E-5, 1.7560E-5, 1.8492E-5, 2.0003E-5, 2.2180E-5,
     * 2.6256E-5, 3.1230E-5, 4.2092E-5, 5.8629E-5, 8.7458E-5, 1.2943E-4,
     * 1.9872E-4, 3.1894E-4, 4.2387E-4, 7.9265E-6, 8.4110E-6, 9.3674E-6,
     * 1.1047E-5, 1.2672E-5, 1.4754E-5, 1.6740E-5, 1.7858E-5, 1.8794E-5,
     * 2.0311E-5, 2.2495E-5, 2.6582E-5, 3.1566E-5, 4.2441E-5, 5.8989E-5,
     * 8.7826E-5, 1.2981E-4, 1.9909E-4, 3.1932E-4, 4.2424E-4, 8.6203E-6,
     * 9.1089E-6, 1.0074E-5, 1.1770E-5, 1.3413E-5, 1.5521E-5, 1.7534E-5,
     * 1.8665E-5, 1.9611E-5, 2.1143E-5, 2.3345E-5, 2.7459E-5, 3.2467E-5,
     * 4.3376E-5, 5.9951E-5, 8.8806E-5, 1.3080E-4, 2.0009E-4, 3.2032E-4,
     * 4.2524E-4, 1.0628E-5, 1.1117E-5, 1.2084E-5, 1.3785E-5, 1.5435E-5,
     * 1.7554E-5, 1.9583E-5, 2.0724E-5, 2.1678E-5, 2.3220E-5, 2.5436E-5,
     * 2.9568E-5, 3.4592E-5, 4.5521E-5, 6.2113E-5, 9.0978E-5, 1.3297E-4,
     * 2.0227E-4, 3.2250E-4, 4.2743E-4, 1.9670E-5, 2.0038E-5, 2.0771E-5,
     * 2.2078E-5, 2.3373E-5, 2.5074E-5, 2.6751E-5, 2.7716E-5, 2.8537E-5,
     * 2.9891E-5, 3.1881E-5, 3.5693E-5, 4.0442E-5, 5.1013E-5, 6.7322E-5,
     * 9.6001E-5, 1.3790E-4, 2.0713E-4, 3.2733E-4, 4.3224E-4, 2.9379E-5,
     * 2.9648E-5, 3.0188E-5, 3.1167E-5, 3.2156E-5, 3.3490E-5/
      DATA X2501/ 3.4840E-5, 3.5636E-5, 3.6323E-5, 3.7477E-5, 3.9230E-5,
     * 4.2714E-5, 4.7190E-5, 5.7411E-5, 7.3451E-5, 1.0196E-4, 1.4376E-4,
     * 2.1294E-4, 3.3310E-4, 4.3801E-4, 4.0542E-5, 4.0703E-5, 4.1037E-5,
     * 4.1672E-5, 4.2355E-5, 4.3336E-5, 4.4399E-5, 4.5057E-5, 4.5643E-5,
     * 4.6666E-5, 4.8262E-5, 5.1525E-5, 5.5813E-5, 6.5789E-5, 8.1638E-5,
     * 1.1002E-4, 1.5175E-4, 2.2090E-4, 3.4103E-4, 4.4593E-4, 6.2977E-5,
     * 6.2906E-5, 6.2792E-5, 6.2691E-5, 6.2721E-5, 6.2963E-5, 6.3437E-5,
     * 6.3820E-5, 6.4212E-5, 6.4959E-5, 6.6227E-5, 6.9027E-5, 7.2924E-5,
     * 8.2391E-5, 9.7844E-5, 1.2597E-4, 1.6756E-4, 2.3662E-4, 3.5671E-4,
     * 4.6159E-4, 9.1763E-5, 9.1173E-5, 9.0075E-5, 8.8366E-5, 8.7009E-5,
     * 8.5742E-5, 8.5096E-5, 8.5007E-5, 8.5049E-5, 8.5304E-5, 8.5991E-5,
     * 8.7983E-5, 9.1205E-5, 9.9807E-5, 1.1460E-4, 1.4229E-4, 1.8365E-4,
     * 2.5257E-4, 3.7259E-4, 4.7744E-4, 1.3007E-4, 1.2826E-4, 1.2486E-4,
     * 1.1954E-4, 1.1521E-4, 1.1101E-4, 1.0860E-4, 1.0771E-4, 1.0717E-4,
     * 1.0661E-4, 1.0634E-4, 1.0702E-4, 1.0916E-4, 1.1639E-4, 1.3015E-4,
     * 1.5718E-4, 1.9819E-4, 2.6691E-4, 3.8680E-4, 4.9162E-4, 1.6658E-4,
     * 1.6277E-4, 1.5573E-4, 1.4507E-4, 1.3698E-4, 1.3017E-4/
      DATA X2601/ 1.2600E-4, 1.2433E-4, 1.2321E-4, 1.2186E-4, 1.2067E-4,
     * 1.2009E-4, 1.2121E-4, 1.2718E-4, 1.3999E-4, 1.6642E-4, 2.0712E-4,
     * 2.7565E-4, 3.9544E-4, 5.0022E-4, 2.1063E-4, 2.0325E-4, 1.9005E-4,
     * 1.7152E-4, 1.5973E-4, 1.4971E-4, 1.4338E-4, 1.4076E-4, 1.3896E-4,
     * 1.3665E-4, 1.3437E-4, 1.3232E-4, 1.3226E-4, 1.3678E-4, 1.4853E-4,
     * 1.7430E-4, 2.1464E-4, 2.8296E-4, 4.0264E-4, 5.0738E-4, 2.4267E-4,
     * 2.3143E-4, 2.1233E-4, 1.8937E-4, 1.7480E-4, 1.6237E-4, 1.5447E-4,
     * 1.5115E-4, 1.4886E-4, 1.4587E-4, 1.4280E-4, 1.3971E-4, 1.3882E-4,
     * 1.4233E-4, 1.5334E-4, 1.7866E-4, 2.1877E-4, 2.8696E-4, 4.0655E-4,
     * 5.1127E-4, 2.5659E-4, 2.4320E-4, 2.2231E-4, 1.9726E-4, 1.8138E-4,
     * 1.6784E-4, 1.5921E-4, 1.5558E-4, 1.5306E-4, 1.4976E-4, 1.4633E-4,
     * 1.4278E-4, 1.4151E-4, 1.4457E-4, 1.5526E-4, 1.8038E-4, 2.2039E-4,
     * 2.8851E-4, 4.0807E-4, 5.1278E-4, 1.2396E-4, 1.2775E-4, 1.3531E-4,
     * 1.5032E-4, 1.7365E-4, 2.0512E-4, 2.3604E-4, 2.5215E-4, 2.6608E-4,
     * 2.8936E-4, 3.2413E-4, 3.9344E-4, 4.9092E-4, 7.8785E-4, 1.4350E-3,
     * 2.1430E-3, 3.2592E-3, 5.1529E-3, 8.5392E-3, 1.1500E-2, 1.2456E-4,
     * 1.2834E-4, 1.3592E-4, 1.5095E-4, 1.7433E-4, 2.0587E-4/
      DATA X2701/ 2.3685E-4, 2.5298E-4, 2.6693E-4, 2.9025E-4, 3.2506E-4,
     * 3.9444E-4, 4.9199E-4, 7.8909E-4, 1.4364E-3, 2.1430E-3, 3.2592E-3,
     * 5.1529E-3, 8.5392E-3, 1.1500E-2, 1.2505E-4, 1.2863E-4, 1.3620E-4,
     * 1.5125E-4, 1.7465E-4, 2.0623E-4, 2.3724E-4, 2.5338E-4, 2.6734E-4,
     * 2.9067E-4, 3.2551E-4, 3.9492E-4, 4.9250E-4, 7.8968E-4, 1.4370E-3,
     * 2.1430E-3, 3.2592E-3, 5.1529E-3, 8.5392E-3, 1.1500E-2, 1.3094E-4,
     * 1.3234E-4, 1.3707E-4, 1.5215E-4, 1.7563E-4, 2.0731E-4, 2.3840E-4,
     * 2.5458E-4, 2.6858E-4, 2.9195E-4, 3.2685E-4, 3.9636E-4, 4.9404E-4,
     * 7.9146E-4, 1.4390E-3, 2.1430E-3, 3.2592E-3, 5.1529E-3, 8.5392E-3,
     * 1.1500E-2, 1.0900E-4, 1.1600E-4, 1.2992E-4, 1.5470E-4, 1.7913E-4,
     * 2.1115E-4, 2.4256E-4, 2.5886E-4, 2.7297E-4, 2.9651E-4, 3.3162E-4,
     * 4.0147E-4, 4.9952E-4, 7.9778E-4, 1.4459E-3, 2.1430E-3, 3.2592E-3,
     * 5.1529E-3, 8.5392E-3, 1.1500E-2, 1.1343E-4, 1.2059E-4, 1.3483E-4,
     * 1.6016E-4, 1.8509E-4, 2.1771E-4, 2.4963E-4, 2.6616E-4, 2.8044E-4,
     * 3.0426E-4, 3.3974E-4, 4.1016E-4, 5.0880E-4, 8.0846E-4, 1.4577E-3,
     * 2.1430E-3, 3.2592E-3, 5.1529E-3, 8.5392E-3, 1.1500E-2, 9.9221E-5,
     * 1.0984E-4, 1.3043E-4, 1.6528E-4, 1.9732E-4, 2.3564E-4/
      DATA X2801/ 2.6893E-4, 2.8603E-4, 3.0079E-4, 3.2533E-4, 3.6176E-4,
     * 4.3363E-4, 5.3380E-4, 8.3708E-4, 1.4923E-3, 2.1650E-3, 3.2812E-3,
     * 5.1749E-3, 8.5612E-3, 1.1530E-2, 1.8405E-4, 1.9045E-4, 2.0327E-4,
     * 2.2640E-4, 2.4962E-4, 2.8070E-4, 3.1194E-4, 3.3023E-4, 3.4595E-4,
     * 3.7197E-4, 4.1028E-4, 4.8498E-4, 5.8806E-4, 8.9846E-4, 1.5647E-3,
     * 2.2001E-3, 3.3163E-3, 5.2100E-3, 8.5963E-3, 1.1570E-2, 2.4985E-4,
     * 2.5802E-4, 2.7427E-4, 3.0312E-4, 3.3150E-4, 3.6855E-4, 4.0473E-4,
     * 4.2542E-4, 4.4293E-4, 4.7161E-4, 5.1320E-4, 5.9247E-4, 7.0003E-4,
     * 1.0224E-3, 1.7076E-3, 2.2562E-3, 3.3724E-3, 5.2661E-3, 8.6524E-3,
     * 1.1650E-2, 3.2870E-4, 3.3848E-4, 3.5783E-4, 3.9187E-4, 4.2494E-4,
     * 4.6748E-4, 5.0827E-4, 5.3126E-4, 5.5048E-4, 5.8155E-4, 6.2587E-4,
     * 7.0846E-4, 8.1892E-4, 1.1507E-3, 1.8534E-3, 2.3088E-3, 3.4250E-3,
     * 5.3187E-3, 8.7050E-3, 1.1720E-2, 4.3488E-4, 4.4614E-4, 4.6837E-4,
     * 5.0723E-4, 5.4470E-4, 5.9242E-4, 6.3762E-4, 6.6282E-4, 6.8374E-4,
     * 7.1719E-4, 7.6398E-4, 8.4885E-4, 9.6074E-4, 1.3001E-3, 2.0247E-3,
     * 2.3917E-3, 3.5079E-3, 5.4016E-3, 8.7879E-3, 1.1840E-2, 6.1794E-4,
     * 6.3181E-4, 6.5903E-4, 7.0623E-4, 7.5117E-4, 8.0755E-4/
      DATA X2901/ 8.5989E-4, 8.8855E-4, 9.1202E-4, 9.4866E-4, 9.9811E-4,
     * 1.0836E-3, 1.1941E-3, 1.5393E-3, 2.3090E-3, 2.6139E-3, 3.7301E-3,
     * 5.6238E-3, 9.0101E-3, 1.2130E-2, 5.3227E-4, 5.7144E-4, 6.4579E-4,
     * 7.6601E-4, 8.6882E-4, 9.7880E-4, 1.0578E-3, 1.0896E-3, 1.1151E-3,
     * 1.1540E-3, 1.2047E-3, 1.2884E-3, 1.3946E-3, 1.7397E-3, 2.5638E-3,
     * 2.9301E-3, 4.0463E-3, 5.9400E-3, 9.3263E-3, 1.2610E-2, 6.7897E-4,
     * 7.1788E-4, 7.9210E-4, 9.1355E-4, 1.0194E-3, 1.1362E-3, 1.2253E-3,
     * 1.2597E-3, 1.2868E-3, 1.3274E-3, 1.3786E-3, 1.4594E-3, 1.5605E-3,
     * 1.9025E-3, 2.7880E-3, 3.3133E-3, 4.4295E-3, 6.3232E-3, 9.7095E-3,
     * 1.3080E-2, 6.8834E-4, 7.3789E-4, 8.3129E-4, 9.8030E-4, 1.1047E-3,
     * 1.2325E-3, 1.3279E-3, 1.3640E-3, 1.3922E-3, 1.4336E-3, 1.4850E-3,
     * 1.5636E-3, 1.6609E-3, 2.0000E-3, 2.9320E-3, 3.6126E-3, 4.7288E-3,
     * 6.6225E-3, 1.0009E-2, 1.3480E-2, 8.0681E-4, 8.4150E-4, 9.1208E-4,
     * 1.0431E-3, 1.1791E-3, 1.3168E-3, 1.4180E-3, 1.4556E-3, 1.4846E-3,
     * 1.5269E-3, 1.5783E-3, 1.6547E-3, 1.7483E-3, 2.0842E-3, 3.0637E-3,
     * 3.9218E-3, 5.0380E-3, 6.9317E-3, 1.0318E-2, 1.3890E-2, 7.5197E-4,
     * 8.2153E-4, 9.3925E-4, 1.0792E-3, 1.2223E-3, 1.3659E-3/
      DATA X3001/ 1.4706E-3, 1.5091E-3, 1.5386E-3, 1.5813E-3, 1.6327E-3,
     * 1.7077E-3, 1.7991E-3, 2.1329E-3, 3.1431E-3, 4.1243E-3, 5.2405E-3,
     * 7.1342E-3, 1.0521E-2, 1.4170E-2, 7.4911E-4, 8.2923E-4, 9.5022E-4,
     * 1.0940E-3, 1.2399E-3, 1.3860E-3, 1.4922E-3, 1.5310E-3, 1.5607E-3,
     * 1.6036E-3, 1.6550E-3, 1.7294E-3, 1.8198E-3, 2.1527E-3, 3.1763E-3,
     * 4.2123E-3, 5.3285E-3, 7.2222E-3, 1.0609E-2, 1.4290E-2, 4.2500E-1,
     * 4.3500E-1, 4.5000E-1, 4.7500E-1, 5.0000E-1, 5.3000E-1, 5.6000E-1,
     * 6.0000E-1, 6.5000E-1, 7.0000E-1, 7.5000E-1, 8.0000E-1, 8.5000E-1,
     * 9.0000E-1, 9.5000E-1, 9.7000E-1, 9.8200E-1, 9.9000E-1, 9.9500E-1,
     * 9.9800E-1, 9.9900E-1, 1.0000E+0, 6.1530E-3, 7.3905E-3, 9.5941E-3,
     * 1.4334E-2, 2.0651E-2, 3.0725E-2, 4.4022E-2, 6.7724E-2, 1.0888E-1,
     * 1.6545E-1, 2.4029E-1, 3.3630E-1, 4.5644E-1, 6.0394E-1, 7.8295E-1,
     * 8.6467E-1, 9.1682E-1, 9.5297E-1, 9.7615E-1, 9.9028E-1, 9.9503E-1,
     * 1.0000E+0, 2.4464E+0, 2.4371E+0, 2.4231E+0, 2.3996E+0, 2.3755E+0,
     * 2.3454E+0, 2.3137E+0, 2.2688E+0, 2.2075E+0, 2.1395E+0, 2.0634E+0,
     * 1.9766E+0, 1.8749E+0, 1.7488E+0, 1.5723E+0, 1.4672E+0, 1.3784E+0,
     * 1.2923E+0, 1.2062E+0, 1.1400E+0, 1.0950E+0, 1.0000E+0/
      DATA X3101/ 4.4508E-3, 5.2356E-3, 6.5961E-3, 9.4081E-3, 1.2993E-2,
     * 1.8471E-2, 2.5422E-2, 3.7360E-2, 5.7417E-2, 8.4520E-2, 1.2057E-1,
     * 1.6833E-1, 2.3237E-1, 3.2187E-1, 4.6283E-1, 5.5393E-1, 6.3347E-1,
     * 7.1008E-1, 7.7870E-1, 8.5000E-1, 8.9300E-1, 1.0000E+0, 7.8096E+0,
     * 7.8506E+0, 7.9126E+0, 8.0159E+0, 8.1183E+0, 8.2386E+0, 8.3558E+0,
     * 8.5073E+0, 8.6924E+0, 8.8785E+0, 9.0723E+0, 9.2793E+0, 9.5043E+0,
     * 9.7562E+0, 1.0068E+1, 1.0239E+1, 1.0374E+1, 1.0498E+1, 1.0614E+1,
     * 1.0725E+1, 1.0790E+1, 1.0925E+1, 1.5619E+1, 1.5491E+1, 1.5309E+1,
     * 1.5033E+1, 1.4784E+1, 1.4515E+1, 1.4272E+1, 1.3981E+1, 1.3656E+1,
     * 1.3360E+1, 1.3083E+1, 1.2814E+1, 1.2541E+1, 1.2246E+1, 1.1881E+1,
     * 1.1681E+1, 1.1521E+1, 1.1378E+1, 1.1240E+1, 1.1115E+1, 1.1050E+1,
     * 1.0925E+1, 3.3191E+0, 3.3369E+0, 3.3646E+0, 3.4129E+0, 3.4636E+0,
     * 3.5269E+0, 3.5925E+0, 3.6835E+0, 3.8047E+0, 3.9382E+0, 4.0896E+0,
     * 4.2644E+0, 4.4690E+0, 4.7141E+0, 5.0359E+0, 5.2156E+0, 5.3590E+0,
     * 5.4892E+0, 5.6097E+0, 5.7230E+0, 5.7800E+0, 5.9270E+0, 6.6381E+0,
     * 6.6604E+0, 6.6932E+0, 6.7460E+0, 6.7964E+0, 6.8532E+0, 6.9056E+0,
     * 6.9676E+0, 7.0308E+0, 7.0754E+0, 7.0976E+0, 7.0921E+0/
      DATA X3201/ 7.0504E+0, 6.9549E+0, 6.7576E+0, 6.6144E+0, 6.4855E+0,
     * 6.3609E+0, 6.2508E+0, 6.1350E+0, 6.0800E+0, 5.9270E+0, 4.1260E+0,
     * 3.2976E+1, 1.2928E+0, 3.1430E-2, 1.0000E-3, 2.0000E-3, 1.0000E-3,
     * 1.0000E-3/

      CALL FLUID0(G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,M)
      RETURN

      END
      SUBROUTINE DRYAIR
C.....AIR TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 0.28722 JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 132.52 DEG. K                   C(2)
C       PCRIT = 3.766 MEGA-NEWTONS / METER**2   C(3)
C       DCRIT = 0.3130 GRAMS / CENTIMETER**3    C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)


C.....IMPLEMENTATION OF THE AIR PROPERTIES PRESENTED IN:

C     DIE THERMODYNAMISCHEN EIGENSCHAFTEN DER LUFT  --
C       IM TEMPERATURBEREICH ZWISCHEN -210 DEG. C AND
C       +1250 DEG. C BIS ZU DRUCKEN VON 4500 BAR.

C           BY H. D. BAEHR AND K. SCHWIER (1961)


C.....THIS TABLE COVERS 150 TO 1500 DEG. K, UP TO 0.6 GRAMS/CM**3.


      DIMENSION G(12,4),TT(12),DD(15),GG(12,15,8),SAT(8,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(87)

      DIMENSION Z(1587)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0049)),(DD,Z(0061)),(GG,Z(0076)),
     *            (SAT,Z(1516)),(C,Z(1580))
      DATA NG,N1,N2,N3,NS / 12,12,15,8,8 /

      DATA X0001/ 1.1300E+0, 1.2000E+0, 1.5000E+0, 1.9000E+0, 2.4000E+0,
     * 3.1000E+0, 3.9000E+0, 5.0000E+0, 6.3000E+0, 8.0000E+0, 1.0000E+1,
     * 1.1300E+1, 1.6892E+1, 1.7042E+1, 1.7598E+1, 1.8188E+1, 1.8778E+1,
     * 1.9422E+1, 2.0011E+1, 2.0670E+1, 2.1312E+1, 2.2013E+1, 2.2701E+1,
     * 2.3091E+1, 1.1897E+1, 1.2059E+1, 1.2751E+1, 1.3673E+1, 1.4830E+1,
     * 1.6462E+1, 1.8365E+1, 2.1079E+1, 2.4457E+1, 2.9134E+1, 3.4934E+1,
     * 3.8834E+1, 2.4917E+0, 2.4917E+0, 2.4920E+0, 2.4944E+0, 2.5037E+0,
     * 2.5350E+0, 2.5979E+0, 2.7127E+0, 2.8546E+0, 3.0131E+0, 3.1502E+0,
     * 3.2180E+0, 1.1300E+0, 1.2000E+0, 1.5000E+0, 1.9000E+0, 2.4000E+0,
     * 3.1000E+0, 3.9000E+0, 5.0000E+0, 6.3000E+0, 8.0000E+0, 1.0000E+1,
     * 1.1300E+1, 1.0000E-5, 3.0000E-4, 7.0000E-4, 2.0000E-3, 5.0000E-3,
     * 1.0000E-2, 2.0000E-2, 5.0000E-2, 1.0000E-1, 2.0000E-1, 5.0000E-1,
     * 9.0000E-1, 1.4000E+0, 1.7000E+0, 2.0000E+0, 1.1862E+0, 1.1862E+0,
     * 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0,
     * 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1861E+0, 1.1861E+0,
     * 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0,
     * 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0, 1.1859E+0 /
      DATA X0101/ 1.1860E+0, 1.1861E+0, 1.1862E+0, 1.1862E+0, 1.1862E+0,
     * 1.1863E+0, 1.1863E+0, 1.1863E+0, 1.1863E+0, 1.1863E+0, 1.1863E+0,
     * 1.1854E+0, 1.1855E+0, 1.1859E+0, 1.1861E+0, 1.1862E+0, 1.1863E+0,
     * 1.1864E+0, 1.1864E+0, 1.1864E+0, 1.1864E+0, 1.1864E+0, 1.1864E+0,
     * 1.1842E+0, 1.1846E+0, 1.1855E+0, 1.1860E+0, 1.1863E+0, 1.1865E+0,
     * 1.1866E+0, 1.1866E+0, 1.1867E+0, 1.1867E+0, 1.1868E+0, 1.1868E+0,
     * 1.1822E+0, 1.1829E+0, 1.1848E+0, 1.1858E+0, 1.1864E+0, 1.1867E+0,
     * 1.1869E+0, 1.1871E+0, 1.1872E+0, 1.1873E+0, 1.1873E+0, 1.1873E+0,
     * 1.1784E+0, 1.1797E+0, 1.1833E+0, 1.1854E+0, 1.1866E+0, 1.1873E+0,
     * 1.1877E+0, 1.1880E+0, 1.1882E+0, 1.1883E+0, 1.1884E+0, 1.1885E+0,
     * 1.1674E+0, 1.1706E+0, 1.1791E+0, 1.1842E+0, 1.1872E+0, 1.1891E+0,
     * 1.1901E+0, 1.1909E+0, 1.1914E+0, 1.1918E+0, 1.1921E+0, 1.1922E+0,
     * 1.1509E+0, 1.1568E+0, 1.1725E+0, 1.1824E+0, 1.1884E+0, 1.1922E+0,
     * 1.1944E+0, 1.1960E+0, 1.1970E+0, 1.1978E+0, 1.1984E+0, 1.1986E+0,
     * 1.1239E+0, 1.1339E+0, 1.1614E+0, 1.1798E+0, 1.1915E+0, 1.1989E+0,
     * 1.2032E+0, 1.2062E+0, 1.2081E+0, 1.2095E+0, 1.2104E+0, 1.2108E+0,
     * 1.0723E+0, 1.0909E+0, 1.1432E+0, 1.1788E+0, 1.2021E+0 /
      DATA X0201/ 1.2175E+0, 1.2255E+0, 1.2305E+0, 1.2329E+0, 1.2341E+0,
     * 1.2345E+0, 1.2346E+0, 1.0494E+0, 1.0699E+0, 1.1331E+0, 1.1811E+0,
     * 1.2129E+0, 1.2349E+0, 1.2463E+0, 1.2529E+0, 1.2557E+0, 1.2565E+0,
     * 1.2563E+0, 1.2559E+0, 1.0280E+0, 1.0486E+0, 1.1173E+0, 1.1712E+0,
     * 1.2069E+0, 1.2298E+0, 1.2407E+0, 1.2461E+0, 1.2475E+0, 1.2469E+0,
     * 1.2453E+0, 1.2443E+0, 1.0017E+0, 1.0239E+0, 1.0951E+0, 1.1477E+0,
     * 1.1789E+0, 1.1950E+0, 1.1990E+0, 1.1970E+0, 1.1921E+0, 1.1857E+0,
     * 1.1795E+0, 1.1762E+0, 9.6214E-1, 9.8415E-1, 1.0491E+0, 1.0919E+0,
     * 1.1122E+0, 1.1140E+0, 1.1032E+0, 1.0842E+0, 1.0639E+0, 1.0428E+0,
     * 1.0244E+0, 1.0151E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 9.9998E-1, 9.9998E-1, 9.9999E-1, 9.9998E-1,
     * 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 9.9999E-1, 9.9997E-1, 9.9997E-1, 9.9998E-1, 9.9998E-1,
     * 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 9.9998E-1, 9.9992E-1, 9.9993E-1, 9.9996E-1, 9.9997E-1,
     * 9.9997E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1 /
      DATA X0301/ 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9982E-1, 9.9985E-1,
     * 9.9991E-1, 9.9994E-1, 9.9995E-1, 9.9996E-1, 9.9996E-1, 9.9997E-1,
     * 9.9997E-1, 9.9997E-1, 9.9997E-1, 9.9997E-1, 9.9965E-1, 9.9970E-1,
     * 9.9983E-1, 9.9989E-1, 9.9991E-1, 9.9993E-1, 9.9994E-1, 9.9994E-1,
     * 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9930E-1, 9.9940E-1,
     * 9.9966E-1, 9.9979E-1, 9.9983E-1, 9.9988E-1, 9.9989E-1, 9.9990E-1,
     * 9.9990E-1, 9.9991E-1, 9.9991E-1, 9.9991E-1, 9.9826E-1, 9.9850E-1,
     * 9.9913E-1, 9.9945E-1, 9.9959E-1, 9.9969E-1, 9.9973E-1, 9.9975E-1,
     * 9.9976E-1, 9.9977E-1, 9.9977E-1, 9.9978E-1, 9.9662E-1, 9.9707E-1,
     * 9.9826E-1, 9.9886E-1, 9.9916E-1, 9.9935E-1, 9.9943E-1, 9.9948E-1,
     * 9.9950E-1, 9.9952E-1, 9.9953E-1, 9.9954E-1, 9.9361E-1, 9.9443E-1,
     * 9.9654E-1, 9.9761E-1, 9.9824E-1, 9.9862E-1, 9.9879E-1, 9.9888E-1,
     * 9.9894E-1, 9.9898E-1, 9.9902E-1, 9.9903E-1, 9.8549E-1, 9.8725E-1,
     * 9.9157E-1, 9.9384E-1, 9.9534E-1, 9.9630E-1, 9.9679E-1, 9.9712E-1,
     * 9.9732E-1, 9.9747E-1, 9.9758E-1, 9.9763E-1, 9.7656E-1, 9.7916E-1,
     * 9.8536E-1, 9.8895E-1, 9.9137E-1, 9.9316E-1, 9.9418E-1, 9.9490E-1,
     * 9.9536E-1, 9.9570E-1, 9.9593E-1, 9.9604E-1, 9.6859E-1 /
      DATA X0401/ 9.7114E-1, 9.7805E-1, 9.8284E-1, 9.8644E-1, 9.8926E-1,
     * 9.9096E-1, 9.9221E-1, 9.9302E-1, 9.9361E-1, 9.9401E-1, 9.9420E-1,
     * 9.6398E-1, 9.6640E-1, 9.7374E-1, 9.7947E-1, 9.8399E-1, 9.8760E-1,
     * 9.8980E-1, 9.9141E-1, 9.9243E-1, 9.9317E-1, 9.9367E-1, 9.9389E-1,
     * 9.5904E-1, 9.6162E-1, 9.7000E-1, 9.7705E-1, 9.8292E-1, 9.8770E-1,
     * 9.9063E-1, 9.9277E-1, 9.9409E-1, 9.9500E-1, 9.9558E-1, 9.9582E-1,
     * 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0005E+0, 1.0006E+0, 1.0006E+0,
     * 1.0007E+0, 1.0008E+0, 1.0008E+0, 1.0009E+0, 1.0009E+0, 1.0009E+0,
     * 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9994E-1, 9.9994E-1,
     * 9.9993E-1, 9.9993E-1, 9.9992E-1, 9.9992E-1, 9.9991E-1, 9.9991E-1,
     * 9.9992E-1, 9.9993E-1, 9.9994E-1, 9.9994E-1, 9.9994E-1, 9.9993E-1,
     * 9.9993E-1, 9.9992E-1, 9.9991E-1, 9.9991E-1, 9.9990E-1, 9.9990E-1,
     * 9.9984E-1, 9.9985E-1, 9.9990E-1, 9.9992E-1, 9.9992E-1, 9.9993E-1,
     * 9.9992E-1, 9.9991E-1, 9.9990E-1, 9.9989E-1, 9.9989E-1, 9.9988E-1,
     * 9.9963E-1, 9.9968E-1, 9.9980E-1, 9.9987E-1, 9.9989E-1, 9.9990E-1,
     * 9.9990E-1, 9.9988E-1, 9.9987E-1, 9.9985E-1, 9.9984E-1, 9.9984E-1,
     * 9.9930E-1, 9.9939E-1, 9.9965E-1, 9.9979E-1, 9.9983E-1 /
      DATA X0501/ 9.9987E-1, 9.9986E-1, 9.9984E-1, 9.9982E-1, 9.9979E-1,
     * 9.9978E-1, 9.9977E-1, 9.9865E-1, 9.9882E-1, 9.9934E-1, 9.9962E-1,
     * 9.9972E-1, 9.9979E-1, 9.9979E-1, 9.9975E-1, 9.9971E-1, 9.9967E-1,
     * 9.9964E-1, 9.9962E-1, 9.9677E-1, 9.9719E-1, 9.9842E-1, 9.9910E-1,
     * 9.9938E-1, 9.9954E-1, 9.9954E-1, 9.9947E-1, 9.9938E-1, 9.9929E-1,
     * 9.9921E-1, 9.9918E-1, 9.9390E-1, 9.9468E-1, 9.9693E-1, 9.9816E-1,
     * 9.9876E-1, 9.9908E-1, 9.9908E-1, 9.9895E-1, 9.9878E-1, 9.9861E-1,
     * 9.9847E-1, 9.9840E-1, 9.8882E-1, 9.9022E-1, 9.9409E-1, 9.9617E-1,
     * 9.9744E-1, 9.9802E-1, 9.9805E-1, 9.9782E-1, 9.9752E-1, 9.9721E-1,
     * 9.9695E-1, 9.9682E-1, 9.7542E-1, 9.7840E-1, 9.8611E-1, 9.9029E-1,
     * 9.9310E-1, 9.9449E-1, 9.9473E-1, 9.9442E-1, 9.9388E-1, 9.9325E-1,
     * 9.9270E-1, 9.9243E-1, 9.6058E-1, 9.6506E-1, 9.7599E-1, 9.8225E-1,
     * 9.8632E-1, 9.8872E-1, 9.8935E-1, 9.8904E-1, 9.8825E-1, 9.8724E-1,
     * 9.8629E-1, 9.8581E-1, 9.4611E-1, 9.5042E-1, 9.6202E-1, 9.6968E-1,
     * 9.7512E-1, 9.7852E-1, 9.7957E-1, 9.7929E-1, 9.7827E-1, 9.7689E-1,
     * 9.7557E-1, 9.7489E-1, 9.3558E-1, 9.3952E-1, 9.5136E-1, 9.6021E-1,
     * 9.6689E-1, 9.7129E-1, 9.7289E-1, 9.7291E-1, 9.7199E-1 /
      DATA X0601/ 9.7061E-1, 9.6924E-1, 9.6852E-1, 9.2123E-1, 9.2534E-1,
     * 9.3859E-1, 9.4931E-1, 9.5808E-1, 9.6438E-1, 9.6732E-1, 9.6843E-1,
     * 9.6822E-1, 9.6734E-1, 9.6627E-1, 9.6566E-1, 9.9994E-1, 9.9994E-1,
     * 9.9997E-1, 9.9999E-1, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0004E+0, 1.0004E+0,
     * 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0013E+0, 1.0013E+0,
     * 1.0007E+0, 1.0003E+0, 1.0002E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0033E+0, 1.0033E+0,
     * 1.0017E+0, 1.0008E+0, 1.0005E+0, 1.0002E+0, 1.0001E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0066E+0, 1.0066E+0,
     * 1.0035E+0, 1.0017E+0, 1.0010E+0, 1.0004E+0, 1.0002E+0, 1.0001E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0130E+0, 1.0130E+0,
     * 1.0068E+0, 1.0033E+0, 1.0019E+0, 1.0008E+0, 1.0003E+0, 1.0001E+0,
     * 1.0000E+0, 1.0000E+0, 9.9999E-1, 9.9999E-1, 1.0307E+0 /
      DATA X0701/ 1.0307E+0, 1.0160E+0, 1.0076E+0, 1.0047E+0, 1.0019E+0,
     * 1.0008E+0, 1.0003E+0, 1.0001E+0, 1.0000E+0, 9.9999E-1, 9.9999E-1,
     * 1.0574E+0, 1.0559E+0, 1.0289E+0, 1.0136E+0, 1.0088E+0, 1.0037E+0,
     * 1.0016E+0, 1.0006E+0, 1.0002E+0, 1.0001E+0, 1.0000E+0, 9.9999E-1,
     * 1.1046E+0, 1.0962E+0, 1.0489E+0, 1.0229E+0, 1.0162E+0, 1.0072E+0,
     * 1.0034E+0, 1.0014E+0, 1.0006E+0, 1.0003E+0, 1.0001E+0, 1.0001E+0,
     * 1.2235E+0, 1.1876E+0, 1.0953E+0, 1.0462E+0, 1.0362E+0, 1.0190E+0,
     * 1.0107E+0, 1.0057E+0, 1.0032E+0, 1.0018E+0, 1.0010E+0, 1.0008E+0,
     * 1.3325E+0, 1.2530E+0, 1.1355E+0, 1.0733E+0, 1.0605E+0, 1.0367E+0,
     * 1.0230E+0, 1.0136E+0, 1.0082E+0, 1.0049E+0, 1.0030E+0, 1.0023E+0,
     * 1.2914E+0, 1.2376E+0, 1.1560E+0, 1.1015E+0, 1.0873E+0, 1.0580E+0,
     * 1.0385E+0, 1.0238E+0, 1.0148E+0, 1.0090E+0, 1.0056E+0, 1.0044E+0,
     * 1.2529E+0, 1.2213E+0, 1.1723E+0, 1.1250E+0, 1.1094E+0, 1.0742E+0,
     * 1.0499E+0, 1.0311E+0, 1.0195E+0, 1.0119E+0, 1.0075E+0, 1.0058E+0,
     * 1.2537E+0, 1.2311E+0, 1.2015E+0, 1.1555E+0, 1.1435E+0, 1.1008E+0,
     * 1.0691E+0, 1.0437E+0, 1.0276E+0, 1.0170E+0, 1.0107E+0, 1.0083E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0 /
      DATA X0801/ 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0004E+0, 1.0003E+0, 1.0002E+0, 1.0001E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0011E+0, 1.0009E+0, 1.0004E+0, 1.0002E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0027E+0, 1.0023E+0, 1.0011E+0, 1.0005E+0,
     * 1.0003E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0054E+0, 1.0045E+0, 1.0022E+0, 1.0010E+0,
     * 1.0005E+0, 1.0002E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0107E+0, 1.0089E+0, 1.0044E+0, 1.0020E+0,
     * 1.0010E+0, 1.0004E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0259E+0, 1.0216E+0, 1.0108E+0, 1.0053E+0,
     * 1.0026E+0, 1.0010E+0, 1.0004E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0,
     * 9.9999E-1, 9.9998E-1, 1.0501E+0, 1.0415E+0, 1.0212E+0, 1.0110E+0,
     * 1.0050E+0, 1.0021E+0, 1.0009E+0, 1.0003E+0, 1.0001E+0 /
      DATA X0901/ 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0988E+0, 1.0799E+0,
     * 1.0401E+0, 1.0212E+0, 1.0094E+0, 1.0039E+0, 1.0017E+0, 1.0007E+0,
     * 1.0003E+0, 1.0003E+0, 1.0004E+0, 1.0004E+0, 1.2734E+0, 1.1960E+0,
     * 1.0763E+0, 1.0344E+0, 1.0164E+0, 1.0058E+0, 1.0016E+0, 1.0000E+0,
     * 9.9988E-1, 1.0004E+0, 1.0010E+0, 1.0014E+0, 1.2413E+0, 1.1834E+0,
     * 1.0910E+0, 1.0491E+0, 1.0271E+0, 1.0135E+0, 1.0067E+0, 1.0031E+0,
     * 1.0018E+0, 1.0016E+0, 1.0019E+0, 1.0022E+0, 1.4597E+0, 1.3408E+0,
     * 1.1650E+0, 1.0966E+0, 1.0618E+0, 1.0429E+0, 1.0343E+0, 1.0296E+0,
     * 1.0277E+0, 1.0269E+0, 1.0269E+0, 1.0270E+0, 1.4831E+0, 1.3839E+0,
     * 1.2060E+0, 1.1256E+0, 1.0812E+0, 1.0575E+0, 1.0485E+0, 1.0459E+0,
     * 1.0469E+0, 1.0496E+0, 1.0527E+0, 1.0544E+0, 1.3915E+0, 1.3366E+0,
     * 1.2089E+0, 1.1413E+0, 1.0902E+0, 1.0600E+0, 1.0519E+0, 1.0583E+0,
     * 1.0743E+0, 1.0976E+0, 1.1238E+0, 1.1394E+0, 1.0003E+0, 1.0003E+0,
     * 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0,
     * 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0,
     * 1.0003E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0,
     * 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0002E+0 /
      DATA X1001/ 1.0002E+0, 1.0003E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0,
     * 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0,
     * 9.9997E-1, 1.0001E+0, 1.0003E+0, 1.0004E+0, 1.0005E+0, 1.0005E+0,
     * 1.0005E+0, 1.0006E+0, 1.0006E+0, 1.0006E+0, 1.0006E+0, 1.0006E+0,
     * 9.9942E-1, 9.9968E-1, 1.0003E+0, 1.0006E+0, 1.0008E+0, 1.0008E+0,
     * 1.0009E+0, 1.0009E+0, 1.0009E+0, 1.0009E+0, 1.0009E+0, 1.0009E+0,
     * 9.9852E-1, 9.9904E-1, 1.0003E+0, 1.0009E+0, 1.0012E+0, 1.0014E+0,
     * 1.0014E+0, 1.0014E+0, 1.0014E+0, 1.0014E+0, 1.0014E+0, 1.0014E+0,
     * 9.9676E-1, 9.9778E-1, 1.0002E+0, 1.0015E+0, 1.0021E+0, 1.0024E+0,
     * 1.0025E+0, 1.0026E+0, 1.0026E+0, 1.0026E+0, 1.0026E+0, 1.0026E+0,
     * 9.9181E-1, 9.9422E-1, 1.0002E+0, 1.0033E+0, 1.0050E+0, 1.0057E+0,
     * 1.0060E+0, 1.0062E+0, 1.0062E+0, 1.0063E+0, 1.0063E+0, 1.0063E+0,
     * 9.8455E-1, 9.8915E-1, 1.0005E+0, 1.0068E+0, 1.0101E+0, 1.0116E+0,
     * 1.0122E+0, 1.0124E+0, 1.0125E+0, 1.0125E+0, 1.0125E+0, 1.0124E+0,
     * 9.7251E-1, 9.8184E-1, 1.0038E+0, 1.0154E+0, 1.0212E+0, 1.0236E+0,
     * 1.0243E+0, 1.0243E+0, 1.0239E+0, 1.0234E+0, 1.0230E+0, 1.0228E+0,
     * 9.5710E-1, 9.8528E-1, 1.0341E+0, 1.0505E+0, 1.0556E+0 /
      DATA X1101/ 1.0557E+0, 1.0533E+0, 1.0497E+0, 1.0461E+0, 1.0426E+0,
     * 1.0397E+0, 1.0383E+0, 1.0245E+0, 1.0401E+0, 1.0683E+0, 1.0784E+0,
     * 1.0790E+0, 1.0759E+0, 1.0715E+0, 1.0663E+0, 1.0615E+0, 1.0571E+0,
     * 1.0535E+0, 1.0517E+0, 8.7039E-1, 9.2266E-1, 1.0049E+0, 1.0297E+0,
     * 1.0343E+0, 1.0292E+0, 1.0216E+0, 1.0130E+0, 1.0054E+0, 9.9848E-1,
     * 9.9293E-1, 9.9026E-1, 8.1430E-1, 8.5701E-1, 9.3513E-1, 9.6208E-1,
     * 9.6497E-1, 9.5595E-1, 9.4243E-1, 9.2590E-1, 9.1070E-1, 8.9621E-1,
     * 8.8418E-1, 8.7826E-1, 7.8402E-1, 8.0550E-1, 8.4813E-1, 8.6060E-1,
     * 8.5796E-1, 8.3749E-1, 8.0715E-1, 7.6727E-1, 7.2774E-1, 6.8737E-1,
     * 6.5167E-1, 6.3331E-1, 1.0270E-4, 1.0852E-4, 1.3216E-4, 1.6083E-4,
     * 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4, 3.7208E-4, 4.2995E-4,
     * 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4, 1.3216E-4, 1.6083E-4,
     * 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4, 3.7208E-4, 4.2995E-4,
     * 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4, 1.3216E-4, 1.6083E-4,
     * 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4, 3.7208E-4, 4.2995E-4,
     * 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4, 1.3216E-4, 1.6083E-4,
     * 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4, 3.7208E-4 /
      DATA X1201/ 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4,
     * 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4,
     * 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4,
     * 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4,
     * 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4,
     * 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4,
     * 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4,
     * 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4,
     * 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4,
     * 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4,
     * 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4,
     * 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4,
     * 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4,
     * 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4,
     * 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4, 1.0852E-4,
     * 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4, 2.7312E-4, 3.2170E-4,
     * 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4, 1.0270E-4 /
      DATA X1301/ 1.0852E-4, 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4,
     * 2.7312E-4, 3.2170E-4, 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4,
     * 1.0270E-4, 1.0852E-4, 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4,
     * 2.7312E-4, 3.2170E-4, 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4,
     * 1.0270E-4, 1.0852E-4, 1.3216E-4, 1.6083E-4, 1.9302E-4, 2.3292E-4,
     * 2.7312E-4, 3.2170E-4, 3.7208E-4, 4.2995E-4, 4.8994E-4, 5.2547E-4,
     * 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4, 2.7637E-4, 3.4411E-4,
     * 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4, 8.1534E-4, 8.8201E-4,
     * 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4, 2.7637E-4, 3.4411E-4,
     * 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4, 8.1534E-4, 8.8201E-4,
     * 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4, 2.7637E-4, 3.4411E-4,
     * 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4, 8.1534E-4, 8.8201E-4,
     * 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4, 2.7637E-4, 3.4411E-4,
     * 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4, 8.1534E-4, 8.8201E-4,
     * 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4, 2.7637E-4, 3.4411E-4,
     * 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4, 8.1534E-4, 8.8201E-4,
     * 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4, 2.7637E-4 /
      DATA X1401/ 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4,
     * 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4,
     * 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4,
     * 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4,
     * 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4,
     * 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4,
     * 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4,
     * 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4,
     * 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4,
     * 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4,
     * 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4,
     * 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4,
     * 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4,
     * 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4,
     * 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4, 7.0298E-4,
     * 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4, 1.7984E-4, 2.2412E-4,
     * 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4, 5.9525E-4 /
      DATA X1501/ 7.0298E-4, 8.1534E-4, 8.8201E-4, 1.3704E-4, 1.4526E-4,
     * 1.7984E-4, 2.2412E-4, 2.7637E-4, 3.4411E-4, 4.1481E-4, 5.0256E-4,
     * 5.9525E-4, 7.0298E-4, 8.1534E-4, 8.8201E-4, 5.2822E-1, 6.0368E-1,
     * 6.7914E-1, 7.5460E-1, 8.3006E-1, 9.0552E-1, 9.8098E-1, 1.0000E 0,
     * 5.3372E-3, 2.1243E-2, 6.2294E-2, 1.4732E-1, 2.9793E-1, 5.3585E-1,
     * 8.8051E-1, 1.0000E 0, 2.7559E 0, 2.6192E 0, 2.4712E 0, 2.3045E 0,
     * 2.1169E 0, 1.8974E 0, 1.5355E 0, 1.0000E 0, 3.1949E-3, 1.1502E-2,
     * 3.1629E-2, 7.1565E-2, 1.4441E-1, 2.7668E-1, 5.8466E-1, 1.0000E 0,
     * 1.1166E 1, 1.1873E 1, 1.2583E 1, 1.3304E 1, 1.4052E 1, 1.4853E 1,
     * 1.5849E 1, 1.6664E 1, 2.1809E 1, 2.0835E 1, 2.0079E 1, 1.9452E 1,
     * 1.8902E 1, 1.8352E 1, 1.7544E 1, 1.6664E 1, 5.6192E 0, 6.0212E 0,
     * 6.4836E 0, 7.0138E 0, 7.6298E 0, 8.3655E 0, 9.3692E 0, 1.0200E 1,
     * 1.1109E 1, 1.1320E 1, 1.1485E 1, 1.1588E 1, 1.1613E 1, 1.1507E 1,
     * 1.1021E 1, 1.0200E 1, 2.8722E-1, 1.3252E 2, 3.7660E 0, 3.1300E-1,
     * 1.0000E-3, 1.0000E-3, 1.0000E-3, 1.0000E-3 /

      CALL FLUID0 (G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,M)
      RETURN

      END
      SUBROUTINE STEAM
C.....STEAM TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 0.46151 JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 647.29 DEG. K                   C(2)
C       PCRIT = 22.089 MEGA-NEWTONS / METER**2  C(3)
C       DCRIT = 0.317   GRAMS / CENTIMETER**3   C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)

      DIMENSION G(20,4),TT(20),DD(30),GG(20,30,8),SAT(40,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(100),X1601(100),X1701(100),X1801(100),X1901(100),
     *          X2001(100),X2101(100),X2201(100),X2301(100),X2401(100),
     *          X2501(100),X2601(100),X2701(100),X2801(100),X2901(100),
     *          X3001(100),X3101(100),X3201(100),X3301(100),X3401(100),
     *          X3501(100),X3601(100),X3701(100),X3801(100),X3901(100),
     *          X4001(100),X4101(100),X4201(100),X4301(100),X4401(100),
     *          X4501(100),X4601(100),X4701(100),X4801(100),X4901(100),
     *          X5001(100),X5101(100),X5201(58)

      DIMENSION Z(5258)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501)), (X1601,Z(1601)), (X1701,Z(1701)),
     *            (X1801,Z(1801)), (X1901,Z(1901)), (X2001,Z(2001)),
     *            (X2101,Z(2101)), (X2201,Z(2201)), (X2301,Z(2301)),
     *            (X2401,Z(2401)), (X2501,Z(2501)), (X2601,Z(2601)),
     *            (X2701,Z(2701)), (X2801,Z(2801)), (X2901,Z(2901)),
     *            (X3001,Z(3001)), (X3101,Z(3101)), (X3201,Z(3201)),
     *            (X3301,Z(3301)), (X3401,Z(3401)), (X3501,Z(3501)),
     *            (X3601,Z(3601)), (X3701,Z(3701)), (X3801,Z(3801)),
     *            (X3901,Z(3901)), (X4001,Z(4001)), (X4101,Z(4101)),
     *            (X4201,Z(4201)), (X4301,Z(4301)), (X4401,Z(4401)),
     *            (X4501,Z(4501)), (X4601,Z(4601)), (X4701,Z(4701)),
     *            (X4801,Z(4801)), (X4901,Z(4901)), (X5001,Z(5001)),
     *            (X5101,Z(5101)), (X5201,Z(5201))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0081)),(DD,Z(0101)),(GG,Z(0131)),
     1            (SAT,Z(4931)),(C,Z(5251))
      DATA NG,N1,N2,N3,NS/20,20,30,8,40/

      DATA X0001/ 6.1150E-1, 7.1000E-1, 7.6000E-1, 8.3000E-1, 8.9000E-1,
     * 9.3000E-1, 9.4000E-1, 9.6000E-1, 9.8000E-1, 9.9000E-1, 1.0000E+0,
     * 1.0100E+0, 1.0300E+0, 1.0800E+0, 1.1000E+0, 1.3000E+0, 1.5000E+0,
     * 2.0000E+0, 2.4000E+0, 2.7000E+0, 2.8629E+1, 2.9099E+1, 2.9317E+1,
     * 2.9604E+1, 2.9835E+1, 2.9982E+1, 3.0018E+1, 3.0089E+1, 3.0159E+1,
     * 3.0194E+1, 3.0228E+1, 3.0263E+1, 3.0330E+1, 3.0495E+1, 3.0560E+1,
     * 3.1164E+1, 3.1709E+1, 3.2903E+1, 3.3744E+1, 3.4331E+1, 1.6534E+1,
     * 1.6784E+1, 1.6914E+1, 1.7100E+1, 1.7261E+1, 1.7371E+1, 1.7399E+1,
     * 1.7454E+1, 1.7510E+1, 1.7538E+1, 1.7567E+1, 1.7595E+1, 1.7652E+1,
     * 1.7795E+1, 1.7853E+1, 1.8455E+1, 1.9096E+1, 2.0874E+1, 2.2479E+1,
     * 2.3792E+1, 3.1164E+0, 3.1856E+0, 3.2244E+0, 3.2815E+0, 3.3327E+0,
     * 3.3678E+0, 3.3766E+0, 3.3944E+0, 3.4124E+0, 3.4215E+0, 3.4305E+0,
     * 3.4396E+0, 3.4579E+0, 3.5041E+0, 3.5228E+0, 3.7138E+0, 3.9106E+0,
     * 4.4164E+0, 4.8288E+0, 5.1406E+0, 6.1150E-1, 7.1200E-1, 7.6400E-1,
     * 8.3500E-1, 8.9100E-1, 9.3600E-1, 9.4600E-1, 9.6400E-1, 9.8300E-1,
     * 9.9000E-1, 9.9500E-1, 9.9900E-1, 1.0300E+0, 1.0800E+0, 1.1000E+0,
     * 1.3000E+0, 1.5000E+0, 2.0000E+0, 2.4000E+0, 2.7000E+0/
      DATA X0101/ 1.0000E-5, 2.0000E-4, 3.5000E-3, 1.7000E-2, 3.5000E-2,
     * 7.8000E-2, 1.5000E-1, 2.1000E-1, 2.5300E-1, 2.8000E-1, 3.5800E-1,
     * 4.3000E-1, 5.0000E-1, 5.7500E-1, 6.6000E-1, 8.4000E-1, 1.1800E+0,
     * 1.4000E+0, 1.5000E+0, 1.6000E+0, 1.7000E+0, 1.8000E+0, 1.9400E+0,
     * 2.0000E+0, 2.0900E+0, 2.2300E+0, 2.4500E+0, 2.6500E+0, 2.7800E+0,
     * 2.9800E+0, 1.6076E+0, 1.6076E+0, 1.6076E+0, 1.6076E+0, 1.6076E+0,
     * 1.6076E+0, 1.6076E+0, 1.6076E+0, 1.6076E+0, 1.6076E+0, 1.6076E+0,
     * 1.6076E+0, 1.6076E+0, 1.6076E+0, 1.6076E+0, 1.6077E+0, 1.6077E+0,
     * 1.6077E+0, 1.6077E+0, 1.6077E+0, 1.6058E+0, 1.6066E+0, 1.6068E+0,
     * 1.6071E+0, 1.6072E+0, 1.6072E+0, 1.6073E+0, 1.6073E+0, 1.6073E+0,
     * 1.6073E+0, 1.6073E+0, 1.6073E+0, 1.6074E+0, 1.6074E+0, 1.6074E+0,
     * 1.6075E+0, 1.6076E+0, 1.6076E+0, 1.6076E+0, 1.6077E+0, 1.5748E+0,
     * 1.5892E+0, 1.5933E+0, 1.5970E+0, 1.5990E+0, 1.6003E+0, 1.6005E+0,
     * 1.6010E+0, 1.6014E+0, 1.6015E+0, 1.6016E+0, 1.6017E+0, 1.6022E+0,
     * 1.6030E+0, 1.6033E+0, 1.6051E+0, 1.6060E+0, 1.6070E+0, 1.6075E+0,
     * 1.6078E+0, 1.4547E+0, 1.5145E+0, 1.5361E+0, 1.5554E+0, 1.5656E+0,
     * 1.5719E+0, 1.5731E+0, 1.5751E+0, 1.5771E+0, 1.5778E+0/
      DATA X0201/ 1.5783E+0, 1.5786E+0, 1.5813E+0, 1.5851E+0, 1.5863E+0,
     * 1.5952E+0, 1.5998E+0, 1.6046E+0, 1.6067E+0, 1.6082E+0, 1.3094E+0,
     * 1.4147E+0, 1.4563E+0, 1.4988E+0, 1.5208E+0, 1.5340E+0, 1.5366E+0,
     * 1.5408E+0, 1.5449E+0, 1.5464E+0, 1.5473E+0, 1.5481E+0, 1.5537E+0,
     * 1.5613E+0, 1.5639E+0, 1.5821E+0, 1.5915E+0, 1.6013E+0, 1.6055E+0,
     * 1.6086E+0, 9.9307E-1, 1.1911E+0, 1.2731E+0, 1.3627E+0, 1.4151E+0,
     * 1.4455E+0, 1.4512E+0, 1.4608E+0, 1.4700E+0, 1.4732E+0, 1.4754E+0,
     * 1.4771E+0, 1.4894E+0, 1.5060E+0, 1.5118E+0, 1.5516E+0, 1.5725E+0,
     * 1.5939E+0, 1.6025E+0, 1.6092E+0, 5.3723E-1, 8.6287E-1, 1.0009E+0,
     * 1.1556E+0, 1.2502E+0, 1.3086E+0, 1.3195E+0, 1.3375E+0, 1.3547E+0,
     * 1.3606E+0, 1.3646E+0, 1.3678E+0, 1.3905E+0, 1.4209E+0, 1.4314E+0,
     * 1.5040E+0, 1.5429E+0, 1.5821E+0, 1.5972E+0, 1.6095E+0, 2.7441E-1,
     * 6.6028E-1, 8.2587E-1, 1.0150E+0, 1.1338E+0, 1.2099E+0, 1.2245E+0,
     * 1.2485E+0, 1.2713E+0, 1.2791E+0, 1.2845E+0, 1.2887E+0, 1.3186E+0,
     * 1.3587E+0, 1.3725E+0, 1.4683E+0, 1.5203E+0, 1.5728E+0, 1.5932E+0,
     * 1.6102E+0, 6.4209E-2, 5.1280E-1, 7.0470E-1, 9.2374E-1, 1.0611E+0,
     * 1.1488E+0, 1.1655E+0, 1.1931E+0, 1.2193E+0, 1.2282E+0/
      DATA X0301/ 1.2344E+0, 1.2392E+0, 1.2735E+0, 1.3193E+0, 1.3351E+0,
     * 1.4450E+0, 1.5053E+0, 1.5666E+0, 1.5908E+0, 1.6112E+0, 3.8147E-2,
     * 4.7560E-1, 6.6534E-1, 8.8400E-1, 1.0236E+0, 1.1147E+0, 1.1325E+0,
     * 1.1620E+0, 1.1899E+0, 1.1995E+0, 1.2061E+0, 1.2112E+0, 1.2478E+0,
     * 1.2967E+0, 1.3136E+0, 1.4314E+0, 1.4962E+0, 1.5628E+0, 1.5895E+0,
     * 1.6121E+0,-9.8389E-2, 3.5547E-1, 5.5347E-1, 7.8462E-1, 9.3454E-1,
     * 1.0343E+0, 1.0540E+0, 1.0871E+0, 1.1188E+0, 1.1297E+0, 1.1372E+0,
     * 1.1431E+0, 1.1847E+0, 1.2406E+0, 1.2599E+0, 1.3958E+0, 1.4720E+0,
     * 1.5527E+0, 1.5869E+0, 1.6157E+0,-1.3843E-1, 3.0151E-1, 4.9780E-1,
     * 7.2827E-1, 8.7981E-1, 9.8157E-1, 1.0019E+0, 1.0364E+0, 1.0697E+0,
     * 1.0812E+0, 1.0892E+0, 1.0954E+0, 1.1397E+0, 1.1994E+0, 1.2201E+0,
     * 1.3677E+0, 1.4518E+0, 1.5445E+0, 1.5859E+0, 1.6201E+0,-1.4063E-1,
     * 2.8735E-1, 4.7534E-1, 6.9751E-1, 8.4595E-1, 9.4678E-1, 9.6700E-1,
     * 1.0014E+0, 1.0350E+0, 1.0466E+0, 1.0547E+0, 1.0610E+0, 1.1062E+0,
     * 1.1677E+0, 1.1892E+0, 1.3441E+0, 1.4340E+0, 1.5374E+0, 1.5858E+0,
     * 1.6245E+0,-1.0156E-1, 2.9517E-1, 4.7363E-1, 6.8457E-1, 8.2666E-1,
     * 9.2365E-1, 9.4321E-1, 9.7665E-1, 1.0094E+0, 1.0208E+0/
      DATA X0401/ 1.0288E+0, 1.0350E+0, 1.0798E+0, 1.1413E+0, 1.1630E+0,
     * 1.3222E+0, 1.4168E+0, 1.5307E+0, 1.5858E+0, 1.6283E+0, 4.4357E-2,
     * 3.7367E-1, 5.2299E-1, 7.0346E-1, 8.2655E-1, 9.1317E-1, 9.3095E-1,
     * 9.6160E-1, 9.9203E-1, 1.0028E+0, 1.0103E+0, 1.0162E+0, 1.0590E+0,
     * 1.1190E+0, 1.1405E+0, 1.3012E+0, 1.3994E+0, 1.5235E+0, 1.5848E+0,
     * 1.6296E+0, 3.7003E-1, 5.6584E-1, 6.5825E-1, 7.7473E-1, 8.5860E-1,
     * 9.2093E-1, 9.3415E-1, 9.5742E-1, 9.8118E-1, 9.8973E-1, 9.9577E-1,
     * 1.0006E+0, 1.0365E+0, 1.0899E+0, 1.1097E+0, 1.2664E+0, 1.3678E+0,
     * 1.5058E+0, 1.5714E+0, 1.6123E+0, 6.7805E-1, 7.6158E-1, 8.0450E-1,
     * 8.6292E-1, 9.0869E-1, 9.4535E-1, 9.5347E-1, 9.6809E-1, 9.8349E-1,
     * 9.8916E-1, 9.9321E-1, 9.9645E-1, 1.0215E+0, 1.0618E+0, 1.0778E+0,
     * 1.2167E+0, 1.3117E+0, 1.4351E+0, 1.4687E+0, 1.4706E+0, 9.5093E-1,
     * 9.2006E-1, 9.1492E-1, 9.2023E-1, 9.3410E-1, 9.5145E-1, 9.5603E-1,
     * 9.6505E-1, 9.7549E-1, 9.7958E-1, 9.8260E-1, 9.8505E-1, 1.0056E+0,
     * 1.0415E+0, 1.0561E+0, 1.1822E+0, 1.2653E+0, 1.3528E+0, 1.3469E+0,
     * 1.3135E+0, 9.2787E-1, 9.0318E-1, 9.0056E-1, 9.0825E-1, 9.2325E-1,
     * 9.4100E-1, 9.4564E-1, 9.5466E-1, 9.6504E-1, 9.6909E-1/
      DATA X0501/ 9.7207E-1, 9.7449E-1, 9.9466E-1, 1.0296E+0, 1.0437E+0,
     * 1.1637E+0, 1.2396E+0, 1.3075E+0, 1.2836E+0, 1.2360E+0, 9.2773E-1,
     * 8.9478E-1, 8.9087E-1, 8.9551E-1, 9.1040E-1, 9.2749E-1, 9.3210E-1,
     * 9.4109E-1, 9.5157E-1, 9.5568E-1, 9.5870E-1, 9.6117E-1, 9.8139E-1,
     * 1.0157E+0, 1.0294E+0, 1.1425E+0, 1.2105E+0, 1.2587E+0, 1.2193E+0,
     * 1.1605E+0, 8.7500E-1, 8.5815E-1, 8.5938E-1, 8.7183E-1, 8.9020E-1,
     * 9.0967E-1, 9.1470E-1, 9.2440E-1, 9.3541E-1, 9.3969E-1, 9.4281E-1,
     * 9.4535E-1, 9.6577E-1, 9.9944E-1, 1.0126E+0, 1.1179E+0, 1.1775E+0,
     * 1.2078E+0, 1.1570E+0, 1.0911E+0, 7.8467E-1, 7.9956E-1, 8.1348E-1,
     * 8.3960E-1, 8.6533E-1, 8.8885E-1, 8.9455E-1, 9.0517E-1, 9.1685E-1,
     * 9.2129E-1, 9.2451E-1, 9.2710E-1, 9.4756E-1, 9.8023E-1, 9.9273E-1,
     * 1.0892E+0, 1.1403E+0, 1.1562E+0, 1.0994E+0, 1.0315E+0, 7.3122E-1,
     * 7.5630E-1, 7.7426E-1, 8.0414E-1, 8.3211E-1, 8.5738E-1, 8.6334E-1,
     * 8.7437E-1, 8.8644E-1, 8.9094E-1, 8.9417E-1, 8.9674E-1, 9.1655E-1,
     * 9.4680E-1, 9.5805E-1, 1.0404E+0, 1.0805E+0, 1.0855E+0, 1.0320E+0,
     * 9.7085E-1, 7.1547E-1, 7.4043E-1, 7.5821E-1, 7.8825E-1, 8.1651E-1,
     * 8.4212E-1, 8.4816E-1, 8.5936E-1, 8.7138E-1, 8.7582E-1/
      DATA X0601/ 8.7898E-1, 8.8150E-1, 9.0068E-1, 9.2946E-1, 9.4003E-1,
     * 1.0159E+0, 1.0520E+0, 1.0568E+0, 1.0092E+0, 9.5464E-1, 6.3240E-1,
     * 6.8680E-1, 7.1573E-1, 7.5659E-1, 7.8973E-1, 8.1692E-1, 8.2303E-1,
     * 8.3409E-1, 8.4569E-1, 8.4990E-1, 8.5289E-1, 8.5526E-1, 8.7308E-1,
     * 8.9917E-1, 9.0861E-1, 9.7477E-1, 1.0064E+0, 1.0165E+0, 9.8330E-1,
     * 9.4265E-1, 5.7243E-1, 6.3664E-1, 6.6881E-1, 7.1150E-1, 7.4422E-1,
     * 7.6989E-1, 7.7553E-1, 7.8546E-1, 7.9557E-1, 7.9918E-1, 8.0173E-1,
     * 8.0374E-1, 8.1860E-1, 8.3977E-1, 8.4731E-1, 9.0019E-1, 9.2944E-1,
     * 9.6326E-1, 9.6491E-1, 9.5459E-1, 4.9020E-1, 5.5253E-1, 5.8163E-1,
     * 6.1789E-1, 6.4367E-1, 6.6257E-1, 6.6647E-1, 6.7323E-1, 6.7998E-1,
     * 6.8237E-1, 6.8404E-1, 6.8537E-1, 6.9512E-1, 7.0919E-1, 7.1434E-1,
     * 7.5817E-1, 7.9899E-1, 9.0558E-1, 9.8405E-1, 1.0345E+0, 4.0336E-1,
     * 4.4143E-1, 4.5917E-1, 4.8125E-1, 4.9692E-1, 5.0833E-1, 5.1076E-1,
     * 5.1505E-1, 5.1949E-1, 5.2111E-1, 5.2226E-1, 5.2319E-1, 5.3028E-1,
     * 5.4175E-1, 5.4641E-1, 5.9836E-1, 6.6144E-1, 8.4311E-1, 9.8528E-1,
     * 1.0823E+0, 3.0531E-1, 3.2522E-1, 3.3514E-1, 3.4826E-1, 3.5827E-1,
     * 3.6645E-1, 3.6832E-1, 3.7173E-1, 3.7544E-1, 3.7683E-1/
      DATA X0701/ 3.7783E-1, 3.7864E-1, 3.8511E-1, 3.9631E-1, 4.0108E-1,
     * 4.5786E-1, 5.2791E-1, 7.2371E-1, 8.7391E-1, 9.7610E-1, 3.7021E-2,
     * 3.7972E-2, 3.8756E-2, 4.0205E-2, 4.1724E-2, 4.3208E-2, 4.3570E-2,
     * 4.4251E-2, 4.5011E-2, 4.5301E-2, 4.5512E-2, 4.5683E-2, 4.7065E-2,
     * 4.9507E-2, 5.0553E-2, 6.2747E-2, 7.6927E-2, 1.1374E-1, 1.4063E-1,
     * 1.5858E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9992E-1, 9.9996E-1, 9.9997E-1,
     * 9.9998E-1, 9.9998E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9831E-1,
     * 9.9919E-1, 9.9941E-1, 9.9959E-1, 9.9968E-1, 9.9973E-1, 9.9974E-1,
     * 9.9976E-1, 9.9977E-1, 9.9977E-1, 9.9978E-1, 9.9978E-1, 9.9980E-1,
     * 9.9983E-1, 9.9984E-1, 9.9991E-1, 9.9994E-1, 9.9997E-1, 9.9996E-1,
     * 9.9995E-1, 9.9190E-1, 9.9554E-1, 9.9680E-1, 9.9783E-1, 9.9832E-1,
     * 9.9859E-1, 9.9865E-1, 9.9873E-1, 9.9881E-1, 9.9884E-1/
      DATA X0801/ 9.9886E-1, 9.9888E-1, 9.9899E-1, 9.9913E-1, 9.9918E-1,
     * 9.9953E-1, 9.9972E-1, 9.9986E-1, 9.9982E-1, 9.9976E-1, 9.8385E-1,
     * 9.9031E-1, 9.9279E-1, 9.9522E-1, 9.9636E-1, 9.9699E-1, 9.9711E-1,
     * 9.9730E-1, 9.9748E-1, 9.9754E-1, 9.9759E-1, 9.9762E-1, 9.9786E-1,
     * 9.9817E-1, 9.9827E-1, 9.9900E-1, 9.9940E-1, 9.9970E-1, 9.9963E-1,
     * 9.9951E-1, 9.6424E-1, 9.7724E-1, 9.8252E-1, 9.8813E-1, 9.9125E-1,
     * 9.9292E-1, 9.9322E-1, 9.9371E-1, 9.9417E-1, 9.9432E-1, 9.9442E-1,
     * 9.9451E-1, 9.9508E-1, 9.9582E-1, 9.9607E-1, 9.9771E-1, 9.9860E-1,
     * 9.9934E-1, 9.9918E-1, 9.9889E-1, 9.2914E-1, 9.5381E-1, 9.6408E-1,
     * 9.7527E-1, 9.8184E-1, 9.8567E-1, 9.8634E-1, 9.8743E-1, 9.8842E-1,
     * 9.8876E-1, 9.8898E-1, 9.8916E-1, 9.9037E-1, 9.9187E-1, 9.9236E-1,
     * 9.9549E-1, 9.9721E-1, 9.9878E-1, 9.9846E-1, 9.9784E-1, 9.0305E-1,
     * 9.3578E-1, 9.4940E-1, 9.6471E-1, 9.7395E-1, 9.7952E-1, 9.8054E-1,
     * 9.8218E-1, 9.8366E-1, 9.8415E-1, 9.8449E-1, 9.8475E-1, 9.8651E-1,
     * 9.8867E-1, 9.8936E-1, 9.9367E-1, 9.9605E-1, 9.9833E-1, 9.9787E-1,
     * 9.9694E-1, 8.7839E-1, 9.2012E-1, 9.3727E-1, 9.5660E-1, 9.6822E-1,
     * 9.7519E-1, 9.7646E-1, 9.7850E-1, 9.8033E-1, 9.8094E-1/
      DATA X0901/ 9.8135E-1, 9.8167E-1, 9.8384E-1, 9.8645E-1, 9.8728E-1,
     * 9.9239E-1, 9.9523E-1, 9.9801E-1, 9.9744E-1, 9.9628E-1, 8.7318E-1,
     * 9.1498E-1, 9.3280E-1, 9.5276E-1, 9.6500E-1, 9.7256E-1, 9.7396E-1,
     * 9.7624E-1, 9.7830E-1, 9.7897E-1, 9.7944E-1, 9.7979E-1, 9.8220E-1,
     * 9.8510E-1, 9.8601E-1, 9.9161E-1, 9.9473E-1, 9.9781E-1, 9.9717E-1,
     * 9.9586E-1, 8.4497E-1, 8.9551E-1, 9.1673E-1, 9.4098E-1, 9.5596E-1,
     * 9.6539E-1, 9.6716E-1, 9.7007E-1, 9.7273E-1, 9.7360E-1, 9.7420E-1,
     * 9.7466E-1, 9.7774E-1, 9.8140E-1, 9.8255E-1, 9.8945E-1, 9.9331E-1,
     * 9.9722E-1, 9.9635E-1, 9.9460E-1, 8.2959E-1, 8.8232E-1, 9.0527E-1,
     * 9.3213E-1, 9.4936E-1, 9.5955E-1, 9.6158E-1, 9.6497E-1, 9.6807E-1,
     * 9.6910E-1, 9.6981E-1, 9.7035E-1, 9.7399E-1, 9.7829E-1, 9.7962E-1,
     * 9.8758E-1, 9.9207E-1, 9.9665E-1, 9.9555E-1, 9.9341E-1, 8.0688E-1,
     * 8.6548E-1, 8.9307E-1, 9.2285E-1, 9.4263E-1, 9.5442E-1, 9.5673E-1,
     * 9.6049E-1, 9.6403E-1, 9.6520E-1, 9.6600E-1, 9.6661E-1, 9.7072E-1,
     * 9.7554E-1, 9.7703E-1, 9.8589E-1, 9.9092E-1, 9.9607E-1, 9.9475E-1,
     * 9.9224E-1, 7.8613E-1, 8.5156E-1, 8.8184E-1, 9.1479E-1, 9.3652E-1,
     * 9.4966E-1, 9.5219E-1, 9.5636E-1, 9.6025E-1, 9.6154E-1/
      DATA X1001/ 9.6242E-1, 9.6310E-1, 9.6761E-1, 9.7290E-1, 9.7453E-1,
     * 9.8422E-1, 9.8975E-1, 9.9541E-1, 9.9386E-1, 9.9100E-1, 7.8345E-1,
     * 8.4958E-1, 8.7810E-1, 9.1119E-1, 9.3211E-1, 9.4563E-1, 9.4824E-1,
     * 9.5260E-1, 9.5668E-1, 9.5806E-1, 9.5900E-1, 9.5973E-1, 9.6459E-1,
     * 9.7027E-1, 9.7203E-1, 9.8249E-1, 9.8850E-1, 9.9463E-1, 9.9285E-1,
     * 9.8965E-1, 8.3185E-1, 8.7509E-1, 8.9433E-1, 9.1725E-1, 9.3250E-1,
     * 9.4298E-1, 9.4509E-1, 9.4870E-1, 9.5223E-1, 9.5346E-1, 9.5432E-1,
     * 9.5499E-1, 9.5976E-1, 9.6587E-1, 9.6776E-1, 9.7929E-1, 9.8610E-1,
     * 9.9296E-1, 9.9088E-1, 9.8724E-1, 8.4247E-1, 8.7997E-1, 8.9674E-1,
     * 9.1684E-1, 9.3034E-1, 9.3969E-1, 9.4158E-1, 9.4484E-1, 9.4804E-1,
     * 9.4916E-1, 9.4994E-1, 9.5056E-1, 9.5495E-1, 9.6071E-1, 9.6255E-1,
     * 9.7472E-1, 9.8248E-1, 9.9071E-1, 9.8920E-1, 9.8588E-1, 8.1825E-1,
     * 8.6597E-1, 8.8713E-1, 9.1177E-1, 9.2763E-1, 9.3807E-1, 9.4012E-1,
     * 9.4359E-1, 9.4688E-1, 9.4800E-1, 9.4877E-1, 9.4938E-1, 9.5350E-1,
     * 9.5868E-1, 9.6039E-1, 9.7265E-1, 9.8103E-1, 9.9069E-1, 9.9044E-1,
     * 9.8810E-1, 8.3272E-1, 8.7492E-1, 8.9352E-1, 9.1534E-1, 9.2949E-1,
     * 9.3890E-1, 9.4075E-1, 9.4389E-1, 9.4689E-1, 9.4792E-1/
      DATA X1101/ 9.4863E-1, 9.4919E-1, 9.5302E-1, 9.5794E-1, 9.5961E-1,
     * 9.7196E-1, 9.8067E-1, 9.9119E-1, 9.9171E-1, 9.8996E-1, 8.3862E-1,
     * 8.7744E-1, 8.9624E-1, 9.1650E-1, 9.3066E-1, 9.3948E-1, 9.4121E-1,
     * 9.4412E-1, 9.4691E-1, 9.4786E-1, 9.4852E-1, 9.4903E-1, 9.5260E-1,
     * 9.5730E-1, 9.5892E-1, 9.7145E-1, 9.8053E-1, 9.9201E-1, 9.9340E-1,
     * 9.9229E-1, 8.5498E-1, 8.8770E-1, 9.0259E-1, 9.2090E-1, 9.3269E-1,
     * 9.4016E-1, 9.4171E-1, 9.4438E-1, 9.4692E-1, 9.4779E-1, 9.4840E-1,
     * 9.4887E-1, 9.5222E-1, 9.5674E-1, 9.5834E-1, 9.7113E-1, 9.8063E-1,
     * 9.9317E-1, 9.9548E-1, 9.9504E-1, 8.6792E-1, 8.9502E-1, 9.0771E-1,
     * 9.2358E-1, 9.3411E-1, 9.4072E-1, 9.4212E-1, 9.4456E-1, 9.4689E-1,
     * 9.4770E-1, 9.4827E-1, 9.4871E-1, 9.5189E-1, 9.5631E-1, 9.5790E-1,
     * 9.7103E-1, 9.8099E-1, 9.9462E-1, 9.9787E-1, 9.9811E-1, 8.6880E-1,
     * 8.9722E-1, 9.0985E-1, 9.2470E-1, 9.3451E-1, 9.4113E-1, 9.4245E-1,
     * 9.4469E-1, 9.4686E-1, 9.4761E-1, 9.4814E-1, 9.4856E-1, 9.5159E-1,
     * 9.5596E-1, 9.5758E-1, 9.7135E-1, 9.8196E-1, 9.9710E-1, 1.0016E+0,
     * 1.0027E+0, 8.6945E-1, 8.9819E-1, 9.1054E-1, 9.2526E-1, 9.3490E-1,
     * 9.4134E-1, 9.4261E-1, 9.4477E-1, 9.4689E-1, 9.4763E-1/
      DATA X1201/ 9.4815E-1, 9.4856E-1, 9.5157E-1, 9.5595E-1, 9.5759E-1,
     * 9.7167E-1, 9.8255E-1, 9.9827E-1, 1.0033E+0, 1.0048E+0, 8.7769E-1,
     * 9.0291E-1, 9.1365E-1, 9.2685E-1, 9.3565E-1, 9.4168E-1, 9.4290E-1,
     * 9.4498E-1, 9.4704E-1, 9.4777E-1, 9.4828E-1, 9.4869E-1, 9.5169E-1,
     * 9.5615E-1, 9.5782E-1, 9.7238E-1, 9.8364E-1, 1.0001E+0, 1.0057E+0,
     * 1.0077E+0, 8.8229E-1, 9.0552E-1, 9.1594E-1, 9.2836E-1, 9.3672E-1,
     * 9.4251E-1, 9.4368E-1, 9.4571E-1, 9.4776E-1, 9.4849E-1, 9.4901E-1,
     * 9.4942E-1, 9.5248E-1, 9.5710E-1, 9.5885E-1, 9.7410E-1, 9.8578E-1,
     * 1.0030E+0, 1.0093E+0, 1.0118E+0, 8.8771E-1, 9.0986E-1, 9.1986E-1,
     * 9.3188E-1, 9.4003E-1, 9.4574E-1, 9.4693E-1, 9.4901E-1, 9.5113E-1,
     * 9.5190E-1, 9.5244E-1, 9.5287E-1, 9.5609E-1, 9.6097E-1, 9.6281E-1,
     * 9.7856E-1, 9.9012E-1, 1.0068E+0, 1.0131E+0, 1.0158E+0, 8.9254E-1,
     * 9.1643E-1, 9.2698E-1, 9.3938E-1, 9.4753E-1, 9.5333E-1, 9.5455E-1,
     * 9.5667E-1, 9.5882E-1, 9.5959E-1, 9.6014E-1, 9.6057E-1, 9.6381E-1,
     * 9.6863E-1, 9.7043E-1, 9.8509E-1, 9.9507E-1, 1.0083E+0, 1.0129E+0,
     * 1.0148E+0, 9.0083E-1, 9.2673E-1, 9.3770E-1, 9.5000E-1, 9.5808E-1,
     * 9.6377E-1, 9.6494E-1, 9.6699E-1, 9.6905E-1, 9.6978E-1/
      DATA X1301/ 9.7030E-1, 9.7071E-1, 9.7374E-1, 9.7817E-1, 9.7979E-1,
     * 9.9234E-1, 1.0001E+0, 1.0089E+0, 1.0112E+0, 1.0119E+0, 9.8187E-1,
     * 1.0097E+0, 1.0203E+0, 1.0317E+0, 1.0387E+0, 1.0432E+0, 1.0441E+0,
     * 1.0456E+0, 1.0471E+0, 1.0476E+0, 1.0480E+0, 1.0483E+0, 1.0502E+0,
     * 1.0529E+0, 1.0538E+0, 1.0586E+0, 1.0591E+0, 1.0540E+0, 1.0489E+0,
     * 1.0456E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9988E-1, 9.9994E-1, 9.9995E-1,
     * 9.9997E-1, 9.9997E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1,
     * 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9999E-1, 9.9779E-1,
     * 9.9880E-1, 9.9909E-1, 9.9934E-1, 9.9946E-1, 9.9954E-1, 9.9955E-1,
     * 9.9958E-1, 9.9960E-1, 9.9961E-1, 9.9962E-1, 9.9962E-1, 9.9965E-1,
     * 9.9970E-1, 9.9972E-1, 9.9984E-1, 9.9991E-1, 9.9996E-1, 9.9991E-1,
     * 9.9986E-1, 9.8938E-1, 9.9372E-1, 9.9527E-1, 9.9662E-1, 9.9730E-1,
     * 9.9770E-1, 9.9778E-1, 9.9791E-1, 9.9803E-1, 9.9807E-1/
      DATA X1401/ 9.9810E-1, 9.9813E-1, 9.9829E-1, 9.9852E-1, 9.9860E-1,
     * 9.9921E-1, 9.9956E-1, 9.9979E-1, 9.9957E-1, 9.9930E-1, 9.7837E-1,
     * 9.8641E-1, 9.8954E-1, 9.9269E-1, 9.9426E-1, 9.9517E-1, 9.9534E-1,
     * 9.9562E-1, 9.9589E-1, 9.9598E-1, 9.9605E-1, 9.9610E-1, 9.9646E-1,
     * 9.9694E-1, 9.9711E-1, 9.9834E-1, 9.9908E-1, 9.9958E-1, 9.9913E-1,
     * 9.9856E-1, 9.5041E-1, 9.6750E-1, 9.7451E-1, 9.8205E-1, 9.8635E-1,
     * 9.8874E-1, 9.8918E-1, 9.8990E-1, 9.9058E-1, 9.9081E-1, 9.9097E-1,
     * 9.9110E-1, 9.9197E-1, 9.9312E-1, 9.9350E-1, 9.9623E-1, 9.9785E-1,
     * 9.9912E-1, 9.9814E-1, 9.9681E-1, 8.9781E-1, 9.3208E-1, 9.4644E-1,
     * 9.6222E-1, 9.7160E-1, 9.7718E-1, 9.7818E-1, 9.7981E-1, 9.8131E-1,
     * 9.8182E-1, 9.8217E-1, 9.8244E-1, 9.8430E-1, 9.8666E-1, 9.8743E-1,
     * 9.9259E-1, 9.9569E-1, 9.9843E-1, 9.9657E-1, 9.9383E-1, 8.5577E-1,
     * 9.0331E-1, 9.2293E-1, 9.4525E-1, 9.5885E-1, 9.6717E-1, 9.6871E-1,
     * 9.7119E-1, 9.7347E-1, 9.7423E-1, 9.7475E-1, 9.7515E-1, 9.7791E-1,
     * 9.8133E-1, 9.8244E-1, 9.8955E-1, 9.9384E-1, 9.9788E-1, 9.9524E-1,
     * 9.9121E-1, 8.1737E-1, 8.7830E-1, 9.0355E-1, 9.3211E-1, 9.4944E-1,
     * 9.5998E-1, 9.6192E-1, 9.6505E-1, 9.6790E-1, 9.6885E-1/
      DATA X1501/ 9.6950E-1, 9.7000E-1, 9.7342E-1, 9.7760E-1, 9.7894E-1,
     * 9.8741E-1, 9.9253E-1, 9.9747E-1, 9.9423E-1, 9.8924E-1, 8.0678E-1,
     * 8.6900E-1, 8.9560E-1, 9.2554E-1, 9.4401E-1, 9.5555E-1, 9.5771E-1,
     * 9.6124E-1, 9.6445E-1, 9.6552E-1, 9.6625E-1, 9.6681E-1, 9.7065E-1,
     * 9.7531E-1, 9.7679E-1, 9.8609E-1, 9.9171E-1, 9.9720E-1, 9.9356E-1,
     * 9.8796E-1, 7.5757E-1, 8.3496E-1, 8.6786E-1, 9.0518E-1, 9.2847E-1,
     * 9.4323E-1, 9.4602E-1, 9.5063E-1, 9.5487E-1, 9.5627E-1, 9.5723E-1,
     * 9.5796E-1, 9.6296E-1, 9.6895E-1, 9.7084E-1, 9.8242E-1, 9.8941E-1,
     * 9.9632E-1, 9.9146E-1, 9.8406E-1, 7.2607E-1, 8.0981E-1, 8.4668E-1,
     * 8.8916E-1, 9.1615E-1, 9.3288E-1, 9.3616E-1, 9.4161E-1, 9.4665E-1,
     * 9.4834E-1, 9.4950E-1, 9.5038E-1, 9.5637E-1, 9.6350E-1, 9.6573E-1,
     * 9.7922E-1, 9.8736E-1, 9.9534E-1, 9.8928E-1, 9.8027E-1, 6.8213E-1,
     * 7.7954E-1, 8.2373E-1, 8.7231E-1, 9.0405E-1, 9.2357E-1, 9.2734E-1,
     * 9.3356E-1, 9.3938E-1, 9.4133E-1, 9.4265E-1, 9.4366E-1, 9.5051E-1,
     * 9.5862E-1, 9.6115E-1, 9.7630E-1, 9.8544E-1, 9.9421E-1, 9.8696E-1,
     * 9.7647E-1, 6.4136E-1, 7.5293E-1, 8.0249E-1, 8.5718E-1, 8.9282E-1,
     * 9.1475E-1, 9.1896E-1, 9.2596E-1, 9.3246E-1, 9.3463E-1/
      DATA X1601/ 9.3610E-1, 9.3724E-1, 9.4487E-1, 9.5388E-1, 9.5667E-1,
     * 9.7338E-1, 9.8345E-1, 9.9280E-1, 9.8431E-1, 9.7241E-1, 6.3609E-1,
     * 7.4631E-1, 7.9401E-1, 8.4921E-1, 8.8427E-1, 9.0704E-1, 9.1147E-1,
     * 9.1884E-1, 9.2577E-1, 9.2811E-1, 9.2972E-1, 9.3096E-1, 9.3929E-1,
     * 9.4911E-1, 9.5214E-1, 9.7031E-1, 9.8124E-1, 9.9098E-1, 9.8123E-1,
     * 9.6801E-1, 7.0435E-1, 7.8069E-1, 8.1468E-1, 8.5510E-1, 8.8205E-1,
     * 9.0054E-1, 9.0427E-1, 9.1064E-1, 9.1687E-1, 9.1904E-1, 9.2055E-1,
     * 9.2174E-1, 9.3015E-1, 9.4092E-1, 9.4426E-1, 9.6447E-1, 9.7671E-1,
     * 9.8673E-1, 9.7520E-1, 9.6043E-1, 7.1489E-1, 7.8374E-1, 8.1448E-1,
     * 8.5124E-1, 8.7584E-1, 8.9285E-1, 8.9629E-1, 9.0219E-1, 9.0798E-1,
     * 9.1001E-1, 9.1141E-1, 9.1252E-1, 9.2043E-1, 9.3071E-1, 9.3397E-1,
     * 9.5506E-1, 9.6864E-1, 9.8032E-1, 9.7062E-1, 9.5812E-1, 6.6946E-1,
     * 7.5783E-1, 7.9655E-1, 8.4131E-1, 8.7011E-1, 8.8908E-1, 8.9280E-1,
     * 8.9904E-1, 9.0496E-1, 9.0697E-1, 9.0836E-1, 9.0944E-1, 9.1679E-1,
     * 9.2587E-1, 9.2883E-1, 9.4959E-1, 9.6410E-1, 9.7946E-1, 9.7481E-1,
     * 9.6699E-1, 6.9632E-1, 7.7393E-1, 8.0798E-1, 8.4753E-1, 8.7313E-1,
     * 8.9009E-1, 8.9341E-1, 8.9904E-1, 9.0439E-1, 9.0623E-1/
      DATA X1701/ 9.0749E-1, 9.0847E-1, 9.1522E-1, 9.2370E-1, 9.2652E-1,
     * 9.4718E-1, 9.6228E-1, 9.8004E-1, 9.7843E-1, 9.7328E-1, 7.0459E-1,
     * 7.7881E-1, 8.1250E-1, 8.4961E-1, 8.7451E-1, 8.9046E-1, 8.9354E-1,
     * 8.9871E-1, 9.0363E-1, 9.0529E-1, 9.0644E-1, 9.0733E-1, 9.1349E-1,
     * 9.2141E-1, 9.2411E-1, 9.4480E-1, 9.6061E-1, 9.8112E-1, 9.8277E-1,
     * 9.8043E-1, 7.3096E-1, 7.9395E-1, 8.2251E-1, 8.5571E-1, 8.7697E-1,
     * 8.9075E-1, 8.9351E-1, 8.9814E-1, 9.0253E-1, 9.0403E-1, 9.0507E-1,
     * 9.0587E-1, 9.1150E-1, 9.1894E-1, 9.2153E-1, 9.4244E-1, 9.5907E-1,
     * 9.8248E-1, 9.8740E-1, 9.8780E-1, 7.5635E-1, 8.0859E-1, 8.3228E-1,
     * 8.6035E-1, 8.7859E-1, 8.9052E-1, 8.9294E-1, 8.9705E-1, 9.0097E-1,
     * 9.0233E-1, 9.0327E-1, 9.0400E-1, 9.0918E-1, 9.1624E-1, 9.1877E-1,
     * 9.4010E-1, 9.5762E-1, 9.8383E-1, 9.9171E-1, 9.9452E-1, 7.6453E-1,
     * 8.1410E-1, 8.3591E-1, 8.6130E-1, 8.7775E-1, 8.8868E-1, 8.9083E-1,
     * 8.9445E-1, 8.9791E-1, 8.9910E-1, 8.9994E-1, 9.0059E-1, 9.0533E-1,
     * 9.1209E-1, 9.1460E-1, 9.3683E-1, 9.5556E-1, 9.8488E-1, 9.9567E-1,
     * 1.0007E+0, 7.6553E-1, 8.1517E-1, 8.3632E-1, 8.6116E-1, 8.7710E-1,
     * 8.8753E-1, 8.8957E-1, 8.9298E-1, 8.9628E-1, 8.9743E-1/
      DATA X1801/ 8.9823E-1, 8.9886E-1, 9.0348E-1, 9.1020E-1, 9.1272E-1,
     * 9.3542E-1, 9.5458E-1, 9.8466E-1, 9.9600E-1, 1.0014E+0, 7.8188E-1,
     * 8.2294E-1, 8.4071E-1, 8.6198E-1, 8.7595E-1, 8.8535E-1, 8.8722E-1,
     * 8.9039E-1, 8.9352E-1, 8.9462E-1, 8.9539E-1, 8.9600E-1, 9.0052E-1,
     * 9.0725E-1, 9.0981E-1, 9.3321E-1, 9.5282E-1, 9.8303E-1, 9.9414E-1,
     * 9.9917E-1, 7.8835E-1, 8.2458E-1, 8.4070E-1, 8.5971E-1, 8.7231E-1,
     * 8.8090E-1, 8.8262E-1, 8.8560E-1, 8.8860E-1, 8.8967E-1, 8.9043E-1,
     * 8.9103E-1, 8.9554E-1, 9.0243E-1, 9.0509E-1, 9.2929E-1, 9.4869E-1,
     * 9.7573E-1, 9.8330E-1, 9.8540E-1, 7.9016E-1, 8.2156E-1, 8.3569E-1,
     * 8.5264E-1, 8.6410E-1, 8.7210E-1, 8.7377E-1, 8.7671E-1, 8.7972E-1,
     * 8.8080E-1, 8.8157E-1, 8.8218E-1, 8.8680E-1, 8.9385E-1, 8.9654E-1,
     * 9.1926E-1, 9.3414E-1, 9.4438E-1, 9.3833E-1, 9.3118E-1, 7.8093E-1,
     * 8.1302E-1, 8.2716E-1, 8.4375E-1, 8.5462E-1, 8.6235E-1, 8.6396E-1,
     * 8.6677E-1, 8.6961E-1, 8.7062E-1, 8.7133E-1, 8.7190E-1, 8.7607E-1,
     * 8.8213E-1, 8.8431E-1, 8.9905E-1, 9.0270E-1, 8.8564E-1, 8.6464E-1,
     * 8.4998E-1, 7.7336E-1, 8.0692E-1, 8.2107E-1, 8.3686E-1, 8.4705E-1,
     * 8.5397E-1, 8.5537E-1, 8.5774E-1, 8.6008E-1, 8.6089E-1/
      DATA X1901/ 8.6145E-1, 8.6190E-1, 8.6506E-1, 8.6920E-1, 8.7053E-1,
     * 8.7502E-1, 8.6788E-1, 8.3288E-1, 8.0650E-1, 7.9069E-1, 7.6482E-1,
     * 7.9752E-1, 8.1003E-1, 8.2276E-1, 8.2943E-1, 8.3278E-1, 8.3330E-1,
     * 8.3403E-1, 8.3454E-1, 8.3466E-1, 8.3473E-1, 8.3477E-1, 8.3471E-1,
     * 8.3338E-1, 8.3247E-1, 8.1541E-1, 7.9249E-1, 7.4435E-1, 7.2051E-1,
     * 7.0861E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0048E+0, 1.0022E+0, 1.0015E+0,
     * 1.0009E+0, 1.0007E+0, 1.0005E+0, 1.0005E+0, 1.0005E+0, 1.0004E+0,
     * 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0003E+0, 1.0003E+0,
     * 1.0002E+0, 1.0001E+0, 1.0000E+0, 9.9996E-1, 9.9995E-1, 1.0894E+0,
     * 1.0418E+0, 1.0282E+0, 1.0173E+0, 1.0124E+0, 1.0098E+0, 1.0094E+0,
     * 1.0086E+0, 1.0080E+0, 1.0077E+0, 1.0076E+0, 1.0075E+0, 1.0067E+0,
     * 1.0057E+0, 1.0053E+0, 1.0032E+0, 1.0019E+0, 9.9998E-1, 9.9934E-1,
     * 9.9913E-1, 1.4350E+0, 1.2261E+0, 1.1533E+0, 1.0928E+0, 1.0652E+0,
     * 1.0508E+0, 1.0482E+0, 1.0441E+0, 1.0404E+0, 1.0392E+0/
      DATA X2001/ 1.0383E+0, 1.0377E+0, 1.0332E+0, 1.0278E+0, 1.0261E+0,
     * 1.0154E+0, 1.0092E+0, 1.0000E+0, 9.9673E-1, 9.9564E-1, 1.8875E+0,
     * 1.5032E+0, 1.3564E+0, 1.2131E+0, 1.1467E+0, 1.1120E+0, 1.1059E+0,
     * 1.0962E+0, 1.0873E+0, 1.0844E+0, 1.0824E+0, 1.0808E+0, 1.0704E+0,
     * 1.0579E+0, 1.0540E+0, 1.0315E+0, 1.0192E+0, 1.0003E+0, 9.9314E-1,
     * 9.9067E-1, 3.0813E+0, 2.2584E+0, 1.9265E+0, 1.5765E+0, 1.3846E+0,
     * 1.2841E+0, 1.2666E+0, 1.2385E+0, 1.2132E+0, 1.2049E+0, 1.1993E+0,
     * 1.1949E+0, 1.1657E+0, 1.1318E+0, 1.1216E+0, 1.0685E+0, 1.0436E+0,
     * 1.0018E+0, 9.8405E-1, 9.7748E-1, 5.4106E+0, 3.7469E+0, 3.0595E+0,
     * 2.3118E+0, 1.8775E+0, 1.6278E+0, 1.5844E+0, 1.5151E+0, 1.4530E+0,
     * 1.4327E+0, 1.4189E+0, 1.4083E+0, 1.3378E+0, 1.2580E+0, 1.2347E+0,
     * 1.1267E+0, 1.0850E+0, 1.0058E+0, 9.6732E-1, 9.5209E-1, 7.2605E+0,
     * 4.9717E+0, 4.0132E+0, 2.9533E+0, 2.3200E+0, 1.9406E+0, 1.8719E+0,
     * 1.7627E+0, 1.6650E+0, 1.6330E+0, 1.6114E+0, 1.5948E+0, 1.4847E+0,
     * 1.3616E+0, 1.3262E+0, 1.1713E+0, 1.1187E+0, 1.0094E+0, 9.5214E-1,
     * 9.2874E-1, 8.9663E+0, 6.0393E+0, 4.8140E+0, 3.4599E+0, 2.6514E+0,
     * 2.1675E+0, 2.0800E+0, 1.9410E+0, 1.8167E+0, 1.7761E+0/
      DATA X2101/ 1.7486E+0, 1.7276E+0, 1.5881E+0, 1.4331E+0, 1.3888E+0,
     * 1.2012E+0, 1.1420E+0, 1.0118E+0, 9.4075E-1, 9.1130E-1, 9.4468E+0,
     * 6.4137E+0, 5.1335E+0, 3.7047E+0, 2.8376E+0, 2.3067E+0, 2.2089E+0,
     * 2.0511E+0, 1.9102E+0, 1.8641E+0, 1.8330E+0, 1.8092E+0, 1.6513E+0,
     * 1.4764E+0, 1.4266E+0, 1.2190E+0, 1.1561E+0, 1.0132E+0, 9.3345E-1,
     * 9.0019E-1, 1.1490E+1, 7.7903E+0, 6.2180E+0, 4.4502E+0, 3.3628E+0,
     * 2.6858E+0, 2.5591E+0, 2.3529E+0, 2.1657E+0, 2.1046E+0, 2.0633E+0,
     * 2.0316E+0, 1.8228E+0, 1.5928E+0, 1.5279E+0, 1.2664E+0, 1.1942E+0,
     * 1.0160E+0, 9.1204E-1, 8.6811E-1, 1.3039E+1, 8.8435E+0, 7.0549E+0,
     * 5.0334E+0, 3.7803E+0, 2.9909E+0, 2.8420E+0, 2.5983E+0, 2.3747E+0,
     * 2.3010E+0, 2.2513E+0, 2.2132E+0, 1.9621E+0, 1.6869E+0, 1.6096E+0,
     * 1.3050E+0, 1.2255E+0, 1.0172E+0, 8.9248E-1, 8.3949E-1, 1.4395E+1,
     * 9.7539E+0, 7.7781E+0, 5.5251E+0, 4.1282E+0, 3.2435E+0, 3.0759E+0,
     * 2.8005E+0, 2.5470E+0, 2.4632E+0, 2.4065E+0, 2.3630E+0, 2.0771E+0,
     * 1.7646E+0, 1.6772E+0, 1.3378E+0, 1.2522E+0, 1.0171E+0, 8.7433E-1,
     * 8.1356E-1, 1.5832E+1, 1.0684E+1, 8.4883E+0, 5.9939E+0, 4.4456E+0,
     * 3.4658E+0, 3.2801E+0, 2.9754E+0, 2.6950E+0, 2.6024E+0/
      DATA X2201/ 2.5397E+0, 2.4917E+0, 2.1761E+0, 1.8321E+0, 1.7362E+0,
     * 1.3681E+0, 1.2766E+0, 1.0160E+0, 8.5653E-1, 7.8870E-1, 1.5982E+1,
     * 1.0883E+1, 8.6927E+0, 6.1945E+0, 4.6250E+0, 3.6200E+0, 3.4277E+0,
     * 3.1100E+0, 2.8143E+0, 2.7156E+0, 2.6485E+0, 2.5969E+0, 2.2577E+0,
     * 1.8891E+0, 1.7867E+0, 1.3968E+0, 1.2996E+0, 1.0141E+0, 8.3930E-1,
     * 7.6513E-1, 1.2185E+1, 8.7361E+0, 7.2201E+0, 5.4461E+0, 4.2877E+0,
     * 3.5109E+0, 3.3569E+0, 3.0968E+0, 2.8461E+0, 2.7598E+0, 2.7003E+0,
     * 2.6539E+0, 2.3309E+0, 1.9471E+0, 1.8410E+0, 1.4406E+0, 1.3348E+0,
     * 1.0118E+0, 8.1665E-1, 7.3460E-1, 1.0317E+1, 7.4701E+0, 6.2199E+0,
     * 4.7584E+0, 3.8056E+0, 3.1677E+0, 3.0414E+0, 2.8283E+0, 2.6230E+0,
     * 2.5525E+0, 2.5039E+0, 2.4659E+0, 2.2025E+0, 1.8915E+0, 1.8065E+0,
     * 1.4855E+0, 1.3773E+0, 1.0356E+0, 8.3779E-1, 7.5559E-1, 1.1332E+1,
     * 7.8483E+0, 6.3568E+0, 4.6624E+0, 3.6045E+0, 2.9321E+0, 2.8042E+0,
     * 2.5939E+0, 2.3992E+0, 2.3347E+0, 2.2909E+0, 2.2573E+0, 2.0394E+0,
     * 1.8093E+0, 1.7471E+0, 1.5101E+0, 1.4082E+0, 1.0804E+0, 8.9516E-1,
     * 8.1742E-1, 9.8936E+0, 6.9156E+0, 5.6416E+0, 4.1958E+0, 3.2940E+0,
     * 2.7222E+0, 2.6136E+0, 2.4351E+0, 2.2703E+0, 2.2157E+0/
      DATA X2301/ 2.1787E+0, 2.1503E+0, 1.9668E+0, 1.7745E+0, 1.7229E+0,
     * 1.5243E+0, 1.4261E+0, 1.1082E+0, 9.2992E-1, 8.5433E-1, 9.0742E+0,
     * 6.3281E+0, 5.1646E+0, 3.8494E+0, 3.0432E+0, 2.5394E+0, 2.4452E+0,
     * 2.2916E+0, 2.1520E+0, 2.1064E+0, 2.0758E+0, 2.0525E+0, 1.9020E+0,
     * 1.7458E+0, 1.7042E+0, 1.5413E+0, 1.4466E+0, 1.1395E+0, 9.6835E-1,
     * 8.9473E-1, 7.9102E+0, 5.5625E+0, 4.5710E+0, 3.4619E+0, 2.7844E+0,
     * 2.3652E+0, 2.2876E+0, 2.1617E+0, 2.0483E+0, 2.0116E+0, 1.9871E+0,
     * 1.9684E+0, 1.8486E+0, 1.7254E+0, 1.6928E+0, 1.5613E+0, 1.4694E+0,
     * 1.1732E+0, 1.0089E+0, 9.3697E-1, 6.6172E+0, 4.7507E+0, 3.9607E+0,
     * 3.0798E+0, 2.5430E+0, 2.2122E+0, 2.1511E+0, 2.0523E+0, 1.9635E+0,
     * 1.9349E+0, 1.9158E+0, 1.9013E+0, 1.8086E+0, 1.7144E+0, 1.6896E+0,
     * 1.5839E+0, 1.4937E+0, 1.2077E+0, 1.0498E+0, 9.7935E-1, 5.7227E+0,
     * 4.1309E+0, 3.4680E+0, 2.7401E+0, 2.3103E+0, 2.0571E+0, 2.0119E+0,
     * 1.9410E+0, 1.8803E+0, 1.8611E+0, 1.8483E+0, 1.8386E+0, 1.7772E+0,
     * 1.7155E+0, 1.6992E+0, 1.6182E+0, 1.5278E+0, 1.2542E+0, 1.1044E+0,
     * 1.0355E+0, 5.4473E+0, 3.9268E+0, 3.2999E+0, 2.6207E+0, 2.2287E+0,
     * 2.0054E+0, 1.9669E+0, 1.9077E+0, 1.8573E+0, 1.8414E+0/
      DATA X2401/ 1.8309E+0, 1.8229E+0, 1.7722E+0, 1.7213E+0, 1.7078E+0,
     * 1.6330E+0, 1.5415E+0, 1.2722E+0, 1.1255E+0, 1.0574E+0, 4.5610E+0,
     * 3.4035E+0, 2.9271E+0, 2.4115E+0, 2.1149E+0, 1.9468E+0, 1.9180E+0,
     * 1.8738E+0, 1.8363E+0, 1.8245E+0, 1.8167E+0, 1.8108E+0, 1.7732E+0,
     * 1.7350E+0, 1.7246E+0, 1.6539E+0, 1.5593E+0, 1.2956E+0, 1.1536E+0,
     * 1.0866E+0, 3.8564E+0, 2.9649E+0, 2.6041E+0, 2.2223E+0, 2.0113E+0,
     * 1.8993E+0, 1.8814E+0, 1.8540E+0, 1.8307E+0, 1.8233E+0, 1.8183E+0,
     * 1.8146E+0, 1.7903E+0, 1.7635E+0, 1.7552E+0, 1.6791E+0, 1.5767E+0,
     * 1.3197E+0, 1.1850E+0, 1.1204E+0, 3.0474E+0, 2.5075E+0, 2.2929E+0,
     * 2.0712E+0, 1.9544E+0, 1.8976E+0, 1.8878E+0, 1.8720E+0, 1.8574E+0,
     * 1.8524E+0, 1.8490E+0, 1.8463E+0, 1.8271E+0, 1.7996E+0, 1.7891E+0,
     * 1.6788E+0, 1.5584E+0, 1.3117E+0, 1.1922E+0, 1.1349E+0, 2.7443E+0,
     * 2.3495E+0, 2.1944E+0, 2.0368E+0, 1.9566E+0, 1.9059E+0, 1.8957E+0,
     * 1.8779E+0, 1.8598E+0, 1.8533E+0, 1.8487E+0, 1.8451E+0, 1.8174E+0,
     * 1.7743E+0, 1.7574E+0, 1.5981E+0, 1.4611E+0, 1.2338E+0, 1.1379E+0,
     * 1.0944E+0, 2.6586E+0, 2.2995E+0, 2.1605E+0, 2.0222E+0, 1.9347E+0,
     * 1.8718E+0, 1.8585E+0, 1.8350E+0, 1.8108E+0, 1.8020E+0/
      DATA X2501/ 1.7958E+0, 1.7908E+0, 1.7533E+0, 1.6955E+0, 1.6734E+0,
     * 1.4804E+0, 1.3370E+0, 1.1353E+0, 1.0637E+0, 1.0348E+0, 2.5410E+0,
     * 2.2242E+0, 2.0830E+0, 1.9041E+0, 1.7741E+0, 1.6774E+0, 1.6569E+0,
     * 1.6209E+0, 1.5842E+0, 1.5710E+0, 1.5617E+0, 1.5543E+0, 1.4992E+0,
     * 1.4175E+0, 1.3873E+0, 1.1544E+0, 1.0180E+0, 8.9205E-1, 8.7875E-1,
     * 8.8436E-1, 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0021E+0, 1.0010E+0, 1.0008E+0,
     * 1.0005E+0, 1.0004E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0,
     * 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0002E+0, 1.0002E+0, 1.0002E+0,
     * 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0388E+0,
     * 1.0190E+0, 1.0138E+0, 1.0095E+0, 1.0073E+0, 1.0060E+0, 1.0058E+0,
     * 1.0054E+0, 1.0050E+0, 1.0049E+0, 1.0048E+0, 1.0047E+0, 1.0042E+0,
     * 1.0035E+0, 1.0033E+0, 1.0017E+0, 1.0009E+0, 1.0003E+0, 1.0003E+0,
     * 1.0004E+0, 1.2030E+0, 1.1095E+0, 1.0772E+0, 1.0509E+0, 1.0383E+0,
     * 1.0312E+0, 1.0298E+0, 1.0277E+0, 1.0256E+0, 1.0249E+0/
      DATA X2601/ 1.0244E+0, 1.0240E+0, 1.0213E+0, 1.0177E+0, 1.0165E+0,
     * 1.0085E+0, 1.0044E+0, 1.0014E+0, 1.0016E+0, 1.0021E+0, 1.4644E+0,
     * 1.2664E+0, 1.1914E+0, 1.1191E+0, 1.0867E+0, 1.0692E+0, 1.0660E+0,
     * 1.0608E+0, 1.0559E+0, 1.0542E+0, 1.0531E+0, 1.0522E+0, 1.0460E+0,
     * 1.0380E+0, 1.0353E+0, 1.0179E+0, 1.0094E+0, 1.0027E+0, 1.0031E+0,
     * 1.0043E+0, 2.3993E+0, 1.8237E+0, 1.5959E+0, 1.3619E+0, 1.2401E+0,
     * 1.1824E+0, 1.1725E+0, 1.1565E+0, 1.1421E+0, 1.1373E+0, 1.1340E+0,
     * 1.1314E+0, 1.1140E+0, 1.0924E+0, 1.0854E+0, 1.0425E+0, 1.0220E+0,
     * 1.0055E+0, 1.0065E+0, 1.0096E+0, 5.9112E+0, 3.8402E+0, 3.0132E+0,
     * 2.1533E+0, 1.6944E+0, 1.4658E+0, 1.4319E+0, 1.3805E+0, 1.3364E+0,
     * 1.3222E+0, 1.3127E+0, 1.3054E+0, 1.2573E+0, 1.2016E+0, 1.1845E+0,
     * 1.0872E+0, 1.0438E+0, 1.0090E+0, 1.0117E+0, 1.0193E+0, 1.1535E+1,
     * 7.0962E+0, 5.3075E+0, 3.4246E+0, 2.3951E+0, 1.8590E+0, 1.7750E+0,
     * 1.6563E+0, 1.5620E+0, 1.5330E+0, 1.5139E+0, 1.4995E+0, 1.4076E+0,
     * 1.3088E+0, 1.2797E+0, 1.1253E+0, 1.0613E+0, 1.0115E+0, 1.0162E+0,
     * 1.0282E+0, 2.5310E+1, 1.4540E+1, 1.0253E+1, 5.8156E+0, 3.4680E+0,
     * 2.3182E+0, 2.1518E+0, 1.9341E+0, 1.7743E+0, 1.7274E+0/
      DATA X2701/ 1.6969E+0, 1.6742E+0, 1.5346E+0, 1.3934E+0, 1.3535E+0,
     * 1.1518E+0, 1.0729E+0, 1.0134E+0, 1.0198E+0, 1.0349E+0, 2.8616E+1,
     * 1.6758E+1, 1.1974E+1, 6.9293E+0, 4.1625E+0, 2.7134E+0, 2.4851E+0,
     * 2.1601E+0, 1.9367E+0, 1.8734E+0, 1.8328E+0, 1.8027E+0, 1.6232E+0,
     * 1.4494E+0, 1.4016E+0, 1.1677E+0, 1.0796E+0, 1.0146E+0, 1.0221E+0,
     * 1.0393E+0, 7.1292E+1, 4.0976E+1, 2.8705E+1, 1.5714E+1, 8.5305E+0,
     * 4.7162E+0, 4.1055E+0, 3.2233E+0, 2.5950E+0, 2.4419E+0, 2.3486E+0,
     * 2.2818E+0, 1.9196E+0, 1.6190E+0, 1.5435E+0, 1.2092E+0, 1.0967E+0,
     * 1.0189E+0, 1.0296E+0, 1.0522E+0, 1.5421E+2, 8.8117E+1, 6.1303E+1,
     * 3.2824E+1, 1.6986E+1, 8.4905E+0, 7.1150E+0, 5.1084E+0, 3.6450E+0,
     * 3.2753E+0, 3.0671E+0, 2.9253E+0, 2.2461E+0, 1.7769E+0, 1.6700E+0,
     * 1.2398E+0, 1.1091E+0, 1.0236E+0, 1.0372E+0, 1.0640E+0, 3.8005E+2,
     * 2.1525E+2, 1.4846E+2, 7.7629E+1, 3.8337E+1, 1.7356E+1, 1.3976E+1,
     * 9.0655E+0, 5.5212E+0, 4.6396E+0, 4.1498E+0, 3.8418E+0, 2.5998E+0,
     * 1.9165E+0, 1.7765E+0, 1.2609E+0, 1.1179E+0, 1.0290E+0, 1.0448E+0,
     * 1.0747E+0, 1.6814E+3, 9.3588E+2, 6.3561E+2, 3.1971E+2, 1.4719E+2,
     * 5.7537E+1, 4.3540E+1, 2.3777E+1, 1.0491E+1, 7.5571E+0/
      DATA X2801/ 6.1083E+0, 5.3371E+0, 2.9758E+0, 2.0285E+0, 1.8565E+0,
     * 1.2737E+0, 1.1243E+0, 1.0354E+0, 1.0530E+0, 1.0848E+0, 2.4749E+3,
     * 1.4072E+3, 9.7240E+2, 5.0832E+2, 2.4779E+2, 1.0588E+2, 8.2499E+1,
     * 4.7898E+1, 2.1804E+1, 1.4891E+1, 1.0843E+1, 8.1389E+0, 3.2791E+0,
     * 2.0772E+0, 1.8853E+0, 1.2767E+0, 1.1284E+0, 1.0433E+0, 1.0617E+0,
     * 1.0939E+0, 4.2100E+1, 2.7494E+1, 2.1218E+1, 1.4060E+1, 9.5637E+0,
     * 6.6849E+0, 6.1341E+0, 5.2240E+0, 4.3769E+0, 4.0942E+0, 3.9020E+0,
     * 3.7541E+0, 2.7828E+0, 1.8707E+0, 1.7321E+0, 1.2602E+0, 1.1333E+0,
     * 1.0618E+0, 1.0761E+0, 1.1026E+0, 2.9795E+1, 1.9595E+1, 1.5213E+1,
     * 1.0218E+1, 7.0813E+0, 5.0745E+0, 4.6907E+0, 4.0568E+0, 3.4671E+0,
     * 3.2705E+0, 3.1367E+0, 3.0338E+0, 2.3590E+0, 1.7283E+0, 1.6342E+0,
     * 1.2737E+0, 1.1634E+0, 1.0878E+0, 1.0664E+0, 1.0604E+0, 1.2260E+3,
     * 6.9769E+2, 4.8252E+2, 2.5280E+2, 1.2379E+2, 5.3476E+1, 4.1886E+1,
     * 2.4722E+1, 1.1763E+1, 8.3237E+0, 6.3074E+0, 4.9585E+0, 2.4658E+0,
     * 1.8284E+0, 1.7195E+0, 1.3033E+0, 1.1800E+0, 1.0720E+0, 1.0091E+0,
     * 9.6860E-1, 2.7100E+2, 1.5646E+2, 1.0960E+2, 5.9286E+1, 3.0730E+1,
     * 1.4895E+1, 1.2237E+1, 8.2406E+0, 5.1224E+0, 4.2584E+0/
      DATA X2901/ 3.7351E+0, 3.3729E+0, 2.2630E+0, 1.7959E+0, 1.7020E+0,
     * 1.3050E+0, 1.1787E+0, 1.0525E+0, 9.6912E-1, 9.1171E-1, 1.5625E+2,
     * 8.8969E+1, 6.1702E+1, 3.2767E+1, 1.6711E+1, 8.1280E+0, 6.7437E+0,
     * 4.7310E+0, 3.2750E+0, 2.9116E+0, 2.7091E+0, 2.5813E+0, 2.0555E+0,
     * 1.7347E+0, 1.6589E+0, 1.2977E+0, 1.1713E+0, 1.0279E+0, 9.2782E-1,
     * 8.6088E-1, 5.6133E+1, 3.2605E+1, 2.3049E+1, 1.2890E+1, 7.2266E+0,
     * 4.1761E+0, 3.6800E+0, 2.9536E+0, 2.4190E+0, 2.2822E+0, 2.2043E+0,
     * 2.1506E+0, 1.8818E+0, 1.6628E+0, 1.6030E+0, 1.2833E+0, 1.1593E+0,
     * 1.0022E+0, 8.9417E-1, 8.3050E-1, 1.7852E+1, 1.1087E+1, 8.3108E+0,
     * 5.3147E+0, 3.5979E+0, 2.6305E+0, 2.4657E+0, 2.2148E+0, 2.0138E+0,
     * 1.9563E+0, 1.9207E+0, 1.8948E+0, 1.7444E+0, 1.5902E+0, 1.5430E+0,
     * 1.2639E+0, 1.1448E+0, 9.7998E-1, 8.7436E-1, 8.2197E-1, 8.8059E+0,
     * 5.7183E+0, 4.4618E+0, 3.1222E+0, 2.3717E+0, 1.9643E+0, 1.8974E+0,
     * 1.7987E+0, 1.7248E+0, 1.7020E+0, 1.6867E+0, 1.6750E+0, 1.5959E+0,
     * 1.4941E+0, 1.4593E+0, 1.2323E+0, 1.1234E+0, 9.6116E-1, 8.7030E-1,
     * 8.3203E-1, 6.7251E+0, 4.4661E+0, 3.5553E+0, 2.5965E+0, 2.0719E+0,
     * 1.7984E+0, 1.7556E+0, 1.6948E+0, 1.6435E+0, 1.6267E+0/
      DATA X3001/ 1.6151E+0, 1.6061E+0, 1.5424E+0, 1.4551E+0, 1.4244E+0,
     * 1.2180E+0, 1.1147E+0, 9.5858E-1, 8.7541E-1, 8.4091E-1, 3.1248E+0,
     * 2.4974E+0, 2.2309E+0, 1.9315E+0, 1.7479E+0, 1.6339E+0, 1.6126E+0,
     * 1.5779E+0, 1.5445E+0, 1.5327E+0, 1.5244E+0, 1.5179E+0, 1.4694E+0,
     * 1.3988E+0, 1.3733E+0, 1.1964E+0, 1.1032E+0, 9.6131E-1, 8.8939E-1,
     * 8.5867E-1, 1.7967E+0, 1.7026E+0, 1.6517E+0, 1.5797E+0, 1.5209E+0,
     * 1.4724E+0, 1.4615E+0, 1.4415E+0, 1.4201E+0, 1.4123E+0, 1.4067E+0,
     * 1.4022E+0, 1.3681E+0, 1.3169E+0, 1.2982E+0, 1.1649E+0, 1.0919E+0,
     * 9.8176E-1, 9.2580E-1, 8.9905E-1, 1.2556E+0, 1.3245E+0, 1.3406E+0,
     * 1.3411E+0, 1.3239E+0, 1.2989E+0, 1.2927E+0, 1.2814E+0, 1.2694E+0,
     * 1.2650E+0, 1.2619E+0, 1.2594E+0, 1.2408E+0, 1.2137E+0, 1.2040E+0,
     * 1.1396E+0, 1.1088E+0, 1.0613E+0, 1.0289E+0, 1.0085E+0, 1.1281E+0,
     * 1.1966E+0, 1.2154E+0, 1.2225E+0, 1.2132E+0, 1.2032E+0, 1.2010E+0,
     * 1.1972E+0, 1.1935E+0, 1.1922E+0, 1.1913E+0, 1.1906E+0, 1.1859E+0,
     * 1.1806E+0, 1.1792E+0, 1.1831E+0, 1.1987E+0, 1.2156E+0, 1.2038E+0,
     * 1.1887E+0, 1.0731E+0, 1.1433E+0, 1.1645E+0, 1.1767E+0, 1.1823E+0,
     * 1.1874E+0, 1.1887E+0, 1.1913E+0, 1.1943E+0, 1.1955E+0/
      DATA X3101/ 1.1964E+0, 1.1971E+0, 1.2032E+0, 1.2147E+0, 1.2198E+0,
     * 1.2778E+0, 1.3317E+0, 1.3967E+0, 1.3944E+0, 1.3782E+0, 1.0280E+0,
     * 1.0961E+0, 1.1322E+0, 1.1881E+0, 1.2378E+0, 1.2810E+0, 1.2909E+0,
     * 1.3090E+0, 1.3284E+0, 1.3357E+0, 1.3408E+0, 1.3450E+0, 1.3776E+0,
     * 1.4309E+0, 1.4523E+0, 1.6545E+0, 1.8096E+0, 1.9601E+0, 1.9369E+0,
     * 1.8899E+0, 9.9995E-1, 9.9997E-1, 9.9998E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9899E-1, 9.9947E-1, 9.9961E-1,
     * 9.9973E-1, 9.9979E-1, 9.9983E-1, 9.9984E-1, 9.9985E-1, 9.9986E-1,
     * 9.9987E-1, 9.9987E-1, 9.9987E-1, 9.9989E-1, 9.9991E-1, 9.9992E-1,
     * 9.9997E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.8137E-1,
     * 9.9042E-1, 9.9289E-1, 9.9509E-1, 9.9626E-1, 9.9698E-1, 9.9712E-1,
     * 9.9735E-1, 9.9758E-1, 9.9765E-1, 9.9771E-1, 9.9775E-1, 9.9805E-1,
     * 9.9847E-1, 9.9861E-1, 9.9954E-1, 9.9997E-1, 1.0003E+0, 1.0005E+0,
     * 1.0006E+0, 9.0399E-1, 9.4672E-1, 9.6174E-1, 9.7445E-1, 9.8089E-1,
     * 9.8470E-1, 9.8542E-1, 9.8663E-1, 9.8779E-1, 9.8819E-1/
      DATA X3201/ 9.8847E-1, 9.8869E-1, 9.9024E-1, 9.9232E-1, 9.9303E-1,
     * 9.9771E-1, 9.9988E-1, 1.0017E+0, 1.0024E+0, 1.0030E+0, 7.9365E-1,
     * 8.7812E-1, 9.1067E-1, 9.4281E-1, 9.5815E-1, 9.6687E-1, 9.6850E-1,
     * 9.7121E-1, 9.7378E-1, 9.7467E-1, 9.7528E-1, 9.7576E-1, 9.7914E-1,
     * 9.8364E-1, 9.8517E-1, 9.9516E-1, 9.9980E-1, 1.0035E+0, 1.0048E+0,
     * 1.0060E+0, 4.8488E-1, 6.8302E-1, 7.6304E-1, 8.4750E-1, 8.9392E-1,
     * 9.1832E-1, 9.2272E-1, 9.2991E-1, 9.3663E-1, 9.3890E-1, 9.4047E-1,
     * 9.4169E-1, 9.5025E-1, 9.6134E-1, 9.6505E-1, 9.8889E-1, 9.9986E-1,
     * 1.0081E+0, 1.0105E+0, 1.0130E+0,-2.2221E-1, 2.4219E-1, 4.3268E-1,
     * 6.3798E-1, 7.5526E-1, 8.2097E-1, 8.3212E-1, 8.4992E-1, 8.6608E-1,
     * 8.7146E-1, 8.7514E-1, 8.7798E-1, 8.9754E-1, 9.2198E-1, 9.2996E-1,
     * 9.7927E-1, 1.0011E+0, 1.0161E+0, 1.0200E+0, 1.0247E+0,-9.1748E-1,
     *-1.9852E-1, 9.9380E-2, 4.2484E-1, 6.1519E-1, 7.2575E-1, 7.4519E-1,
     * 7.7548E-1, 8.0224E-1, 8.1100E-1, 8.1695E-1, 8.2153E-1, 8.5249E-1,
     * 8.8997E-1, 9.0193E-1, 9.7317E-1, 1.0033E+0, 1.0233E+0, 1.0285E+0,
     * 1.0353E+0,-1.9063E+0,-7.7127E-1,-3.0516E-1, 1.9806E-1, 4.8636E-1,
     * 6.4863E-1, 6.7629E-1, 7.1838E-1, 7.5466E-1, 7.6638E-1/
      DATA X3301/ 7.7427E-1, 7.8034E-1, 8.2076E-1, 8.6851E-1, 8.8349E-1,
     * 9.7018E-1, 1.0055E+0, 1.0286E+0, 1.0352E+0, 1.0435E+0,-2.1276E+0,
     *-9.3918E-1,-4.4565E-1, 9.4500E-2, 4.1164E-1, 5.9690E-1, 6.2964E-1,
     * 6.8087E-1, 7.2418E-1, 7.3801E-1, 7.4729E-1, 7.5440E-1, 8.0137E-1,
     * 8.5592E-1, 8.7284E-1, 9.6893E-1, 1.0072E+0, 1.0321E+0, 1.0396E+0,
     * 1.0489E+0,-3.9099E+0,-2.0213E+0,-1.2365E+0,-3.7584E-1, 1.3081E-1,
     * 4.2790E-1, 4.8060E-1, 5.6328E-1, 6.3353E-1, 6.5500E-1, 6.6920E-1,
     * 6.7995E-1, 7.4871E-1, 8.2428E-1, 8.4689E-1, 9.6812E-1, 1.0130E+0,
     * 1.0427E+0, 1.0533E+0, 1.0651E+0,-6.2065E+0,-3.3984E+0,-2.2312E+0,
     *-9.5166E-1,-1.9945E-1, 2.4097E-1, 3.1905E-1, 4.4142E-1, 5.4519E-1,
     * 5.7686E-1, 5.9732E-1, 6.1258E-1, 7.0616E-1, 8.0260E-1, 8.3034E-1,
     * 9.7102E-1, 1.0196E+0, 1.0531E+0, 1.0665E+0, 1.0795E+0,-1.0300E+1,
     *-5.7834E+0,-3.9141E+0,-1.8782E+0,-6.9183E-1,-7.6294E-3, 1.1198E-1,
     * 2.9752E-1, 4.5183E-1, 4.9794E-1, 5.2733E-1, 5.4872E-1, 6.7238E-1,
     * 7.8986E-1, 8.2219E-1, 9.7700E-1, 1.0270E+0, 1.0632E+0, 1.0783E+0,
     * 1.0911E+0,-2.2823E+1,-1.2850E+1,-8.7693E+0,-4.3879E+0,-1.9009E+0,
     *-5.2179E-1,-2.9022E-1, 5.7934E-2, 3.2966E-1, 4.0498E-1/
      DATA X3401/ 4.5061E-1, 4.8220E-1, 6.4749E-1, 7.8698E-1, 8.2327E-1,
     * 9.8632E-1, 1.0355E+0, 1.0728E+0, 1.0879E+0, 1.0986E+0,-3.0690E+1,
     *-1.7605E+1,-1.2215E+1,-6.3749E+0,-3.0060E+0,-1.0898E+0,-7.5972E-1,
     *-2.5319E-1, 1.5914E-1, 2.7938E-1, 3.5483E-1, 4.0892E-1, 6.3934E-1,
     * 7.9919E-1, 8.3770E-1, 9.9907E-1, 1.0445E+0, 1.0801E+0, 1.0921E+0,
     * 1.0976E+0,-4.1662E+0,-2.3827E+0,-1.6106E+0,-7.2214E-1,-1.5660E-1,
     * 2.1152E-1, 2.8287E-1, 4.0174E-1, 5.1385E-1, 5.5169E-1, 5.7759E-1,
     * 5.9762E-1, 7.3224E-1, 8.7243E-1, 9.0191E-1, 1.0202E+0, 1.0517E+0,
     * 1.0719E+0, 1.0654E+0, 1.0511E+0,-4.2678E+0,-2.4680E+0,-1.6889E+0,
     *-7.9283E-1,-2.2262E-1, 1.4837E-1, 2.2025E-1, 3.3997E-1, 4.5284E-1,
     * 4.9094E-1, 5.1699E-1, 5.3715E-1, 6.7252E-1, 8.1312E-1, 8.4249E-1,
     * 9.5252E-1, 9.7067E-1, 9.3913E-1, 8.7216E-1, 8.0202E-1,-2.4858E+1,
     *-1.4277E+1,-9.9135E+0,-5.1801E+0,-2.4437E+0,-8.8201E-1,-6.1207E-1,
     *-1.9683E-1, 1.4292E-1, 2.4258E-1, 3.0535E-1, 3.5052E-1, 5.4849E-1,
     * 6.8950E-1, 7.2332E-1, 8.5215E-1, 8.6830E-1, 8.0971E-1, 7.1290E-1,
     * 6.1490E-1,-1.1269E+1,-6.4783E+0,-4.4847E+0,-2.2967E+0,-1.0060E+0,
     *-2.4679E-1,-1.1175E-1, 1.0053E-1, 2.8158E-1, 3.3715E-1/
      DATA X3501/ 3.7317E-1, 3.9979E-1, 5.3969E-1, 6.5738E-1, 6.8736E-1,
     * 8.0584E-1, 8.1934E-1, 7.5574E-1, 6.5690E-1, 5.5823E-1,-8.2710E+0,
     *-4.6465E+0,-3.1460E+0,-1.5110E+0,-5.5795E-1,-7.4921E-3, 8.8806E-2,
     * 2.3829E-1, 3.6280E-1, 4.0005E-1, 4.2383E-1, 4.4114E-1, 5.4123E-1,
     * 6.3477E-1, 6.5968E-1, 7.6102E-1, 7.7139E-1, 7.1006E-1, 6.2009E-1,
     * 5.3289E-1,-4.8132E+0,-2.6355E+0,-1.7302E+0,-7.3825E-1,-1.5549E-1,
     * 1.8559E-1, 2.4602E-1, 3.4066E-1, 4.2087E-1, 4.4533E-1, 4.6112E-1,
     * 4.7289E-1, 5.4460E-1, 6.1622E-1, 6.3589E-1, 7.1741E-1, 7.2523E-1,
     * 6.7494E-1, 6.0529E-1, 5.4102E-1,-2.5701E+0,-1.3323E+0,-8.1348E-1,
     *-2.3895E-1, 1.0429E-1, 3.1015E-1, 3.4747E-1, 4.0687E-1, 4.5875E-1,
     * 4.7506E-1, 4.8579E-1, 4.9388E-1, 5.4471E-1, 5.9757E-1, 6.1236E-1,
     * 6.7455E-1, 6.8152E-1, 6.5159E-1, 6.1156E-1, 5.7660E-1,-1.6172E+0,
     *-7.3167E-1,-3.6578E-1, 3.2156E-2, 2.6322E-1, 3.9597E-1, 4.1907E-1,
     * 4.5478E-1, 4.8429E-1, 4.9354E-1, 4.9969E-1, 5.0437E-1, 5.3439E-1,
     * 5.6652E-1, 5.7564E-1, 6.1591E-1, 6.2640E-1, 6.3910E-1, 6.4784E-1,
     * 6.5358E-1,-1.3500E+0,-5.5659E-1,-2.3260E-1, 1.1462E-1, 3.1091E-1,
     * 4.1907E-1, 4.3711E-1, 4.6408E-1, 4.8671E-1, 4.9385E-1/
      DATA X3601/ 4.9862E-1, 5.0224E-1, 5.2562E-1, 5.5082E-1, 5.5802E-1,
     * 5.9177E-1, 6.0591E-1, 6.4057E-1, 6.6992E-1, 6.9071E-1,-6.3834E-1,
     *-1.5919E-1, 3.7384E-2, 2.4930E-1, 3.7034E-1, 4.3815E-1, 4.4966E-1,
     * 4.6710E-1, 4.8191E-1, 4.8661E-1, 4.8976E-1, 4.9215E-1, 5.0768E-1,
     * 5.2464E-1, 5.2960E-1, 5.5768E-1, 5.7991E-1, 6.4929E-1, 7.0666E-1,
     * 7.4627E-1,-1.9334E-1, 9.6268E-2, 2.1283E-1, 3.3532E-1, 4.0208E-1,
     * 4.3665E-1, 4.4202E-1, 4.5025E-1, 4.5732E-1, 4.5959E-1, 4.6112E-1,
     * 4.6229E-1, 4.7004E-1, 4.7935E-1, 4.8247E-1, 5.1254E-1, 5.5255E-1,
     * 6.7301E-1, 7.6338E-1, 8.2295E-1, 1.8273E-1, 2.7804E-1, 3.1551E-1,
     * 3.5361E-1, 3.7304E-1, 3.8185E-1, 3.8346E-1, 3.8621E-1, 3.8903E-1,
     * 3.9006E-1, 3.9081E-1, 3.9141E-1, 3.9623E-1, 4.0506E-1, 4.0906E-1,
     * 4.6302E-1, 5.3160E-1, 7.0021E-1, 8.1136E-1, 8.8111E-1, 2.3775E-1,
     * 2.6168E-1, 2.7170E-1, 2.8278E-1, 2.8941E-1, 2.9613E-1, 2.9788E-1,
     * 3.0128E-1, 3.0524E-1, 3.0678E-1, 3.0792E-1, 3.0885E-1, 3.1655E-1,
     * 3.3072E-1, 3.3691E-1, 4.0804E-1, 4.8255E-1, 6.4216E-1, 7.3971E-1,
     * 7.9922E-1, 1.8767E-1, 1.9485E-1, 1.9875E-1, 2.0427E-1, 2.1176E-1,
     * 2.2018E-1, 2.2232E-1, 2.2640E-1, 2.3099E-1, 2.3276E-1/
      DATA X3701/ 2.3404E-1, 2.3507E-1, 2.4345E-1, 2.5801E-1, 2.6409E-1,
     * 3.2782E-1, 3.8874E-1, 5.1170E-1, 5.8428E-1, 6.2793E-1, 2.2107E-2,
     * 2.2097E-2, 2.2678E-2, 2.4371E-2, 2.6300E-2, 2.8106E-2, 2.8529E-2,
     * 2.9305E-2, 3.0142E-2, 3.0454E-2, 3.0677E-2, 3.0857E-2, 3.2261E-2,
     * 3.4550E-2, 3.5465E-2, 4.4229E-2, 5.1890E-2, 6.6439E-2, 7.4683E-2,
     * 7.9550E-2, 1.3189E-4, 1.5715E-4, 1.7070E-4, 1.8951E-4, 2.0449E-4,
     * 2.1658E-4, 2.1927E-4, 2.2411E-4, 2.2922E-4, 2.3110E-4, 2.3245E-4,
     * 2.3352E-4, 2.4185E-4, 2.5526E-4, 2.6060E-4, 3.1342E-4, 3.6462E-4,
     * 4.9613E-4, 6.0151E-4, 6.8055E-4, 1.3182E-4, 1.5711E-4, 1.7067E-4,
     * 1.8949E-4, 2.0447E-4, 2.1657E-4, 2.1926E-4, 2.2410E-4, 2.2921E-4,
     * 2.3109E-4, 2.3244E-4, 2.3351E-4, 2.4184E-4, 2.5525E-4, 2.6060E-4,
     * 3.1343E-4, 3.6463E-4, 4.9613E-4, 6.0151E-4, 6.8055E-4, 1.3072E-4,
     * 1.5644E-4, 1.7015E-4, 1.8912E-4, 2.0420E-4, 2.1635E-4, 2.1906E-4,
     * 2.2392E-4, 2.2905E-4, 2.3095E-4, 2.3230E-4, 2.3338E-4, 2.4174E-4,
     * 2.5520E-4, 2.6056E-4, 3.1354E-4, 3.6483E-4, 4.9652E-4, 6.0190E-4,
     * 6.8094E-4, 1.2638E-4, 1.5385E-4, 1.6812E-4, 1.8769E-4, 2.0315E-4,
     * 2.1556E-4, 2.1831E-4, 2.2327E-4, 2.2849E-4, 2.3042E-4/
      DATA X3801/ 2.3179E-4, 2.3289E-4, 2.4138E-4, 2.5504E-4, 2.6047E-4,
     * 3.1402E-4, 3.6571E-4, 4.9805E-4, 6.0343E-4, 6.8246E-4, 1.2162E-4,
     * 1.5075E-4, 1.6572E-4, 1.8603E-4, 2.0195E-4, 2.1469E-4, 2.1751E-4,
     * 2.2258E-4, 2.2792E-4, 2.2988E-4, 2.3128E-4, 2.3240E-4, 2.4107E-4,
     * 2.5497E-4, 2.6051E-4, 3.1480E-4, 3.6698E-4, 5.0011E-4, 6.0549E-4,
     * 6.8453E-4, 1.1313E-4, 1.4503E-4, 1.6124E-4, 1.8305E-4, 1.9998E-4,
     * 2.1342E-4, 2.1638E-4, 2.2171E-4, 2.2730E-4, 2.2936E-4, 2.3082E-4,
     * 2.3200E-4, 2.4104E-4, 2.5551E-4, 2.6125E-4, 3.1724E-4, 3.7055E-4,
     * 5.0523E-4, 6.1061E-4, 6.8965E-4, 1.0422E-4, 1.3940E-4, 1.5715E-4,
     * 1.8087E-4, 1.9917E-4, 2.1361E-4, 2.1679E-4, 2.2248E-4, 2.2845E-4,
     * 2.3064E-4, 2.3220E-4, 2.3345E-4, 2.4306E-4, 2.5837E-4, 2.6443E-4,
     * 3.2300E-4, 3.7802E-4, 5.1436E-4, 6.1974E-4, 6.9878E-4, 1.0044E-4,
     * 1.3773E-4, 1.5638E-4, 1.8138E-4, 2.0061E-4, 2.1575E-4, 2.1908E-4,
     * 2.2503E-4, 2.3128E-4, 2.3356E-4, 2.3519E-4, 2.3650E-4, 2.4652E-4,
     * 2.6245E-4, 2.6874E-4, 3.2925E-4, 3.8551E-4, 5.2252E-4, 6.2790E-4,
     * 7.0693E-4, 9.9123E-5, 1.3773E-4, 1.5703E-4, 1.8284E-4, 2.0268E-4,
     * 2.1827E-4, 2.2170E-4, 2.2783E-4, 2.3424E-4, 2.3660E-4/
      DATA X3901/ 2.3827E-4, 2.3961E-4, 2.4990E-4, 2.6624E-4, 2.7269E-4,
     * 3.3446E-4, 3.9151E-4, 5.2867E-4, 6.3405E-4, 7.1308E-4, 9.9145E-5,
     * 1.3832E-4, 1.5802E-4, 1.8424E-4, 2.0440E-4, 2.2026E-4, 2.2374E-4,
     * 2.2997E-4, 2.3649E-4, 2.3888E-4, 2.4058E-4, 2.4194E-4, 2.5239E-4,
     * 2.6897E-4, 2.7551E-4, 3.3803E-4, 3.9552E-4, 5.3266E-4, 6.3804E-4,
     * 7.1708E-4, 1.0097E-4, 1.4216E-4, 1.6269E-4, 1.9005E-4, 2.1107E-4,
     * 2.2760E-4, 2.3123E-4, 2.3771E-4, 2.4450E-4, 2.4699E-4, 2.4876E-4,
     * 2.5018E-4, 2.6105E-4, 2.7827E-4, 2.8504E-4, 3.4951E-4, 4.0807E-4,
     * 5.4477E-4, 6.5015E-4, 7.2919E-4, 1.0592E-4, 1.4788E-4, 1.6922E-4,
     * 1.9759E-4, 2.1937E-4, 2.3636E-4, 2.4010E-4, 2.4680E-4, 2.5380E-4,
     * 2.5637E-4, 2.5819E-4, 2.5965E-4, 2.7085E-4, 2.8858E-4, 2.9555E-4,
     * 3.6152E-4, 4.2076E-4, 5.5672E-4, 6.6210E-4, 7.4114E-4, 1.1349E-4,
     * 1.5700E-4, 1.7810E-4, 2.0683E-4, 2.2918E-4, 2.4663E-4, 2.5045E-4,
     * 2.5729E-4, 2.6446E-4, 2.6709E-4, 2.6896E-4, 2.7045E-4, 2.8193E-4,
     * 3.0006E-4, 3.0719E-4, 3.7434E-4, 4.3393E-4, 5.6904E-4, 6.7442E-4,
     * 7.5346E-4, 1.2207E-4, 1.6654E-4, 1.8883E-4, 2.1845E-4, 2.4146E-4,
     * 2.5930E-4, 2.6322E-4, 2.7021E-4, 2.7754E-4, 2.8022E-4/
      DATA X4001/ 2.8213E-4, 2.8365E-4, 2.9536E-4, 3.1385E-4, 3.2112E-4,
     * 3.8918E-4, 4.4878E-4, 5.8303E-4, 6.8841E-4, 7.6745E-4, 1.3657E-4,
     * 1.8168E-4, 2.0440E-4, 2.3451E-4, 2.5765E-4, 2.7577E-4, 2.7974E-4,
     * 2.8686E-4, 2.9429E-4, 2.9702E-4, 2.9896E-4, 3.0050E-4, 3.1240E-4,
     * 3.3118E-4, 3.3855E-4, 4.0720E-4, 4.6630E-4, 5.9987E-4, 7.0526E-4,
     * 7.8429E-4, 1.7316E-4, 2.2025E-4, 2.4373E-4, 2.7480E-4, 2.9848E-4,
     * 3.1700E-4, 3.2105E-4, 3.2829E-4, 3.3584E-4, 3.3861E-4, 3.4057E-4,
     * 3.4214E-4, 3.5418E-4, 3.7314E-4, 3.8056E-4, 4.4870E-4, 5.0475E-4,
     * 6.3907E-4, 7.4445E-4, 8.2349E-4, 2.7817E-4, 3.2346E-4, 3.4589E-4,
     * 3.7545E-4, 3.9784E-4, 4.1528E-4, 4.1909E-4, 4.2588E-4, 4.3295E-4,
     * 4.3553E-4, 4.3737E-4, 4.3884E-4, 4.5006E-4, 4.6766E-4, 4.7453E-4,
     * 5.3469E-4, 5.7683E-4, 7.2654E-4, 8.3192E-4, 9.1095E-4, 3.8773E-4,
     * 4.1956E-4, 4.3613E-4, 4.5877E-4, 4.7666E-4, 4.9104E-4, 4.9423E-4,
     * 5.0000E-4, 5.0608E-4, 5.0832E-4, 5.0992E-4, 5.1120E-4, 5.2113E-4,
     * 5.3687E-4, 5.4297E-4, 5.9324E-4, 6.2054E-4, 7.9278E-4, 8.9816E-4,
     * 9.7719E-4, 4.3315E-4, 4.6181E-4, 4.7686E-4, 4.9757E-4, 5.1411E-4,
     * 5.2740E-4, 5.3036E-4, 5.3573E-4, 5.4139E-4, 5.4349E-4/
      DATA X4101/ 5.4498E-4, 5.4618E-4, 5.5547E-4, 5.7019E-4, 5.7587E-4,
     * 6.2057E-4, 6.3967E-4, 8.2546E-4, 9.3084E-4, 1.0099E-3, 4.8542E-4,
     * 5.0831E-4, 5.2202E-4, 5.3865E-4, 5.5349E-4, 5.6542E-4, 5.6808E-4,
     * 5.7291E-4, 5.7811E-4, 5.8004E-4, 5.8142E-4, 5.8253E-4, 5.9116E-4,
     * 6.0479E-4, 6.1000E-4, 6.4852E-4, 6.5858E-4, 8.5977E-4, 9.6515E-4,
     * 1.0442E-3, 5.4073E-4, 5.5772E-4, 5.6684E-4, 5.8174E-4, 5.9432E-4,
     * 6.0474E-4, 6.0716E-4, 6.1158E-4, 6.1632E-4, 6.1809E-4, 6.1937E-4,
     * 6.2039E-4, 6.2834E-4, 6.4084E-4, 6.4556E-4, 6.7733E-4, 6.7753E-4,
     * 8.9574E-4, 1.0011E-3, 1.0802E-3, 5.8937E-4, 6.0415E-4, 6.1208E-4,
     * 6.2513E-4, 6.3634E-4, 6.4574E-4, 6.4794E-4, 6.5196E-4, 6.5628E-4,
     * 6.5790E-4, 6.5907E-4, 6.6000E-4, 6.6728E-4, 6.7861E-4, 6.8282E-4,
     * 7.0730E-4, 6.9686E-4, 9.3339E-4, 1.0388E-3, 1.1178E-3, 6.8802E-4,
     * 6.8616E-4, 6.8789E-4, 6.9327E-4, 7.0002E-4, 7.0701E-4, 7.0875E-4,
     * 7.1206E-4, 7.1580E-4, 7.1722E-4, 7.1824E-4, 7.1906E-4, 7.2541E-4,
     * 7.3507E-4, 7.3851E-4, 7.5190E-4, 7.2534E-4, 9.8894E-4, 1.0943E-3,
     * 1.1734E-3, 7.3922E-4, 7.2628E-4, 7.2359E-4, 7.2448E-4, 7.2884E-4,
     * 7.3466E-4, 7.3624E-4, 7.3934E-4, 7.4285E-4, 7.4418E-4/
      DATA X4201/ 7.4514E-4, 7.4591E-4, 7.5188E-4, 7.6079E-4, 7.6390E-4,
     * 7.7220E-4, 7.3832E-4, 1.0138E-3, 1.1192E-3, 1.1982E-3, 7.8940E-4,
     * 7.7415E-4, 7.7030E-4, 7.6978E-4, 7.7309E-4, 7.7811E-4, 7.7952E-4,
     * 7.8231E-4, 7.8550E-4, 7.8671E-4, 7.8758E-4, 7.8828E-4, 7.9365E-4,
     * 8.0143E-4, 8.0400E-4, 8.0429E-4, 7.5898E-4, 1.0522E-3, 1.1576E-3,
     * 1.2366E-3, 9.1153E-4, 8.7286E-4, 8.5988E-4, 8.5004E-4, 8.4864E-4,
     * 8.5159E-4, 8.5273E-4, 8.5506E-4, 8.5774E-4, 8.5875E-4, 8.5948E-4,
     * 8.6007E-4, 8.6446E-4, 8.7032E-4, 8.7199E-4, 8.5879E-4, 7.9475E-4,
     * 1.1148E-3, 1.2202E-3, 1.2992E-3, 1.1419E-3, 1.0535E-3, 1.0219E-3,
     * 9.9432E-4, 9.8519E-4, 9.8595E-4, 9.8661E-4, 9.8803E-4, 9.8970E-4,
     * 9.9033E-4, 9.9077E-4, 9.9112E-4, 9.9358E-4, 9.9570E-4, 9.9565E-4,
     * 9.5827E-4, 8.6312E-4, 1.2202E-3, 1.3256E-3, 1.4046E-3, 1.4662E-3,
     * 1.2729E-3, 1.2059E-3, 1.1509E-3, 1.1371E-3, 1.1343E-3, 1.1342E-3,
     * 1.1342E-3, 1.1343E-3, 1.1343E-3, 1.1343E-3, 1.1343E-3, 1.1339E-3,
     * 1.1311E-3, 1.1288E-3, 1.0657E-3, 9.4230E-4, 1.3236E-3, 1.4290E-3,
     * 1.5081E-3, 1.7712E-3, 1.4379E-3, 1.3355E-3, 1.2728E-3, 1.2537E-3,
     * 1.2469E-3, 1.2458E-3, 1.2442E-3, 1.2425E-3, 1.2419E-3/
      DATA X4301/ 1.2415E-3, 1.2411E-3, 1.2379E-3, 1.2303E-3, 1.2262E-3,
     * 1.1443E-3, 1.0043E-3, 1.3948E-3, 1.5002E-3, 1.5793E-3, 2.2867E-3,
     * 1.7008E-3, 1.5820E-3, 1.4985E-3, 1.4643E-3, 1.4459E-3, 1.4424E-3,
     * 1.4364E-3, 1.4302E-3, 1.4279E-3, 1.4263E-3, 1.4250E-3, 1.4148E-3,
     * 1.3965E-3, 1.3884E-3, 1.2749E-3, 1.1171E-3, 1.5106E-3, 1.6160E-3,
     * 1.6950E-3, 2.6282E-4, 3.1986E-4, 3.5203E-4, 3.9864E-4, 4.3744E-4,
     * 4.6982E-4, 4.7715E-4, 4.9048E-4, 5.0471E-4, 5.0999E-4, 5.1378E-4,
     * 5.1682E-4, 5.4061E-4, 5.7984E-4, 5.9580E-4, 7.6273E-4, 9.3875E-4,
     * 1.3800E-3, 1.6858E-3, 1.8569E-3, 2.6282E-4, 3.1986E-4, 3.5203E-4,
     * 3.9864E-4, 4.3744E-4, 4.6982E-4, 4.7715E-4, 4.9048E-4, 5.0471E-4,
     * 5.0999E-4, 5.1378E-4, 5.1682E-4, 5.4061E-4, 5.7984E-4, 5.9580E-4,
     * 7.6273E-4, 9.3875E-4, 1.3800E-3, 1.6858E-3, 1.8569E-3, 2.6900E-4,
     * 3.2262E-4, 3.5456E-4, 4.0118E-4, 4.4007E-4, 4.7255E-4, 4.7991E-4,
     * 4.9327E-4, 5.0755E-4, 5.1286E-4, 5.1666E-4, 5.1971E-4, 5.4358E-4,
     * 5.8294E-4, 5.9896E-4, 7.6644E-4, 9.4300E-4, 1.3856E-3, 1.6924E-3,
     * 1.8642E-3, 3.1805E-4, 3.4726E-4, 3.7136E-4, 4.1415E-4, 4.5209E-4,
     * 4.8435E-4, 4.9170E-4, 5.0508E-4, 5.1941E-4, 5.2473E-4/
      DATA X4401/ 5.2855E-4, 5.3162E-4, 5.5565E-4, 5.9534E-4, 6.1152E-4,
     * 7.8086E-4, 9.5946E-4, 1.4072E-3, 1.7179E-3, 1.8926E-3, 4.0390E-4,
     * 4.0042E-4, 4.1106E-4, 4.3929E-4, 4.7270E-4, 5.0321E-4, 5.1031E-4,
     * 5.2333E-4, 5.3738E-4, 5.4263E-4, 5.4640E-4, 5.4943E-4, 5.7329E-4,
     * 6.1300E-4, 6.2925E-4, 8.0041E-4, 9.8154E-4, 1.4359E-3, 1.7519E-3,
     * 1.9304E-3, 6.8938E-4, 5.8376E-4, 5.5250E-4, 5.3558E-4, 5.4321E-4,
     * 5.6274E-4, 5.6811E-4, 5.7849E-4, 5.9032E-4, 5.9488E-4, 5.9819E-4,
     * 6.0087E-4, 6.2257E-4, 6.6029E-4, 6.7612E-4, 8.4865E-4, 1.0349E-3,
     * 1.5048E-3, 1.8332E-3, 2.0207E-3, 1.4200E-3, 1.0591E-3, 9.2181E-4,
     * 7.8886E-4, 7.2835E-4, 7.0807E-4, 7.0699E-4, 7.0740E-4, 7.1059E-4,
     * 7.1238E-4, 7.1384E-4, 7.1510E-4, 7.2763E-4, 7.5566E-4, 7.6887E-4,
     * 9.3424E-4, 1.1264E-3, 1.6205E-3, 1.9695E-3, 2.1720E-3, 2.1584E-3,
     * 1.5600E-3, 1.3207E-3, 1.0720E-3, 9.3917E-4, 8.7285E-4, 8.6301E-4,
     * 8.4978E-4, 8.4106E-4, 8.3901E-4, 8.3788E-4, 8.3717E-4, 8.3676E-4,
     * 8.5061E-4, 8.5981E-4, 1.0102E-3, 1.2045E-3, 1.7173E-3, 2.0832E-3,
     * 2.2982E-3, 2.9910E-3, 2.0907E-3, 1.7264E-3, 1.3410E-3, 1.1282E-3,
     * 1.0154E-3, 9.9734E-4, 9.7136E-4, 9.5148E-4, 9.4581E-4/
      DATA X4501/ 9.4225E-4, 9.3968E-4, 9.2703E-4, 9.2732E-4, 9.3261E-4,
     * 1.0672E-3, 1.2616E-3, 1.7869E-3, 2.1647E-3, 2.3887E-3,-5.3346E-3,
     *-2.1988E-3,-9.8819E-4, 2.1126E-4, 7.8790E-4, 1.0152E-3, 1.0372E-3,
     * 1.0505E-3, 1.0280E-3, 1.0197E-3, 9.5854E-4, 9.6158E-4, 9.8527E-4,
     * 9.7918E-4, 9.8159E-4, 1.1041E-3, 1.2979E-3, 1.8307E-3, 2.2160E-3,
     * 2.4455E-3,-3.6650E-2,-1.8937E-2,-1.1947E-2,-4.7983E-3,-1.1107E-3,
     * 6.0596E-4, 8.3658E-4, 1.1135E-3, 1.2129E-3, 1.1996E-3, 1.1914E-3,
     * 1.1854E-3, 1.1559E-3, 1.1450E-3, 1.1372E-3, 1.2154E-3, 1.4048E-3,
     * 1.9577E-3, 2.3642E-3, 2.6098E-3, 1.0500E-3, 1.1101E-3, 1.1435E-3,
     * 1.1916E-3, 1.2310E-3, 1.2632E-3, 1.2705E-3, 1.2839E-3, 1.2981E-3,
     * 1.3034E-3, 1.3072E-3, 1.3102E-3, 1.3143E-3, 1.3192E-3, 1.2994E-3,
     * 1.3244E-3, 1.5062E-3, 2.0754E-3, 2.5012E-3, 2.7616E-3, 1.2054E-3,
     * 1.2674E-3, 1.3027E-3, 1.3514E-3, 1.3913E-3, 1.4238E-3, 1.4311E-3,
     * 1.4446E-3, 1.4587E-3, 1.4640E-3, 1.4678E-3, 1.4709E-3, 1.4677E-3,
     * 1.5241E-3, 1.5057E-3, 1.4363E-3, 1.6072E-3, 2.1903E-3, 2.6346E-3,
     * 2.9092E-3, 1.3723E-3, 1.4343E-3, 1.4706E-3, 1.5192E-3, 1.5587E-3,
     * 1.5911E-3, 1.5985E-3, 1.6119E-3, 1.6261E-3, 1.6314E-3/
      DATA X4601/ 1.6352E-3, 1.6382E-3, 1.6220E-3, 1.7196E-3, 1.6812E-3,
     * 1.5624E-3, 1.7180E-3, 2.3140E-3, 2.7778E-3, 3.0675E-3, 1.5582E-3,
     * 1.6191E-3, 1.6527E-3, 1.7006E-3, 1.7400E-3, 1.7725E-3, 1.7798E-3,
     * 1.7932E-3, 1.8074E-3, 1.8127E-3, 1.8165E-3, 1.8195E-3, 1.8433E-3,
     * 1.9097E-3, 1.8557E-3, 1.8117E-3, 1.8470E-3, 2.4548E-3, 2.9403E-3,
     * 3.2471E-3,-7.8784E-3,-3.8598E-3,-2.1772E-3,-3.1650E-4, 7.9526E-4,
     * 1.4614E-3, 1.5819E-3, 1.7736E-3, 1.9408E-3, 1.9933E-3, 2.0278E-3,
     * 2.0536E-3, 2.1993E-3, 2.2317E-3, 2.1746E-3, 2.1239E-3, 2.1319E-3,
     * 2.7555E-3, 3.2853E-3, 3.6278E-3,-4.8755E-3,-1.9345E-3,-6.8969E-4,
     * 7.0530E-4, 1.5572E-3, 2.0831E-3, 2.1808E-3, 2.3390E-3, 2.4815E-3,
     * 2.5277E-3, 2.5585E-3, 2.5819E-3, 2.7257E-3, 2.8162E-3, 2.8035E-3,
     * 2.6791E-3, 2.7134E-3, 3.3321E-3, 3.9404E-3, 4.3489E-3,-1.4271E-1,
     *-7.8624E-2,-5.2669E-2,-2.5164E-2,-9.9291E-3,-1.8154E-3,-5.1199E-4,
     * 1.3766E-3, 2.7314E-3, 3.0652E-3, 3.2492E-3, 3.3636E-3, 3.2652E-3,
     * 3.3110E-3, 3.3294E-3, 3.0684E-3, 3.1200E-3, 3.7113E-3, 4.3666E-3,
     * 4.8168E-3,-9.9880E-2,-5.4537E-2,-3.6166E-2,-1.6689E-2,-5.8935E-3,
     *-1.3623E-4, 7.9008E-4, 2.1339E-3, 3.1010E-3, 3.3405E-3/
      DATA X4701/ 3.4730E-3, 3.5560E-3, 3.5020E-3, 3.5363E-3, 3.5518E-3,
     * 3.2647E-3, 3.3127E-3, 3.8853E-3, 4.5610E-3, 5.0298E-3,-2.8786E-1,
     *-1.5540E-1,-1.0247E-1,-4.7430E-2,-1.8024E-2,-3.3562E-3,-1.1802E-3,
     * 1.7434E-3, 3.4441E-3, 3.7120E-3, 3.7852E-3, 3.7728E-3, 3.7454E-3,
     * 3.7726E-3, 3.7527E-3, 3.4777E-3, 3.5103E-3, 4.0602E-3, 4.7558E-3,
     * 5.2431E-3,-1.0750E-1,-5.6309E-2,-3.5943E-2,-1.4882E-2,-3.7653E-3,
     * 1.6531E-3, 2.4324E-3, 3.4459E-3, 3.9722E-3, 4.0255E-3, 4.0172E-3,
     * 4.0123E-3, 4.0053E-3, 4.0441E-3, 4.0150E-3, 3.7105E-3, 3.7128E-3,
     * 4.2362E-3, 4.9509E-3, 5.4565E-3, 7.5817E-3, 6.0606E-3, 5.4617E-3,
     * 4.8437E-3, 4.5157E-3, 4.3525E-3, 4.3290E-3, 4.2979E-3, 4.2808E-3,
     * 4.2787E-3, 4.2785E-3, 4.2790E-3, 4.2955E-3, 4.3359E-3, 4.3035E-3,
     * 3.9667E-3, 3.9202E-3, 4.4131E-3, 5.1464E-3, 5.6702E-3, 6.2323E-3,
     * 5.3526E-3, 5.0326E-3, 4.7436E-3, 4.6364E-3, 4.6271E-3, 4.6344E-3,
     * 4.6560E-3, 4.6907E-3, 4.7052E-3, 4.7158E-3, 4.7245E-3, 4.7616E-3,
     * 4.7971E-3, 4.7596E-3, 4.3715E-3, 4.2189E-3, 4.6625E-3, 5.4208E-3,
     * 5.9696E-3, 5.3835E-3, 4.9112E-3, 4.7660E-3, 4.6787E-3, 4.6994E-3,
     * 4.7732E-3, 4.7965E-3, 4.8449E-3, 4.9007E-3, 4.9221E-3/
      DATA X4801/ 4.9377E-3, 4.9502E-3, 4.9906E-3, 5.0259E-3, 4.9858E-3,
     * 4.5723E-3, 4.3498E-3, 4.7700E-3, 5.5386E-3, 6.0981E-3, 1.3723E-3,
     * 2.9848E-3, 3.6535E-3, 4.3840E-3, 4.8113E-3, 5.0594E-3, 5.1030E-3,
     * 5.1710E-3, 5.2483E-3, 5.2758E-3, 5.2949E-3, 5.2423E-3, 5.2661E-3,
     * 5.3012E-3, 5.2581E-3, 4.8140E-3, 4.5495E-3, 4.9318E-3, 5.7156E-3,
     * 6.2910E-3, 3.3885E-4, 2.8674E-3, 3.8586E-3, 4.8627E-3, 5.3700E-3,
     * 5.5960E-3, 5.6242E-3, 5.6492E-3, 5.6634E-3, 5.6687E-3, 5.6725E-3,
     * 5.6755E-3, 5.6993E-3, 5.7340E-3, 5.6861E-3, 5.1940E-3, 4.8681E-3,
     * 5.1852E-3, 5.9915E-3, 6.5913E-3, 4.9285E-3, 5.4442E-3, 5.6867E-3,
     * 5.9913E-3, 6.2097E-3, 6.3714E-3, 6.3787E-3, 6.3921E-3, 6.4063E-3,
     * 6.4116E-3, 6.4154E-3, 6.4184E-3, 6.4422E-3, 6.4763E-3, 6.4202E-3,
     * 5.8456E-3, 5.3883E-3, 5.5874E-3, 6.4266E-3, 7.0641E-3, 4.1187E-3,
     * 5.9021E-3, 6.4889E-3, 6.9201E-3, 6.9589E-3, 6.9912E-3, 6.9986E-3,
     * 7.0119E-3, 7.0261E-3, 7.0314E-3, 7.0352E-3, 7.0382E-3, 7.0620E-3,
     * 7.0956E-3, 7.0326E-3, 6.3893E-3, 5.8818E-3, 5.9571E-3, 6.8238E-3,
     * 7.4948E-3, 5.9975E-3, 6.7546E-3, 6.9950E-3, 7.1567E-3, 7.1955E-3,
     * 7.2279E-3, 7.2352E-3, 7.2486E-3, 7.2628E-3, 7.2681E-3/
      DATA X4901/ 7.2719E-3, 7.2749E-3, 7.2987E-3, 7.3321E-3, 7.2665E-3,
     * 6.5969E-3, 6.2131E-3, 6.1996E-3, 7.0828E-3, 7.7752E-3, 6.9202E-3,
     * 7.5922E-3, 7.3355E-3, 7.0190E-3, 7.0578E-3, 7.0902E-3, 7.0975E-3,
     * 7.1109E-3, 7.1251E-3, 7.1304E-3, 7.1342E-3, 7.1372E-3, 7.1610E-3,
     * 7.1945E-3, 7.1304E-3, 6.4761E-3, 6.7390E-3, 6.5759E-3, 7.4825E-3,
     * 8.2073E-3, 4.2200E-1, 4.4000E-1, 4.7000E-1, 5.2000E-1, 5.7000E-1,
     * 6.1000E-1, 6.4000E-1, 6.8000E-1, 7.1000E-1, 7.5000E-1, 7.8000E-1,
     * 8.0000E-1, 8.3000E-1, 8.5000E-1, 8.8000E-1, 9.0000E-1, 9.2000E-1,
     * 9.2500E-1, 9.3000E-1, 9.3500E-1, 9.4000E-1, 9.4300E-1, 9.4600E-1,
     * 9.5000E-1, 9.5500E-1, 9.6000E-1, 9.6500E-1, 9.6800E-1, 9.7000E-1,
     * 9.7500E-1, 9.8000E-1, 9.8800E-1, 9.9100E-1, 9.9300E-1, 9.9530E-1,
     * 9.9630E-1, 9.9730E-1, 9.9830E-1, 9.9930E-1, 1.0000E+0, 2.7687E-5,
     * 6.2066E-5, 2.0438E-4, 1.0566E-3, 3.9433E-3, 9.4812E-3, 1.6876E-2,
     * 3.3314E-2, 5.2470E-2, 9.0382E-2, 1.3063E-1, 1.6430E-1, 2.2678E-1,
     * 2.7753E-1, 3.6939E-1, 4.4251E-1, 5.2639E-1, 5.4920E-1, 5.7277E-1,
     * 5.9714E-1, 6.2234E-1, 6.3787E-1, 6.5370E-1, 6.7531E-1, 7.0314E-1,
     * 7.3190E-1, 7.6163E-1, 7.7995E-1, 7.9236E-1, 8.2414E-1/
      DATA X5001/ 8.5698E-1, 9.1188E-1, 9.3324E-1, 9.4772E-1, 9.6462E-1,
     * 9.7206E-1, 9.7954E-1, 9.8707E-1, 9.9465E-1, 1.0000E+0, 3.1539E+0,
     * 3.1530E+0, 3.1399E+0, 3.0956E+0, 3.0324E+0, 2.9708E+0, 2.9185E+0,
     * 2.8407E+0, 2.7761E+0, 2.6812E+0, 2.6024E+0, 2.5456E+0, 2.4527E+0,
     * 2.3845E+0, 2.2702E+0, 2.1836E+0, 2.0859E+0, 2.0593E+0, 2.0316E+0,
     * 2.0027E+0, 1.9725E+0, 1.9537E+0, 1.9343E+0, 1.9075E+0, 1.8721E+0,
     * 1.8345E+0, 1.7939E+0, 1.7680E+0, 1.7499E+0, 1.7012E+0, 1.6463E+0,
     * 1.5369E+0, 1.4836E+0, 1.4412E+0, 1.3806E+0, 1.3476E+0, 1.3075E+0,
     * 1.2547E+0, 1.1697E+0, 1.0000E+0, 1.5309E-5, 3.2927E-5, 1.0161E-4,
     * 4.7670E-4, 1.6366E-3, 3.7185E-3, 6.3841E-3, 1.2121E-2, 1.8681E-2,
     * 3.1610E-2, 4.5503E-2, 5.7361E-2, 8.0141E-2, 9.9542E-2, 1.3722E-1,
     * 1.7013E-1, 2.1206E-1, 2.2440E-1, 2.3766E-1, 2.5195E-1, 2.6742E-1,
     * 2.7733E-1, 2.8777E-1, 3.0260E-1, 3.2282E-1, 3.4523E-1, 3.7035E-1,
     * 3.8698E-1, 3.9884E-1, 4.3172E-1, 4.7060E-1, 5.5334E-1, 5.9592E-1,
     * 6.3077E-1, 6.8170E-1, 7.0988E-1, 7.4434E-1, 7.8982E-1, 8.6089E-1,
     * 1.0000E+0, 1.9839E+1, 2.0219E+1, 2.0818E+1, 2.1733E+1, 2.2567E+1,
     * 2.3189E+1, 2.3632E+1, 2.4199E+1, 2.4609E+1, 2.5140E+1/
      DATA X5101/ 2.5529E+1, 2.5785E+1, 2.6169E+1, 2.6425E+1, 2.6816E+1,
     * 2.7084E+1, 2.7362E+1, 2.7433E+1, 2.7506E+1, 2.7580E+1, 2.7656E+1,
     * 2.7702E+1, 2.7748E+1, 2.7812E+1, 2.7893E+1, 2.7977E+1, 2.8065E+1,
     * 2.8120E+1, 2.8157E+1, 2.8255E+1, 2.8361E+1, 2.8559E+1, 2.8650E+1,
     * 2.8721E+1, 2.8819E+1, 2.8871E+1, 2.8934E+1, 2.9016E+1, 2.9149E+1,
     * 2.9233E+1, 3.9678E+1, 3.9038E+1, 3.8108E+1, 3.6859E+1, 3.5886E+1,
     * 3.5249E+1, 3.4832E+1, 3.4337E+1, 3.4000E+1, 3.3580E+1, 3.3278E+1,
     * 3.3079E+1, 3.2780E+1, 3.2577E+1, 3.2260E+1, 3.2034E+1, 3.1789E+1,
     * 3.1723E+1, 3.1655E+1, 3.1585E+1, 3.1512E+1, 3.1466E+1, 3.1419E+1,
     * 3.1355E+1, 3.1270E+1, 3.1179E+1, 3.1083E+1, 3.1021E+1, 3.0977E+1,
     * 3.0862E+1, 3.0732E+1, 3.0476E+1, 3.0354E+1, 3.0258E+1, 3.0125E+1,
     * 3.0054E+1, 2.9971E+1, 2.9865E+1, 2.9709E+1, 2.9233E+1, 8.3732E+0,
     * 8.5371E+0, 8.8093E+0, 9.2620E+0, 9.7167E+0, 1.0083E+1, 1.0361E+1,
     * 1.0737E+1, 1.1023E+1, 1.1414E+1, 1.1715E+1, 1.1920E+1, 1.2239E+1,
     * 1.2459E+1, 1.2806E+1, 1.3053E+1, 1.3315E+1, 1.3383E+1, 1.3453E+1,
     * 1.3525E+1, 1.3599E+1, 1.3644E+1, 1.3690E+1, 1.3753E+1, 1.3834E+1,
     * 1.3918E+1, 1.4006E+1, 1.4061E+1, 1.4099E+1, 1.4199E+1/
      DATA X5201/ 1.4307E+1, 1.4510E+1, 1.4604E+1, 1.4676E+1, 1.4776E+1,
     * 1.4829E+1, 1.4893E+1, 1.4977E+1, 1.5112E+1, 1.5197E+1, 1.6746E+1,
     * 1.6818E+1, 1.6937E+1, 1.7129E+1, 1.7309E+1, 1.7441E+1, 1.7530E+1,
     * 1.7631E+1, 1.7691E+1, 1.7744E+1, 1.7760E+1, 1.7756E+1, 1.7727E+1,
     * 1.7689E+1, 1.7598E+1, 1.7508E+1, 1.7388E+1, 1.7351E+1, 1.7312E+1,
     * 1.7270E+1, 1.7224E+1, 1.7194E+1, 1.7163E+1, 1.7119E+1, 1.7059E+1,
     * 1.6992E+1, 1.6919E+1, 1.6870E+1, 1.6835E+1, 1.6741E+1, 1.6631E+1,
     * 1.6404E+1, 1.6292E+1, 1.6203E+1, 1.6076E+1, 1.6008E+1, 1.5927E+1,
     * 1.5824E+1, 1.5671E+1, 1.5197E+1, 4.6151E-1, 6.4729E+2, 2.2089E+1,
     * 3.1700E-1, 1.0000E-3, 2.0000E-3, 1.0000E-3, 1.0000E-3/

      CALL FLUID0(G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,M)
      RETURN

      END
      SUBROUTINE N2
C.....NITROGEN TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 0.29680 JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 126.30 DEG. K                   C(2)
C       PCRIT = 3.417 MEGA-NEWTONS / METER**2   C(3)
C       DCRIT = 0.3105  GRAMS / CENTIMETER**3   C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)

      DIMENSION G(21,4),TT(27),DD(30),GG(27,30,8),SAT(35,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(100),X1601(100),X1701(100),X1801(100),X1901(100),
     *          X2001(100),X2101(100),X2201(100),X2301(100),X2401(100),
     *          X2501(100),X2601(100),X2701(100),X2801(100),X2901(100),
     *          X3001(100),X3101(100),X3201(100),X3301(100),X3401(100),
     *          X3501(100),X3601(100),X3701(100),X3801(100),X3901(100),
     *          X4001(100),X4101(100),X4201(100),X4301(100),X4401(100),
     *          X4501(100),X4601(100),X4701(100),X4801(100),X4901(100),
     *          X5001(100),X5101(100),X5201(100),X5301(100),X5401(100),
     *          X5501(100),X5601(100),X5701(100),X5801(100),X5901(100),
     *          X6001(100),X6101(100),X6201(100),X6301(100),X6401(100),
     *          X6501(100),X6601(100),X6701(100),X6801(100),X6901(9)

      DIMENSION Z(6909)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501)), (X1601,Z(1601)), (X1701,Z(1701)),
     *            (X1801,Z(1801)), (X1901,Z(1901)), (X2001,Z(2001)),
     *            (X2101,Z(2101)), (X2201,Z(2201)), (X2301,Z(2301)),
     *            (X2401,Z(2401)), (X2501,Z(2501)), (X2601,Z(2601)),
     *            (X2701,Z(2701)), (X2801,Z(2801)), (X2901,Z(2901)),
     *            (X3001,Z(3001)), (X3101,Z(3101)), (X3201,Z(3201)),
     *            (X3301,Z(3301)), (X3401,Z(3401)), (X3501,Z(3501))
      EQUIVALENCE (X3601,Z(3601)), (X3701,Z(3701)), (X3801,Z(3801)),
     *            (X3901,Z(3901)), (X4001,Z(4001)), (X4101,Z(4101)),
     *            (X4201,Z(4201)), (X4301,Z(4301)), (X4401,Z(4401)),
     *            (X4501,Z(4501)), (X4601,Z(4601)), (X4701,Z(4701)),
     *            (X4801,Z(4801)), (X4901,Z(4901)), (X5001,Z(5001)),
     *            (X5101,Z(5101)), (X5201,Z(5201)), (X5301,Z(5301)),
     *            (X5401,Z(5401)), (X5501,Z(5501)), (X5601,Z(5601)),
     *            (X5701,Z(5701)), (X5801,Z(5801)), (X5901,Z(5901)),
     *            (X6001,Z(6001)), (X6101,Z(6101)), (X6201,Z(6201)),
     *            (X6301,Z(6301)), (X6401,Z(6401)), (X6501,Z(6501)),
     *            (X6601,Z(6601)), (X6701,Z(6701)), (X6801,Z(6801)),
     *            (X6901,Z(6901))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0085)),(DD,Z(0112)),(GG,Z(0142)),
     1            (SAT,Z(6622)),(C,Z(6902))
      DATA NG,N1,NTT,N3,NS/21,27,30,8,35/

      DATA X0001/ 5.1200E-1, 6.0000E-1, 7.0000E-1, 8.0000E-1, 9.0000E-1,
     * 9.5000E-1, 1.0000E+0, 1.0500E+0, 1.1000E+0, 1.2000E+0, 1.4000E+0,
     * 1.8000E+0, 2.0000E+0, 2.4000E+0, 2.8000E+0, 3.5000E+0, 4.0000E+0,
     * 5.0000E+0, 6.0000E+0, 7.0000E+0, 7.9000E+0, 1.5311E+1, 1.5708E+1,
     * 1.6094E+1, 1.6429E+1, 1.6724E+1, 1.6859E+1, 1.6987E+1, 1.7109E+1,
     * 1.7225E+1, 1.7443E+1, 1.7828E+1, 1.8456E+1, 1.8719E+1, 1.9175E+1,
     * 1.9561E+1, 2.0124E+1, 2.0464E+1, 2.1044E+1, 2.1534E+1, 2.1965E+1,
     * 2.2315E+1, 5.1598E+0, 5.3558E+0, 5.5785E+0, 5.8011E+0, 6.0236E+0,
     * 6.1348E+0, 6.2460E+0, 6.3572E+0, 6.4684E+0, 6.6907E+0, 7.1351E+0,
     * 8.0235E+0, 8.4676E+0, 9.3566E+0, 1.0248E+1, 1.1818E+1, 1.2953E+1,
     * 1.5276E+1, 1.7690E+1, 2.0211E+1, 2.2563E+1, 2.5057E+0, 2.5051E+0,
     * 2.5041E+0, 2.5032E+0, 2.5023E+0, 2.5019E+0, 2.5015E+0, 2.5011E+0,
     * 2.5008E+0, 2.5001E+0, 2.4990E+0, 2.4981E+0, 2.4986E+0, 2.5021E+0,
     * 2.5096E+0, 2.5346E+0, 2.5624E+0, 2.6416E+0, 2.7442E+0, 2.8509E+0,
     * 2.9262E+0, 5.1200E-1, 6.2000E-1, 6.9000E-1, 7.5700E-1, 8.1000E-1,
     * 8.5400E-1, 9.0800E-1, 9.3000E-1, 9.5000E-1, 9.6500E-1, 9.7500E-1,
     * 9.8100E-1, 9.8800E-1, 9.9300E-1, 9.9750E-1, 9.9800E-1/
      DATA X0101/ 1.0300E+0, 1.0500E+0, 1.1000E+0, 1.3000E+0, 1.8000E+0,
     * 2.8000E+0, 3.5000E+0, 5.0000E+0, 6.0000E+0, 7.0000E+0, 7.9000E+0,
     * 5.5500E-4, 2.0000E-3, 1.3000E-2, 3.0000E-2, 7.0000E-2, 1.0900E-1,
     * 1.7000E-1, 2.7000E-1, 3.2000E-1, 3.9000E-1, 4.5000E-1, 5.2000E-1,
     * 5.6000E-1, 6.3000E-1, 6.9000E-1, 7.9000E-1, 8.0000E-1, 1.1900E+0,
     * 1.3500E+0, 1.4790E+0, 1.6100E+0, 1.8800E+0, 2.0600E+0, 2.2000E+0,
     * 2.3000E+0, 2.4900E+0, 2.6000E+0, 2.8000E+0, 2.9000E+0, 2.9500E+0,
     * 1.2752E+0, 1.2760E+0, 1.2763E+0, 1.2765E+0, 1.2766E+0, 1.2767E+0,
     * 1.2768E+0, 1.2769E+0, 1.2769E+0, 1.2769E+0, 1.2769E+0, 1.2769E+0,
     * 1.2769E+0, 1.2769E+0, 1.2769E+0, 1.2769E+0, 1.2770E+0, 1.2770E+0,
     * 1.2770E+0, 1.2772E+0, 1.2773E+0, 1.2774E+0, 1.2774E+0, 1.2774E+0,
     * 1.2774E+0, 1.2774E+0, 1.2774E+0, 1.2695E+0, 1.2724E+0, 1.2736E+0,
     * 1.2743E+0, 1.2748E+0, 1.2751E+0, 1.2755E+0, 1.2756E+0, 1.2757E+0,
     * 1.2758E+0, 1.2758E+0, 1.2758E+0, 1.2759E+0, 1.2759E+0, 1.2759E+0,
     * 1.2759E+0, 1.2760E+0, 1.2761E+0, 1.2762E+0, 1.2767E+0, 1.2771E+0,
     * 1.2774E+0, 1.2775E+0, 1.2776E+0, 1.2776E+0, 1.2777E+0, 1.2777E+0,
     * 1.2297E+0, 1.2455E+0, 1.2529E+0, 1.2580E+0, 1.2611E+0/
      DATA X0201/ 1.2632E+0, 1.2653E+0, 1.2660E+0, 1.2666E+0, 1.2671E+0,
     * 1.2673E+0, 1.2675E+0, 1.2677E+0, 1.2678E+0, 1.2679E+0, 1.2680E+0,
     * 1.2687E+0, 1.2692E+0, 1.2701E+0, 1.2729E+0, 1.2760E+0, 1.2779E+0,
     * 1.2784E+0, 1.2790E+0, 1.2792E+0, 1.2793E+0, 1.2794E+0, 1.1761E+0,
     * 1.2064E+0, 1.2218E+0, 1.2334E+0, 1.2403E+0, 1.2451E+0, 1.2498E+0,
     * 1.2515E+0, 1.2529E+0, 1.2539E+0, 1.2546E+0, 1.2549E+0, 1.2554E+0,
     * 1.2556E+0, 1.2559E+0, 1.2559E+0, 1.2577E+0, 1.2587E+0, 1.2609E+0,
     * 1.2672E+0, 1.2742E+0, 1.2786E+0, 1.2798E+0, 1.2811E+0, 1.2815E+0,
     * 1.2819E+0, 1.2821E+0, 1.0648E+0, 1.1231E+0, 1.1539E+0, 1.1782E+0,
     * 1.1939E+0, 1.2045E+0, 1.2152E+0, 1.2189E+0, 1.2221E+0, 1.2243E+0,
     * 1.2258E+0, 1.2266E+0, 1.2276E+0, 1.2282E+0, 1.2288E+0, 1.2289E+0,
     * 1.2328E+0, 1.2350E+0, 1.2401E+0, 1.2542E+0, 1.2702E+0, 1.2802E+0,
     * 1.2829E+0, 1.2859E+0, 1.2870E+0, 1.2877E+0, 1.2883E+0, 9.7861E-1,
     * 1.0546E+0, 1.0957E+0, 1.1292E+0, 1.1516E+0, 1.1675E+0, 1.1835E+0,
     * 1.1892E+0, 1.1939E+0, 1.1973E+0, 1.1994E+0, 1.2007E+0, 1.2021E+0,
     * 1.2031E+0, 1.2040E+0, 1.2041E+0, 1.2100E+0, 1.2133E+0, 1.2209E+0,
     * 1.2422E+0, 1.2664E+0, 1.2817E+0, 1.2860E+0, 1.2905E+0/
      DATA X0301/ 1.2922E+0, 1.2934E+0, 1.2942E+0, 8.6247E-1, 9.6146E-1,
     * 1.0160E+0, 1.0613E+0, 1.0922E+0, 1.1146E+0, 1.1381E+0, 1.1464E+0,
     * 1.1534E+0, 1.1583E+0, 1.1615E+0, 1.1633E+0, 1.1654E+0, 1.1669E+0,
     * 1.1682E+0, 1.1683E+0, 1.1770E+0, 1.1820E+0, 1.1932E+0, 1.2248E+0,
     * 1.2609E+0, 1.2840E+0, 1.2906E+0, 1.2977E+0, 1.3002E+0, 1.3021E+0,
     * 1.3033E+0, 7.1204E-1, 8.3894E-1, 9.1002E-1, 9.6983E-1, 1.0113E+0,
     * 1.0419E+0, 1.0746E+0, 1.0864E+0, 1.0963E+0, 1.1034E+0, 1.1079E+0,
     * 1.1105E+0, 1.1135E+0, 1.1156E+0, 1.1175E+0, 1.1177E+0, 1.1301E+0,
     * 1.1373E+0, 1.1534E+0, 1.1993E+0, 1.2529E+0, 1.2880E+0, 1.2982E+0,
     * 1.3092E+0, 1.3133E+0, 1.3162E+0, 1.3182E+0, 6.5991E-1, 7.9442E-1,
     * 8.7004E-1, 9.3401E-1, 9.7871E-1, 1.0120E+0, 1.0479E+0, 1.0610E+0,
     * 1.0721E+0, 1.0800E+0, 1.0850E+0, 1.0880E+0, 1.0913E+0, 1.0937E+0,
     * 1.0958E+0, 1.0960E+0, 1.1100E+0, 1.1180E+0, 1.1362E+0, 1.1881E+0,
     * 1.2494E+0, 1.2901E+0, 1.3020E+0, 1.3151E+0, 1.3200E+0, 1.3234E+0,
     * 1.3257E+0, 6.0059E-1, 7.4316E-1, 8.2422E-1, 8.9268E-1, 9.4073E-1,
     * 9.7685E-1, 1.0162E+0, 1.0307E+0, 1.0431E+0, 1.0519E+0, 1.0575E+0,
     * 1.0608E+0, 1.0646E+0, 1.0672E+0, 1.0695E+0, 1.0698E+0/
      DATA X0401/ 1.0855E+0, 1.0946E+0, 1.1150E+0, 1.1741E+0, 1.2450E+0,
     * 1.2932E+0, 1.3076E+0, 1.3235E+0, 1.3294E+0, 1.3336E+0, 1.3365E+0,
     * 5.6592E-1, 7.1118E-1, 7.9370E-1, 8.6499E-1, 9.1553E-1, 9.5299E-1,
     * 9.9422E-1, 1.0095E+0, 1.0226E+0, 1.0320E+0, 1.0380E+0, 1.0415E+0,
     * 1.0455E+0, 1.0483E+0, 1.0508E+0, 1.0511E+0, 1.0679E+0, 1.0776E+0,
     * 1.0996E+0, 1.1637E+0, 1.2418E+0, 1.2961E+0, 1.3125E+0, 1.3308E+0,
     * 1.3377E+0, 1.3426E+0, 1.3460E+0, 5.4102E-1, 6.8774E-1, 7.7100E-1,
     * 8.4229E-1, 8.9355E-1, 9.3210E-1, 9.7437E-1, 9.9014E-1, 1.0038E+0,
     * 1.0135E+0, 1.0198E+0, 1.0235E+0, 1.0277E+0, 1.0306E+0, 1.0332E+0,
     * 1.0335E+0, 1.0512E+0, 1.0614E+0, 1.0847E+0, 1.1533E+0, 1.2388E+0,
     * 1.2999E+0, 1.3186E+0, 1.3398E+0, 1.3478E+0, 1.3535E+0, 1.3574E+0,
     * 5.3467E-1, 6.7871E-1, 7.6074E-1, 8.3276E-1, 8.8428E-1, 9.2285E-1,
     * 9.6555E-1, 9.8148E-1, 9.9529E-1, 1.0051E+0, 1.0115E+0, 1.0152E+0,
     * 1.0195E+0, 1.0225E+0, 1.0251E+0, 1.0254E+0, 1.0434E+0, 1.0538E+0,
     * 1.0776E+0, 1.1482E+0, 1.2374E+0, 1.3021E+0, 1.3222E+0, 1.3450E+0,
     * 1.3537E+0, 1.3599E+0, 1.3641E+0, 5.2734E-1, 6.8066E-1, 7.5635E-1,
     * 8.2446E-1, 8.7427E-1, 9.1260E-1, 9.5499E-1, 9.7040E-1/
      DATA X0501/ 9.8413E-1, 9.9399E-1, 1.0004E+0, 1.0041E+0, 1.0084E+0,
     * 1.0114E+0, 1.0141E+0, 1.0144E+0, 1.0326E+0, 1.0432E+0, 1.0675E+0,
     * 1.1407E+0, 1.2355E+0, 1.3065E+0, 1.3289E+0, 1.3546E+0, 1.3644E+0,
     * 1.3715E+0, 1.3763E+0, 5.6250E-1, 6.6797E-1, 7.4609E-1, 8.2031E-1,
     * 8.7109E-1, 9.1016E-1, 9.4727E-1, 9.6411E-1, 9.7778E-1, 9.8755E-1,
     * 9.9385E-1, 9.9757E-1, 1.0019E+0, 1.0049E+0, 1.0075E+0, 1.0078E+0,
     * 1.0260E+0, 1.0366E+0, 1.0610E+0, 1.1356E+0, 1.2346E+0, 1.3105E+0,
     * 1.3350E+0, 1.3632E+0, 1.3740E+0, 1.3818E+0, 1.3871E+0, 5.7007E-1,
     * 7.0058E-1, 7.6895E-1, 8.3110E-1, 8.7189E-1, 9.0599E-1, 9.4468E-1,
     * 9.6012E-1, 9.7260E-1, 9.8197E-1, 9.8805E-1, 9.9163E-1, 9.9575E-1,
     * 9.9865E-1, 1.0012E+0, 1.0015E+0, 1.0192E+0, 1.0296E+0, 1.0538E+0,
     * 1.1294E+0, 1.2341E+0, 1.3181E+0, 1.3458E+0, 1.3781E+0, 1.3907E+0,
     * 1.3997E+0, 1.4059E+0, 5.8426E-1, 7.1095E-1, 7.7216E-1, 8.3215E-1,
     * 8.7418E-1, 9.0732E-1, 9.4496E-1, 9.6014E-1, 9.7254E-1, 9.8180E-1,
     * 9.8780E-1, 9.9134E-1, 9.9542E-1, 9.9830E-1, 1.0009E+0, 1.0012E+0,
     * 1.0188E+0, 1.0292E+0, 1.0533E+0, 1.1290E+0, 1.2342E+0, 1.3189E+0,
     * 1.3469E+0, 1.3797E+0, 1.3924E+0, 1.4016E+0, 1.4079E+0/
      DATA X0601/ 6.8350E-1, 7.7264E-1, 8.1801E-1, 8.6092E-1, 8.9320E-1,
     * 9.1933E-1, 9.4975E-1, 9.6239E-1, 9.7293E-1, 9.8083E-1, 9.8603E-1,
     * 9.8909E-1, 9.9267E-1, 9.9519E-1, 9.9746E-1, 9.9771E-1, 1.0135E+0,
     * 1.0231E+0, 1.0460E+0, 1.1234E+0, 1.2449E+0, 1.3558E+0, 1.3955E+0,
     * 1.4438E+0, 1.4630E+0, 1.4770E+0, 1.4867E+0, 6.2500E-1, 7.4219E-1,
     * 7.9297E-1, 8.4766E-1, 8.8281E-1, 9.1797E-1, 9.4189E-1, 9.5557E-1,
     * 9.6704E-1, 9.7534E-1, 9.8068E-1, 9.8393E-1, 9.8773E-1, 9.9037E-1,
     * 9.9275E-1, 9.9302E-1, 1.0096E+0, 1.0197E+0, 1.0437E+0, 1.1248E+0,
     * 1.2528E+0, 1.3720E+0, 1.4154E+0, 1.4688E+0, 1.4903E+0, 1.5059E+0,
     * 1.5168E+0, 6.2207E-1, 7.1655E-1, 7.7393E-1, 8.2715E-1, 8.6646E-1,
     * 8.9746E-1, 9.3327E-1, 9.4719E-1, 9.5950E-1, 9.6854E-1, 9.7446E-1,
     * 9.7797E-1, 9.8204E-1, 9.8492E-1, 9.8749E-1, 9.8778E-1, 1.0056E+0,
     * 1.0164E+0, 1.0419E+0, 1.1269E+0, 1.2595E+0, 1.3835E+0, 1.4291E+0,
     * 1.4857E+0, 1.5085E+0, 1.5252E+0, 1.5368E+0, 5.5640E-1, 6.7261E-1,
     * 7.4194E-1, 8.0347E-1, 8.4863E-1, 8.8345E-1, 9.2354E-1, 9.3899E-1,
     * 9.5258E-1, 9.6250E-1, 9.6897E-1, 9.7281E-1, 9.7723E-1, 9.8036E-1,
     * 9.8315E-1, 9.8346E-1, 1.0027E+0, 1.0142E+0, 1.0413E+0/
      DATA X0701/ 1.1299E+0, 1.2654E+0, 1.3919E+0, 1.4388E+0, 1.4974E+0,
     * 1.5212E+0, 1.5385E+0, 1.5507E+0, 4.4424E-1, 6.0252E-1, 6.9359E-1,
     * 7.7223E-1, 8.2841E-1, 8.7106E-1, 9.1842E-1, 9.3614E-1, 9.5147E-1,
     * 9.6250E-1, 9.6964E-1, 9.7384E-1, 9.7868E-1, 9.8209E-1, 9.8512E-1,
     * 9.8546E-1, 1.0061E+0, 1.0184E+0, 1.0467E+0, 1.1360E+0, 1.2667E+0,
     * 1.3878E+0, 1.4334E+0, 1.4911E+0, 1.5147E+0, 1.5321E+0, 1.5442E+0,
     * 4.2513E-1, 5.9900E-1, 6.9702E-1, 7.8003E-1, 8.3824E-1, 8.8155E-1,
     * 9.2848E-1, 9.4563E-1, 9.6036E-1, 9.7090E-1, 9.7770E-1, 9.8170E-1,
     * 9.8628E-1, 9.8951E-1, 9.9238E-1, 9.9269E-1, 1.0122E+0, 1.0236E+0,
     * 1.0499E+0, 1.1313E+0, 1.2480E+0, 1.3560E+0, 1.3972E+0, 1.4500E+0,
     * 1.4717E+0, 1.4878E+0, 1.4990E+0, 4.4072E-1, 6.1805E-1, 7.1598E-1,
     * 7.9724E-1, 8.5287E-1, 8.9324E-1, 9.3558E-1, 9.5093E-1, 9.6405E-1,
     * 9.7341E-1, 9.7943E-1, 9.8297E-1, 9.8702E-1, 9.8987E-1, 9.9240E-1,
     * 9.9268E-1, 1.0098E+0, 1.0198E+0, 1.0428E+0, 1.1130E+0, 1.2125E+0,
     * 1.3051E+0, 1.3409E+0, 1.3873E+0, 1.4066E+0, 1.4209E+0, 1.4309E+0,
     * 4.5496E-1, 6.3469E-1, 7.3124E-1, 8.0896E-1, 8.6025E-1, 8.9599E-1,
     * 9.3320E-1, 9.4661E-1, 9.5805E-1, 9.6619E-1, 9.7142E-1/
      DATA X0801/ 9.7449E-1, 9.7800E-1, 9.8047E-1, 9.8266E-1, 9.8290E-1,
     * 9.9771E-1, 1.0063E+0, 1.0261E+0, 1.0860E+0, 1.1703E+0, 1.2495E+0,
     * 1.2806E+0, 1.3212E+0, 1.3382E+0, 1.3509E+0, 1.3598E+0, 5.2420E-1,
     * 6.7056E-1, 7.4552E-1, 8.0262E-1, 8.3762E-1, 8.6161E-1, 8.8619E-1,
     * 8.9495E-1, 9.0238E-1, 9.0764E-1, 9.1101E-1, 9.1299E-1, 9.1524E-1,
     * 9.1682E-1, 9.1823E-1, 9.1838E-1, 9.2783E-1, 9.3331E-1, 9.4575E-1,
     * 9.8290E-1, 1.0345E+0, 1.0846E+0, 1.1052E+0, 1.1328E+0, 1.1446E+0,
     * 1.1535E+0, 1.1598E+0, 5.3451E-1, 6.5822E-1, 7.1697E-1, 7.5742E-1,
     * 7.8178E-1, 7.9825E-1, 8.1490E-1, 8.2078E-1, 8.2574E-1, 8.2923E-1,
     * 8.3147E-1, 8.3277E-1, 8.3426E-1, 8.3530E-1, 8.3623E-1, 8.3633E-1,
     * 8.4253E-1, 8.4610E-1, 8.5417E-1, 8.7788E-1, 9.1046E-1, 9.4333E-1,
     * 9.5745E-1, 9.7703E-1, 9.8559E-1, 9.9208E-1, 9.9671E-1, 4.4417E-1,
     * 4.9667E-1, 5.1686E-1, 5.2979E-1, 5.3702E-1, 5.4159E-1, 5.4592E-1,
     * 5.4736E-1, 5.4854E-1, 5.4935E-1, 5.4986E-1, 5.5015E-1, 5.5048E-1,
     * 5.5071E-1, 5.5092E-1, 5.5094E-1, 5.5226E-1, 5.5300E-1, 5.5458E-1,
     * 5.5864E-1, 5.6364E-1, 5.7065E-1, 5.7467E-1, 5.8107E-1, 5.8413E-1,
     * 5.8654E-1, 5.8830E-1, 2.8313E-1, 3.0197E-1, 3.0858E-1/
      DATA X0901/ 3.1232E-1, 3.1413E-1, 3.1509E-1, 3.1581E-1, 3.1599E-1,
     * 3.1612E-1, 3.1619E-1, 3.1622E-1, 3.1624E-1, 3.1626E-1, 3.1627E-1,
     * 3.1628E-1, 3.1628E-1, 3.1631E-1, 3.1631E-1, 3.1623E-1, 3.1550E-1,
     * 3.1400E-1, 3.1410E-1, 3.1498E-1, 3.1690E-1, 3.1796E-1, 3.1883E-1,
     * 3.1949E-1, 1.5882E-1, 1.6603E-1, 1.6830E-1, 1.6937E-1, 1.6974E-1,
     * 1.6983E-1, 1.6977E-1, 1.6971E-1, 1.6963E-1, 1.6957E-1, 1.6953E-1,
     * 1.6950E-1, 1.6947E-1, 1.6944E-1, 1.6942E-1, 1.6942E-1, 1.6925E-1,
     * 1.6913E-1, 1.6884E-1, 1.6767E-1, 1.6575E-1, 1.6480E-1, 1.6490E-1,
     * 1.6548E-1, 1.6587E-1, 1.6620E-1, 1.6647E-1, 1.0000E+0, 9.9999E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9974E-1, 9.9981E-1, 9.9987E-1, 9.9989E-1, 9.9990E-1,
     * 9.9991E-1, 9.9993E-1, 9.9993E-1, 9.9994E-1, 9.9994E-1, 9.9994E-1,
     * 9.9994E-1, 9.9994E-1, 9.9994E-1, 9.9995E-1, 9.9994E-1, 9.9995E-1,
     * 9.9995E-1, 9.9996E-1, 9.9998E-1, 9.9998E-1, 9.9999E-1/
      DATA X1001/ 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 9.9747E-1, 9.9833E-1, 9.9871E-1, 9.9896E-1, 9.9911E-1, 9.9922E-1,
     * 9.9933E-1, 9.9937E-1, 9.9940E-1, 9.9942E-1, 9.9944E-1, 9.9944E-1,
     * 9.9945E-1, 9.9946E-1, 9.9947E-1, 9.9947E-1, 9.9950E-1, 9.9953E-1,
     * 9.9958E-1, 9.9972E-1, 9.9984E-1, 9.9990E-1, 9.9991E-1, 9.9992E-1,
     * 9.9992E-1, 9.9992E-1, 9.9992E-1, 9.9445E-1, 9.9603E-1, 9.9684E-1,
     * 9.9745E-1, 9.9783E-1, 9.9809E-1, 9.9836E-1, 9.9845E-1, 9.9853E-1,
     * 9.9858E-1, 9.9862E-1, 9.9864E-1, 9.9866E-1, 9.9868E-1, 9.9869E-1,
     * 9.9869E-1, 9.9879E-1, 9.9884E-1, 9.9896E-1, 9.9930E-1, 9.9961E-1,
     * 9.9976E-1, 9.9978E-1, 9.9980E-1, 9.9981E-1, 9.9981E-1, 9.9982E-1,
     * 9.8718E-1, 9.9059E-1, 9.9240E-1, 9.9383E-1, 9.9475E-1, 9.9538E-1,
     * 9.9602E-1, 9.9625E-1, 9.9643E-1, 9.9656E-1, 9.9665E-1, 9.9670E-1,
     * 9.9675E-1, 9.9679E-1, 9.9683E-1, 9.9683E-1, 9.9706E-1, 9.9719E-1,
     * 9.9748E-1, 9.9827E-1, 9.9904E-1, 9.9940E-1, 9.9947E-1, 9.9952E-1,
     * 9.9953E-1, 9.9954E-1, 9.9955E-1, 9.8094E-1, 9.8571E-1, 9.8826E-1,
     * 9.9035E-1, 9.9174E-1, 9.9273E-1, 9.9373E-1, 9.9409E-1, 9.9438E-1,
     * 9.9459E-1, 9.9472E-1, 9.9479E-1, 9.9488E-1, 9.9494E-1/
      DATA X1101/ 9.9500E-1, 9.9500E-1, 9.9536E-1, 9.9556E-1, 9.9602E-1,
     * 9.9726E-1, 9.9848E-1, 9.9904E-1, 9.9915E-1, 9.9923E-1, 9.9925E-1,
     * 9.9927E-1, 9.9928E-1, 9.7156E-1, 9.7835E-1, 9.8203E-1, 9.8507E-1,
     * 9.8715E-1, 9.8864E-1, 9.9020E-1, 9.9075E-1, 9.9120E-1, 9.9152E-1,
     * 9.9173E-1, 9.9185E-1, 9.9198E-1, 9.9208E-1, 9.9216E-1, 9.9217E-1,
     * 9.9273E-1, 9.9304E-1, 9.9375E-1, 9.9568E-1, 9.9759E-1, 9.9848E-1,
     * 9.9864E-1, 9.9877E-1, 9.9880E-1, 9.9883E-1, 9.9885E-1, 9.5798E-1,
     * 9.6724E-1, 9.7249E-1, 9.7696E-1, 9.8002E-1, 9.8226E-1, 9.8462E-1,
     * 9.8547E-1, 9.8618E-1, 9.8667E-1, 9.8699E-1, 9.8717E-1, 9.8738E-1,
     * 9.8753E-1, 9.8766E-1, 9.8767E-1, 9.8854E-1, 9.8903E-1, 9.9013E-1,
     * 9.9312E-1, 9.9611E-1, 9.9751E-1, 9.9777E-1, 9.9798E-1, 9.9804E-1,
     * 9.9808E-1, 9.9811E-1, 9.5142E-1, 9.6239E-1, 9.6829E-1, 9.7331E-1,
     * 9.7670E-1, 9.7927E-1, 9.8198E-1, 9.8295E-1, 9.8378E-1, 9.8435E-1,
     * 9.8472E-1, 9.8494E-1, 9.8518E-1, 9.8535E-1, 9.8550E-1, 9.8552E-1,
     * 9.8653E-1, 9.8710E-1, 9.8837E-1, 9.9187E-1, 9.9537E-1, 9.9702E-1,
     * 9.9733E-1, 9.9757E-1, 9.9764E-1, 9.9769E-1, 9.9773E-1, 9.4385E-1,
     * 9.5630E-1, 9.6313E-1, 9.6892E-1, 9.7247E-1, 9.7536E-1/
      DATA X1201/ 9.7848E-1, 9.7960E-1, 9.8057E-1, 9.8125E-1, 9.8169E-1,
     * 9.8194E-1, 9.8223E-1, 9.8243E-1, 9.8261E-1, 9.8263E-1, 9.8382E-1,
     * 9.8450E-1, 9.8601E-1, 9.9014E-1, 9.9433E-1, 9.9631E-1, 9.9668E-1,
     * 9.9697E-1, 9.9706E-1, 9.9712E-1, 9.9717E-1, 9.3970E-1, 9.5142E-1,
     * 9.5850E-1, 9.6484E-1, 9.6948E-1, 9.7231E-1, 9.7566E-1, 9.7690E-1,
     * 9.7798E-1, 9.7874E-1, 9.7923E-1, 9.7951E-1, 9.7983E-1, 9.8006E-1,
     * 9.8026E-1, 9.8028E-1, 9.8161E-1, 9.8237E-1, 9.8406E-1, 9.8871E-1,
     * 9.9344E-1, 9.9569E-1, 9.9611E-1, 9.9645E-1, 9.9655E-1, 9.9662E-1,
     * 9.9667E-1, 9.3188E-1, 9.4556E-1, 9.5361E-1, 9.6021E-1, 9.6509E-1,
     * 9.6890E-1, 9.7256E-1, 9.7395E-1, 9.7518E-1, 9.7600E-1, 9.7654E-1,
     * 9.7685E-1, 9.7721E-1, 9.7746E-1, 9.7768E-1, 9.7770E-1, 9.7918E-1,
     * 9.8002E-1, 9.8190E-1, 9.8708E-1, 9.9239E-1, 9.9494E-1, 9.9542E-1,
     * 9.9581E-1, 9.9592E-1, 9.9601E-1, 9.9607E-1, 9.3213E-1, 9.4385E-1,
     * 9.5093E-1, 9.5825E-1, 9.6362E-1, 9.6704E-1, 9.7095E-1, 9.7238E-1,
     * 9.7365E-1, 9.7453E-1, 9.7510E-1, 9.7543E-1, 9.7580E-1, 9.7606E-1,
     * 9.7629E-1, 9.7632E-1, 9.7787E-1, 9.7875E-1, 9.8072E-1, 9.8617E-1,
     * 9.9179E-1, 9.9450E-1, 9.9501E-1, 9.9543E-1, 9.9556E-1/
      DATA X1301/ 9.9565E-1, 9.9571E-1, 9.1797E-1, 9.4312E-1, 9.4629E-1,
     * 9.5483E-1, 9.5972E-1, 9.6387E-1, 9.6855E-1, 9.6985E-1, 9.7119E-1,
     * 9.7212E-1, 9.7273E-1, 9.7309E-1, 9.7349E-1, 9.7377E-1, 9.7402E-1,
     * 9.7404E-1, 9.7570E-1, 9.7664E-1, 9.7876E-1, 9.8462E-1, 9.9073E-1,
     * 9.9371E-1, 9.9428E-1, 9.9474E-1, 9.9488E-1, 9.9499E-1, 9.9506E-1,
     * 7.5000E-1, 8.0469E-1, 8.6328E-1, 9.0234E-1, 9.3359E-1, 9.4922E-1,
     * 9.5825E-1, 9.6387E-1, 9.6753E-1, 9.6948E-1, 9.7054E-1, 9.7105E-1,
     * 9.7166E-1, 9.7197E-1, 9.7223E-1, 9.7225E-1, 9.7398E-1, 9.7497E-1,
     * 9.7718E-1, 9.8334E-1, 9.8982E-1, 9.9301E-1, 9.9362E-1, 9.9412E-1,
     * 9.9428E-1, 9.9440E-1, 9.9448E-1, 9.5047E-1, 9.6155E-1, 9.6225E-1,
     * 9.5978E-1, 9.6124E-1, 9.6271E-1, 9.6479E-1, 9.6617E-1, 9.6704E-1,
     * 9.6783E-1, 9.6836E-1, 9.6866E-1, 9.6904E-1, 9.6930E-1, 9.6955E-1,
     * 9.6958E-1, 9.7138E-1, 9.7242E-1, 9.7474E-1, 9.8129E-1, 9.8829E-1,
     * 9.9179E-1, 9.9247E-1, 9.9304E-1, 9.9322E-1, 9.9335E-1, 9.9345E-1,
     * 9.5016E-1, 9.6346E-1, 9.5972E-1, 9.5944E-1, 9.6060E-1, 9.6230E-1,
     * 9.6438E-1, 9.6607E-1, 9.6677E-1, 9.6756E-1, 9.6810E-1, 9.6841E-1,
     * 9.6879E-1, 9.6905E-1, 9.6930E-1, 9.6933E-1, 9.7114E-1/
      DATA X1401/ 9.7218E-1, 9.7451E-1, 9.8109E-1, 9.8813E-1, 9.9166E-1,
     * 9.9235E-1, 9.9292E-1, 9.9311E-1, 9.9324E-1, 9.9334E-1, 1.8959E+0,
     * 1.5421E+0, 1.3473E+0, 1.2013E+0, 1.1099E+0, 1.0508E+0, 9.9865E-1,
     * 9.8404E-1, 9.7366E-1, 9.6802E-1, 9.6521E-1, 9.6388E-1, 9.6270E-1,
     * 9.6207E-1, 9.6167E-1, 9.6164E-1, 9.6343E-1, 9.6444E-1, 9.6676E-1,
     * 9.7367E-1, 9.8173E-1, 9.8610E-1, 9.8700E-1, 9.8780E-1, 9.8808E-1,
     * 9.8830E-1, 9.8847E-1,-5.3750E+0,-2.9023E+0,-1.5938E+0,-5.9766E-1,
     * 1.5625E-2, 4.1406E-1, 7.4536E-1, 8.3911E-1, 9.0039E-1, 9.3213E-1,
     * 9.4647E-1, 9.5247E-1, 9.5703E-1, 9.5862E-1, 9.5890E-1, 9.5886E-1,
     * 9.6055E-1, 9.6151E-1, 9.6374E-1, 9.7055E-1, 9.7880E-1, 9.8340E-1,
     * 9.8437E-1, 9.8526E-1, 9.8558E-1, 9.8584E-1, 9.8603E-1, 9.8950E-1,
     * 9.6558E-1, 9.5483E-1, 9.4995E-1, 9.4775E-1, 9.4751E-1, 9.4923E-1,
     * 9.5053E-1, 9.5200E-1, 9.5330E-1, 9.5425E-1, 9.5485E-1, 9.5559E-1,
     * 9.5614E-1, 9.5641E-1, 9.5637E-1, 9.5800E-1, 9.5893E-1, 9.6110E-1,
     * 9.6786E-1, 9.7627E-1, 9.8104E-1, 9.8206E-1, 9.8301E-1, 9.8337E-1,
     * 9.8366E-1, 9.8388E-1, 1.1157E+0, 1.0405E+0, 1.0039E+0, 9.7803E-1,
     * 9.6346E-1, 9.5508E-1, 9.4998E-1, 9.4952E-1, 9.4988E-1/
      DATA X1501/ 9.5067E-1, 9.5142E-1, 9.5197E-1, 9.5270E-1, 9.5325E-1,
     * 9.5351E-1, 9.5347E-1, 9.5506E-1, 9.5598E-1, 9.5813E-1, 9.6493E-1,
     * 9.7355E-1, 9.7847E-1, 9.7953E-1, 9.8055E-1, 9.8095E-1, 9.8127E-1,
     * 9.8153E-1, 9.3332E-1, 9.3275E-1, 9.3343E-1, 9.3483E-1, 9.3635E-1,
     * 9.3793E-1, 9.4023E-1, 9.4129E-1, 9.4231E-1, 9.4323E-1, 9.4401E-1,
     * 9.4458E-1, 9.4533E-1, 9.4590E-1, 9.4617E-1, 9.4613E-1, 9.4779E-1,
     * 9.4875E-1, 9.5103E-1, 9.5829E-1, 9.6753E-1, 9.7278E-1, 9.7392E-1,
     * 9.7507E-1, 9.7555E-1, 9.7595E-1, 9.7627E-1, 9.0692E-1, 9.1547E-1,
     * 9.2053E-1, 9.2504E-1, 9.2840E-1, 9.3104E-1, 9.3409E-1, 9.3528E-1,
     * 9.3641E-1, 9.3742E-1, 9.3826E-1, 9.3886E-1, 9.3966E-1, 9.4025E-1,
     * 9.4055E-1, 9.4051E-1, 9.4232E-1, 9.4338E-1, 9.4585E-1, 9.5370E-1,
     * 9.6350E-1, 9.6894E-1, 9.7012E-1, 9.7133E-1, 9.7186E-1, 9.7232E-1,
     * 9.7268E-1, 9.0344E-1, 9.1055E-1, 9.1508E-1, 9.1943E-1, 9.2286E-1,
     * 9.2570E-1, 9.2918E-1, 9.3051E-1, 9.3178E-1, 9.3288E-1, 9.3378E-1,
     * 9.3442E-1, 9.3526E-1, 9.3589E-1, 9.3621E-1, 9.3617E-1, 9.3816E-1,
     * 9.3930E-1, 9.4199E-1, 9.5039E-1, 9.6067E-1, 9.6622E-1, 9.6741E-1,
     * 9.6866E-1, 9.6922E-1, 9.6971E-1, 9.7011E-1, 9.0326E-1/
      DATA X1601/ 9.0772E-1, 9.1134E-1, 9.1535E-1, 9.1889E-1, 9.2208E-1,
     * 9.2592E-1, 9.2739E-1, 9.2876E-1, 9.2995E-1, 9.3090E-1, 9.3157E-1,
     * 9.3245E-1, 9.3310E-1, 9.3345E-1, 9.3341E-1, 9.3553E-1, 9.3675E-1,
     * 9.3961E-1, 9.4844E-1, 9.5906E-1, 9.6466E-1, 9.6583E-1, 9.6708E-1,
     * 9.6766E-1, 9.6816E-1, 9.6858E-1, 8.8577E-1, 8.9604E-1, 9.0248E-1,
     * 9.0849E-1, 9.1314E-1, 9.1710E-1, 9.2172E-1, 9.2346E-1, 9.2506E-1,
     * 9.2641E-1, 9.2748E-1, 9.2821E-1, 9.2917E-1, 9.2988E-1, 9.3026E-1,
     * 9.3023E-1, 9.3263E-1, 9.3400E-1, 9.3720E-1, 9.4688E-1, 9.5805E-1,
     * 9.6357E-1, 9.6466E-1, 9.6581E-1, 9.6637E-1, 9.6687E-1, 9.6729E-1,
     * 8.7110E-1, 8.9032E-1, 8.9994E-1, 9.0705E-1, 9.1238E-1, 9.1682E-1,
     * 9.2192E-1, 9.2382E-1, 9.2556E-1, 9.2701E-1, 9.2814E-1, 9.2891E-1,
     * 9.2992E-1, 9.3066E-1, 9.3107E-1, 9.3104E-1, 9.3360E-1, 9.3507E-1,
     * 9.3846E-1, 9.4859E-1, 9.5998E-1, 9.6527E-1, 9.6622E-1, 9.6720E-1,
     * 9.6769E-1, 9.6815E-1, 9.6853E-1, 8.6994E-1, 8.9754E-1, 9.0995E-1,
     * 9.1908E-1, 9.2567E-1, 9.3095E-1, 9.3688E-1, 9.3906E-1, 9.4104E-1,
     * 9.4266E-1, 9.4391E-1, 9.4476E-1, 9.4585E-1, 9.4666E-1, 9.4712E-1,
     * 9.4708E-1, 9.4991E-1, 9.5152E-1, 9.5521E-1, 9.6592E-1/
      DATA X1701/ 9.7703E-1, 9.8100E-1, 9.8128E-1, 9.8131E-1, 9.8137E-1,
     * 9.8149E-1, 9.8162E-1, 8.9574E-1, 9.2581E-1, 9.3954E-1, 9.4955E-1,
     * 9.5665E-1, 9.6227E-1, 9.6851E-1, 9.7079E-1, 9.7284E-1, 9.7452E-1,
     * 9.7582E-1, 9.7670E-1, 9.7784E-1, 9.7868E-1, 9.7915E-1, 9.7911E-1,
     * 9.8201E-1, 9.8365E-1, 9.8737E-1, 9.9791E-1, 1.0078E+0, 1.0096E+0,
     * 1.0088E+0, 1.0072E+0, 1.0066E+0, 1.0061E+0, 1.0057E+0, 9.3779E-1,
     * 9.6888E-1, 9.8307E-1, 9.9329E-1, 1.0005E+0, 1.0061E+0, 1.0124E+0,
     * 1.0146E+0, 1.0166E+0, 1.0183E+0, 1.0196E+0, 1.0205E+0, 1.0217E+0,
     * 1.0225E+0, 1.0230E+0, 1.0229E+0, 1.0258E+0, 1.0274E+0, 1.0310E+0,
     * 1.0408E+0, 1.0487E+0, 1.0475E+0, 1.0453E+0, 1.0416E+0, 1.0399E+0,
     * 1.0386E+0, 1.0376E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9930E-1,
     * 9.9949E-1, 9.9958E-1, 9.9965E-1, 9.9970E-1, 9.9973E-1, 9.9977E-1,
     * 9.9978E-1, 9.9979E-1, 9.9980E-1, 9.9980E-1, 9.9980E-1/
      DATA X1801/ 9.9981E-1, 9.9981E-1, 9.9981E-1, 9.9981E-1, 9.9983E-1,
     * 9.9983E-1, 9.9985E-1, 9.9990E-1, 9.9995E-1, 9.9997E-1, 9.9997E-1,
     * 9.9997E-1, 9.9997E-1, 9.9996E-1, 9.9996E-1, 9.9398E-1, 9.9556E-1,
     * 9.9638E-1, 9.9700E-1, 9.9740E-1, 9.9768E-1, 9.9798E-1, 9.9809E-1,
     * 9.9818E-1, 9.9824E-1, 9.9828E-1, 9.9831E-1, 9.9834E-1, 9.9836E-1,
     * 9.9837E-1, 9.9837E-1, 9.9849E-1, 9.9856E-1, 9.9871E-1, 9.9914E-1,
     * 9.9959E-1, 9.9976E-1, 9.9976E-1, 9.9972E-1, 9.9970E-1, 9.9968E-1,
     * 9.9967E-1, 9.8600E-1, 9.8953E-1, 9.9140E-1, 9.9288E-1, 9.9384E-1,
     * 9.9451E-1, 9.9522E-1, 9.9547E-1, 9.9569E-1, 9.9584E-1, 9.9594E-1,
     * 9.9600E-1, 9.9606E-1, 9.9611E-1, 9.9615E-1, 9.9615E-1, 9.9643E-1,
     * 9.9659E-1, 9.9694E-1, 9.9796E-1, 9.9902E-1, 9.9942E-1, 9.9942E-1,
     * 9.9934E-1, 9.9928E-1, 9.9924E-1, 9.9921E-1, 9.6773E-1, 9.7552E-1,
     * 9.7974E-1, 9.8315E-1, 9.8543E-1, 9.8704E-1, 9.8871E-1, 9.8931E-1,
     * 9.8982E-1, 9.9019E-1, 9.9042E-1, 9.9056E-1, 9.9071E-1, 9.9082E-1,
     * 9.9092E-1, 9.9093E-1, 9.9158E-1, 9.9195E-1, 9.9280E-1, 9.9518E-1,
     * 9.9767E-1, 9.9861E-1, 9.9861E-1, 9.9842E-1, 9.9829E-1, 9.9819E-1,
     * 9.9812E-1, 9.5110E-1, 9.6240E-1, 9.6859E-1, 9.7372E-1/
      DATA X1901/ 9.7721E-1, 9.7973E-1, 9.8236E-1, 9.8331E-1, 9.8411E-1,
     * 9.8468E-1, 9.8504E-1, 9.8526E-1, 9.8550E-1, 9.8567E-1, 9.8582E-1,
     * 9.8584E-1, 9.8686E-1, 9.8744E-1, 9.8876E-1, 9.9248E-1, 9.9635E-1,
     * 9.9779E-1, 9.9780E-1, 9.9749E-1, 9.9729E-1, 9.9714E-1, 9.9703E-1,
     * 9.2566E-1, 9.4225E-1, 9.5142E-1, 9.5910E-1, 9.6441E-1, 9.6830E-1,
     * 9.7244E-1, 9.7393E-1, 9.7518E-1, 9.7608E-1, 9.7665E-1, 9.7698E-1,
     * 9.7736E-1, 9.7763E-1, 9.7787E-1, 9.7789E-1, 9.7948E-1, 9.8040E-1,
     * 9.8246E-1, 9.8825E-1, 9.9426E-1, 9.9647E-1, 9.9647E-1, 9.9598E-1,
     * 9.9567E-1, 9.9543E-1, 9.9527E-1, 8.8496E-1, 9.0962E-1, 9.2358E-1,
     * 9.3544E-1, 9.4365E-1, 9.4974E-1, 9.5627E-1, 9.5864E-1, 9.6065E-1,
     * 9.6207E-1, 9.6298E-1, 9.6351E-1, 9.6411E-1, 9.6454E-1, 9.6492E-1,
     * 9.6496E-1, 9.6748E-1, 9.6894E-1, 9.7220E-1, 9.8134E-1, 9.9073E-1,
     * 9.9413E-1, 9.9410E-1, 9.9331E-1, 9.9283E-1, 9.9246E-1, 9.9220E-1,
     * 8.6597E-1, 8.9479E-1, 9.1061E-1, 9.2418E-1, 9.3361E-1, 9.4068E-1,
     * 9.4830E-1, 9.5109E-1, 9.5346E-1, 9.5514E-1, 9.5622E-1, 9.5685E-1,
     * 9.5757E-1, 9.5807E-1, 9.5851E-1, 9.5856E-1, 9.6155E-1, 9.6326E-1,
     * 9.6712E-1, 9.7788E-1, 9.8892E-1, 9.9287E-1, 9.9282E-1/
      DATA X2001/ 9.9187E-1, 9.9131E-1, 9.9088E-1, 9.9058E-1, 8.3862E-1,
     * 8.7280E-1, 8.9209E-1, 9.0869E-1, 9.1969E-1, 9.2815E-1, 9.3734E-1,
     * 9.4069E-1, 9.4357E-1, 9.4560E-1, 9.4690E-1, 9.4766E-1, 9.4853E-1,
     * 9.4914E-1, 9.4968E-1, 9.4974E-1, 9.5335E-1, 9.5543E-1, 9.6008E-1,
     * 9.7306E-1, 9.8631E-1, 9.9098E-1, 9.9090E-1, 9.8974E-1, 9.8906E-1,
     * 9.8854E-1, 9.8818E-1, 8.2031E-1, 8.5645E-1, 8.7744E-1, 8.9575E-1,
     * 9.0875E-1, 9.1794E-1, 9.2821E-1, 9.3203E-1, 9.3528E-1, 9.3761E-1,
     * 9.3910E-1, 9.3997E-1, 9.4096E-1, 9.4166E-1, 9.4227E-1, 9.4234E-1,
     * 9.4647E-1, 9.4884E-1, 9.5415E-1, 9.6895E-1, 9.8400E-1, 9.8924E-1,
     * 9.8912E-1, 9.8778E-1, 9.8700E-1, 9.8641E-1, 9.8602E-1, 7.9419E-1,
     * 8.3667E-1, 8.6060E-1, 8.8086E-1, 8.9526E-1, 9.0622E-1, 9.1788E-1,
     * 9.2220E-1, 9.2595E-1, 9.2857E-1, 9.3027E-1, 9.3126E-1, 9.3239E-1,
     * 9.3318E-1, 9.3388E-1, 9.3395E-1, 9.3865E-1, 9.4134E-1, 9.4738E-1,
     * 9.6418E-1, 9.8121E-1, 9.8706E-1, 9.8689E-1, 9.8533E-1, 9.8445E-1,
     * 9.8378E-1, 9.8334E-1, 7.8394E-1, 8.2690E-1, 8.5083E-1, 8.7280E-1,
     * 8.8818E-1, 8.9966E-1, 9.1219E-1, 9.1679E-1, 9.2075E-1, 9.2357E-1,
     * 9.2537E-1, 9.2643E-1, 9.2763E-1, 9.2847E-1, 9.2922E-1/
      DATA X2101/ 9.2930E-1, 9.3430E-1, 9.3717E-1, 9.4360E-1, 9.6147E-1,
     * 9.7956E-1, 9.8573E-1, 9.8552E-1, 9.8385E-1, 9.8291E-1, 9.8220E-1,
     * 9.8173E-1, 7.6172E-1, 8.1787E-1, 8.3716E-1, 8.6084E-1, 8.7720E-1,
     * 8.8940E-1, 9.0326E-1, 9.0782E-1, 9.1211E-1, 9.1517E-1, 9.1713E-1,
     * 9.1829E-1, 9.1961E-1, 9.2054E-1, 9.2136E-1, 9.2144E-1, 9.2693E-1,
     * 9.3008E-1, 9.3714E-1, 9.5677E-1, 9.7659E-1, 9.8326E-1, 9.8298E-1,
     * 9.8111E-1, 9.8007E-1, 9.7930E-1, 9.7879E-1, 6.8750E-1, 7.2266E-1,
     * 7.7734E-1, 8.2422E-1, 8.5156E-1, 8.7500E-1, 8.9063E-1, 8.9844E-1,
     * 9.0405E-1, 9.0796E-1, 9.1023E-1, 9.1154E-1, 9.1304E-1, 9.1405E-1,
     * 9.1493E-1, 9.1502E-1, 9.2088E-1, 9.2424E-1, 9.3179E-1, 9.5277E-1,
     * 9.7394E-1, 9.8097E-1, 9.8064E-1, 9.7859E-1, 9.7748E-1, 9.7666E-1,
     * 9.7613E-1, 7.3543E-1, 7.9662E-1, 8.1664E-1, 8.4058E-1, 8.5683E-1,
     * 8.6975E-1, 8.8395E-1, 8.8974E-1, 8.9441E-1, 8.9788E-1, 9.0009E-1,
     * 9.0139E-1, 9.0291E-1, 9.0395E-1, 9.0489E-1, 9.0499E-1, 9.1136E-1,
     * 9.1503E-1, 9.2324E-1, 9.4616E-1, 9.6927E-1, 9.7681E-1, 9.7636E-1,
     * 9.7407E-1, 9.7284E-1, 9.7196E-1, 9.7139E-1, 7.3534E-1, 7.9245E-1,
     * 8.1944E-1, 8.3925E-1, 8.5567E-1, 8.6871E-1, 8.8274E-1/
      DATA X2201/ 8.8889E-1, 8.9339E-1, 8.9687E-1, 8.9910E-1, 9.0041E-1,
     * 9.0192E-1, 9.0298E-1, 9.0393E-1, 9.0403E-1, 9.1045E-1, 9.1414E-1,
     * 9.2242E-1, 9.4550E-1, 9.6878E-1, 9.7636E-1, 9.7591E-1, 9.7359E-1,
     * 9.7236E-1, 9.7147E-1, 9.7089E-1, 3.8510E+0, 2.6936E+0, 2.0907E+0,
     * 1.6248E+0, 1.3362E+0, 1.1493E+0, 9.8504E-1, 9.3888E-1, 9.0700E-1,
     * 8.8964E-1, 8.8115E-1, 8.7721E-1, 8.7375E-1, 8.7201E-1, 8.7098E-1,
     * 8.7089E-1, 8.7830E-1, 8.8248E-1, 8.9194E-1, 9.1887E-1, 9.4650E-1,
     * 9.5512E-1, 9.5439E-1, 9.5156E-1, 9.5020E-1, 9.4928E-1, 9.4874E-1,
     *-2.0375E+1,-1.2012E+1,-7.6758E+0,-4.3555E+0,-2.3047E+0,-9.8438E-1,
     * 1.4233E-1, 4.5337E-1, 6.5918E-1, 7.6587E-1, 8.1439E-1, 8.3476E-1,
     * 8.5033E-1, 8.5598E-1, 8.5719E-1, 8.5710E-1, 8.6460E-1, 8.6885E-1,
     * 8.7850E-1, 9.0625E-1, 9.3503E-1, 9.4409E-1, 9.4342E-1, 9.4074E-1,
     * 9.3948E-1, 9.3867E-1, 9.3823E-1, 8.5986E-1, 8.1299E-1, 7.9614E-1,
     * 7.9053E-1, 7.9272E-1, 7.9886E-1, 8.1126E-1, 8.1808E-1, 8.2513E-1,
     * 8.3095E-1, 8.3508E-1, 8.3765E-1, 8.4075E-1, 8.4302E-1, 8.4426E-1,
     * 8.4417E-1, 8.5184E-1, 8.5619E-1, 8.6611E-1, 8.9476E-1, 9.2466E-1,
     * 9.3429E-1, 9.3381E-1, 9.3140E-1, 9.3031E-1, 9.2965E-1/
      DATA X2301/ 9.2933E-1, 1.2959E+0, 1.0664E+0, 9.5605E-1, 8.7939E-1,
     * 8.3806E-1, 8.1654E-1, 8.0664E-1, 8.0776E-1, 8.1137E-1, 8.1570E-1,
     * 8.1936E-1, 8.2185E-1, 8.2506E-1, 8.2742E-1, 8.2872E-1, 8.2863E-1,
     * 8.3666E-1, 8.4123E-1, 8.5164E-1, 8.8172E-1, 9.1314E-1, 9.2366E-1,
     * 9.2347E-1, 9.2153E-1, 9.2066E-1, 9.2019E-1, 9.2001E-1, 5.7751E-1,
     * 6.3118E-1, 6.6370E-1, 6.9316E-1, 7.1522E-1, 7.3272E-1, 7.5318E-1,
     * 7.6120E-1, 7.6832E-1, 7.7402E-1, 7.7830E-1, 7.8115E-1, 7.8479E-1,
     * 7.8743E-1, 7.8897E-1, 7.8890E-1, 7.9850E-1, 8.0393E-1, 8.1623E-1,
     * 8.5116E-1, 8.8714E-1, 9.0036E-1, 9.0115E-1, 9.0057E-1, 9.0034E-1,
     * 9.0037E-1, 9.0055E-1, 3.9868E-1, 5.1366E-1, 5.7708E-1, 6.2966E-1,
     * 6.6561E-1, 6.9168E-1, 7.1898E-1, 7.2861E-1, 7.3705E-1, 7.4362E-1,
     * 7.4843E-1, 7.5158E-1, 7.5553E-1, 7.5840E-1, 7.6015E-1, 7.6011E-1,
     * 7.7108E-1, 7.7728E-1, 7.9119E-1, 8.2998E-1, 8.6933E-1, 8.8467E-1,
     * 8.8627E-1, 8.8679E-1, 8.8703E-1, 8.8743E-1, 8.8787E-1, 3.0308E-1,
     * 4.4829E-1, 5.2709E-1, 5.9125E-1, 6.3419E-1, 6.6460E-1, 6.9542E-1,
     * 7.0617E-1, 7.1549E-1, 7.2263E-1, 7.2775E-1, 7.3107E-1, 7.3520E-1,
     * 7.3817E-1, 7.4006E-1, 7.4004E-1, 7.5191E-1, 7.5859E-1/
      DATA X2401/ 7.7352E-1, 8.1469E-1, 8.5611E-1, 8.7293E-1, 8.7514E-1,
     * 8.7651E-1, 8.7712E-1, 8.7778E-1, 8.7841E-1, 2.2260E-1, 4.0127E-1,
     * 4.9553E-1, 5.6988E-1, 6.1768E-1, 6.4999E-1, 6.8242E-1, 6.9368E-1,
     * 7.0338E-1, 7.1076E-1, 7.1599E-1, 7.1936E-1, 7.2352E-1, 7.2652E-1,
     * 7.2845E-1, 7.2845E-1, 7.4069E-1, 7.4759E-1, 7.6294E-1, 8.0505E-1,
     * 8.4734E-1, 8.6499E-1, 8.6759E-1, 8.6952E-1, 8.7036E-1, 8.7121E-1,
     * 8.7196E-1, 1.0610E-1, 3.5066E-1, 4.7042E-1, 5.5650E-1, 6.0481E-1,
     * 6.3728E-1, 6.6975E-1, 6.8102E-1, 6.9068E-1, 6.9795E-1, 7.0305E-1,
     * 7.0629E-1, 7.1028E-1, 7.1314E-1, 7.1505E-1, 7.1507E-1, 7.2719E-1,
     * 7.3402E-1, 7.4923E-1, 7.9088E-1, 8.3290E-1, 8.5130E-1, 8.5446E-1,
     * 8.5725E-1, 8.5848E-1, 8.5960E-1, 8.6055E-1, 1.7036E-2, 3.4493E-1,
     * 4.8413E-1, 5.6336E-1, 6.0857E-1, 6.3916E-1, 6.6992E-1, 6.8062E-1,
     * 6.8981E-1, 6.9671E-1, 7.0153E-1, 7.0458E-1, 7.0833E-1, 7.1102E-1,
     * 7.1283E-1, 7.1286E-1, 7.2443E-1, 7.3095E-1, 7.4550E-1, 7.8547E-1,
     * 8.2613E-1, 8.4438E-1, 8.4772E-1, 8.5085E-1, 8.5224E-1, 8.5348E-1,
     * 8.5451E-1, 1.0462E-1, 4.3642E-1, 5.3432E-1, 5.9497E-1, 6.3113E-1,
     * 6.5616E-1, 6.8175E-1, 6.9075E-1, 6.9850E-1, 7.0433E-1/
      DATA X2501/ 7.0840E-1, 7.1097E-1, 7.1412E-1, 7.1638E-1, 7.1793E-1,
     * 7.1796E-1, 7.2785E-1, 7.3346E-1, 7.4601E-1, 7.8090E-1, 8.1706E-1,
     * 8.3392E-1, 8.3727E-1, 8.4067E-1, 8.4222E-1, 8.4358E-1, 8.4469E-1,
     * 2.4634E-1, 4.8547E-1, 5.6472E-1, 6.1587E-1, 6.4709E-1, 6.6899E-1,
     * 6.9158E-1, 6.9959E-1, 7.0650E-1, 7.1170E-1, 7.1533E-1, 7.1763E-1,
     * 7.2045E-1, 7.2248E-1, 7.2386E-1, 7.2389E-1, 7.3278E-1, 7.3783E-1,
     * 7.4917E-1, 7.8089E-1, 8.1406E-1, 8.2974E-1, 8.3294E-1, 8.3631E-1,
     * 8.3786E-1, 8.3924E-1, 8.4036E-1, 3.0569E-1, 5.0915E-1, 5.8013E-1,
     * 6.2684E-1, 6.5567E-1, 6.7602E-1, 6.9712E-1, 7.0462E-1, 7.1110E-1,
     * 7.1599E-1, 7.1940E-1, 7.2157E-1, 7.2422E-1, 7.2613E-1, 7.2743E-1,
     * 7.2746E-1, 7.3584E-1, 7.4060E-1, 7.5131E-1, 7.8136E-1, 8.1293E-1,
     * 8.2792E-1, 8.3101E-1, 8.3431E-1, 8.3585E-1, 8.3722E-1, 8.3833E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0042E+0, 1.0035E+0/
      DATA X2601/ 1.0029E+0, 1.0024E+0, 1.0021E+0, 1.0018E+0, 1.0016E+0,
     * 1.0015E+0, 1.0014E+0, 1.0014E+0, 1.0013E+0, 1.0013E+0, 1.0013E+0,
     * 1.0013E+0, 1.0013E+0, 1.0013E+0, 1.0012E+0, 1.0011E+0, 1.0010E+0,
     * 1.0006E+0, 1.0003E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0388E+0, 1.0298E+0, 1.0248E+0, 1.0206E+0,
     * 1.0178E+0, 1.0158E+0, 1.0137E+0, 1.0129E+0, 1.0123E+0, 1.0118E+0,
     * 1.0115E+0, 1.0114E+0, 1.0112E+0, 1.0110E+0, 1.0109E+0, 1.0109E+0,
     * 1.0101E+0, 1.0096E+0, 1.0085E+0, 1.0055E+0, 1.0022E+0, 1.0006E+0,
     * 1.0003E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0929E+0,
     * 1.0705E+0, 1.0583E+0, 1.0484E+0, 1.0419E+0, 1.0371E+0, 1.0322E+0,
     * 1.0304E+0, 1.0289E+0, 1.0278E+0, 1.0271E+0, 1.0267E+0, 1.0262E+0,
     * 1.0259E+0, 1.0256E+0, 1.0256E+0, 1.0236E+0, 1.0225E+0, 1.0200E+0,
     * 1.0128E+0, 1.0051E+0, 1.0013E+0, 1.0006E+0, 1.0002E+0, 1.0001E+0,
     * 1.0000E+0, 1.0000E+0, 1.2145E+0, 1.1632E+0, 1.1352E+0, 1.1124E+0,
     * 1.0970E+0, 1.0860E+0, 1.0745E+0, 1.0704E+0, 1.0669E+0, 1.0644E+0,
     * 1.0627E+0, 1.0618E+0, 1.0607E+0, 1.0600E+0, 1.0593E+0, 1.0592E+0,
     * 1.0547E+0, 1.0521E+0, 1.0463E+0, 1.0298E+0, 1.0119E+0/
      DATA X2701/ 1.0031E+0, 1.0015E+0, 1.0004E+0, 1.0002E+0, 1.0001E+0,
     * 1.0000E+0, 1.3215E+0, 1.2472E+0, 1.2061E+0, 1.1721E+0, 1.1488E+0,
     * 1.1320E+0, 1.1143E+0, 1.1079E+0, 1.1025E+0, 1.0987E+0, 1.0962E+0,
     * 1.0948E+0, 1.0931E+0, 1.0920E+0, 1.0909E+0, 1.0908E+0, 1.0839E+0,
     * 1.0800E+0, 1.0710E+0, 1.0458E+0, 1.0184E+0, 1.0048E+0, 1.0023E+0,
     * 1.0006E+0, 1.0003E+0, 1.0001E+0, 1.0001E+0, 1.4748E+0, 1.3686E+0,
     * 1.3093E+0, 1.2597E+0, 1.2253E+0, 1.2001E+0, 1.1733E+0, 1.1636E+0,
     * 1.1554E+0, 1.1496E+0, 1.1459E+0, 1.1437E+0, 1.1412E+0, 1.1395E+0,
     * 1.1379E+0, 1.1377E+0, 1.1273E+0, 1.1213E+0, 1.1078E+0, 1.0696E+0,
     * 1.0280E+0, 1.0073E+0, 1.0035E+0, 1.0009E+0, 1.0004E+0, 1.0002E+0,
     * 1.0001E+0, 1.6957E+0, 1.5443E+0, 1.4593E+0, 1.3878E+0, 1.3378E+0,
     * 1.3008E+0, 1.2609E+0, 1.2464E+0, 1.2341E+0, 1.2254E+0, 1.2198E+0,
     * 1.2166E+0, 1.2128E+0, 1.2102E+0, 1.2079E+0, 1.2076E+0, 1.1921E+0,
     * 1.1831E+0, 1.1629E+0, 1.1056E+0, 1.0428E+0, 1.0112E+0, 1.0053E+0,
     * 1.0014E+0, 1.0006E+0, 1.0003E+0, 1.0001E+0, 1.7842E+0, 1.6175E+0,
     * 1.5232E+0, 1.4433E+0, 1.3871E+0, 1.3454E+0, 1.3001E+0, 1.2836E+0,
     * 1.2694E+0, 1.2594E+0, 1.2530E+0, 1.2493E+0, 1.2450E+0/
      DATA X2801/ 1.2420E+0, 1.2394E+0, 1.2391E+0, 1.2212E+0, 1.2109E+0,
     * 1.1878E+0, 1.1220E+0, 1.0497E+0, 1.0130E+0, 1.0061E+0, 1.0016E+0,
     * 1.0007E+0, 1.0003E+0, 1.0001E+0, 1.8926E+0, 1.7073E+0, 1.6016E+0,
     * 1.5119E+0, 1.4483E+0, 1.4009E+0, 1.3492E+0, 1.3302E+0, 1.3139E+0,
     * 1.3023E+0, 1.2949E+0, 1.2906E+0, 1.2856E+0, 1.2822E+0, 1.2791E+0,
     * 1.2788E+0, 1.2581E+0, 1.2462E+0, 1.2194E+0, 1.1432E+0, 1.0587E+0,
     * 1.0153E+0, 1.0072E+0, 1.0018E+0, 1.0008E+0, 1.0003E+0, 1.0001E+0,
     * 1.9780E+0, 1.7734E+0, 1.6592E+0, 1.5620E+0, 1.4939E+0, 1.4423E+0,
     * 1.3857E+0, 1.3648E+0, 1.3470E+0, 1.3344E+0, 1.3263E+0, 1.3215E+0,
     * 1.3161E+0, 1.3123E+0, 1.3089E+0, 1.3085E+0, 1.2859E+0, 1.2729E+0,
     * 1.2434E+0, 1.1595E+0, 1.0659E+0, 1.0172E+0, 1.0081E+0, 1.0020E+0,
     * 1.0008E+0, 1.0003E+0, 1.0001E+0, 2.0466E+0, 1.8333E+0, 1.7124E+0,
     * 1.6089E+0, 1.5361E+0, 1.4812E+0, 1.4210E+0, 1.3987E+0, 1.3796E+0,
     * 1.3659E+0, 1.3571E+0, 1.3520E+0, 1.3462E+0, 1.3420E+0, 1.3384E+0,
     * 1.3380E+0, 1.3135E+0, 1.2994E+0, 1.2676E+0, 1.1763E+0, 1.0734E+0,
     * 1.0193E+0, 1.0090E+0, 1.0022E+0, 1.0009E+0, 1.0003E+0, 1.0001E+0,
     * 2.0742E+0, 1.8601E+0, 1.7332E+0, 1.6289E+0, 1.5552E+0/
      DATA X2901/ 1.4990E+0, 1.4376E+0, 1.4147E+0, 1.3950E+0, 1.3810E+0,
     * 1.3720E+0, 1.3667E+0, 1.3606E+0, 1.3564E+0, 1.3526E+0, 1.3522E+0,
     * 1.3270E+0, 1.3124E+0, 1.2794E+0, 1.1848E+0, 1.0774E+0, 1.0203E+0,
     * 1.0095E+0, 1.0022E+0, 1.0009E+0, 1.0003E+0, 1.0000E+0, 2.1016E+0,
     * 1.8945E+0, 1.7634E+0, 1.6567E+0, 1.5808E+0, 1.5239E+0, 1.4610E+0,
     * 1.4370E+0, 1.4167E+0, 1.4022E+0, 1.3928E+0, 1.3874E+0, 1.3811E+0,
     * 1.3767E+0, 1.3728E+0, 1.3724E+0, 1.3462E+0, 1.3310E+0, 1.2968E+0,
     * 1.1978E+0, 1.0836E+0, 1.0220E+0, 1.0102E+0, 1.0024E+0, 1.0009E+0,
     * 1.0002E+0, 9.9997E-1, 2.0000E+0, 1.8750E+0, 1.7383E+0, 1.6523E+0,
     * 1.5859E+0, 1.5352E+0, 1.4727E+0, 1.4482E+0, 1.4290E+0, 1.4148E+0,
     * 1.4054E+0, 1.3999E+0, 1.3937E+0, 1.3893E+0, 1.3853E+0, 1.3849E+0,
     * 1.3584E+0, 1.3430E+0, 1.3082E+0, 1.2069E+0, 1.0883E+0, 1.0233E+0,
     * 1.0108E+0, 1.0024E+0, 1.0008E+0, 1.0002E+0, 9.9991E-1, 2.1028E+0,
     * 1.9095E+0, 1.7821E+0, 1.6765E+0, 1.6019E+0, 1.5457E+0, 1.4832E+0,
     * 1.4607E+0, 1.4405E+0, 1.4260E+0, 1.4168E+0, 1.4113E+0, 1.4051E+0,
     * 1.4007E+0, 1.3968E+0, 1.3964E+0, 1.3702E+0, 1.3550E+0, 1.3204E+0,
     * 1.2181E+0, 1.0948E+0, 1.0251E+0, 1.0115E+0, 1.0024E+0/
      DATA X3001/ 1.0007E+0, 1.0001E+0, 9.9979E-1, 2.1111E+0, 1.9129E+0,
     * 1.7880E+0, 1.6760E+0, 1.6035E+0, 1.5469E+0, 1.4839E+0, 1.4615E+0,
     * 1.4411E+0, 1.4265E+0, 1.4173E+0, 1.4118E+0, 1.4056E+0, 1.4012E+0,
     * 1.3973E+0, 1.3969E+0, 1.3708E+0, 1.3557E+0, 1.3212E+0, 1.2190E+0,
     * 1.0953E+0, 1.0253E+0, 1.0115E+0, 1.0024E+0, 1.0007E+0, 1.0000E+0,
     * 9.9977E-1, 1.6821E+0, 1.6036E+0, 1.5482E+0, 1.4987E+0, 1.4631E+0,
     * 1.4353E+0, 1.4027E+0, 1.3909E+0, 1.3794E+0, 1.3714E+0, 1.3660E+0,
     * 1.3629E+0, 1.3592E+0, 1.3566E+0, 1.3543E+0, 1.3540E+0, 1.3380E+0,
     * 1.3283E+0, 1.3049E+0, 1.2254E+0, 1.1066E+0, 1.0281E+0, 1.0120E+0,
     * 1.0015E+0, 9.9971E-1, 9.9911E-1, 9.9894E-1, 1.3750E+0, 1.3750E+0,
     * 1.3672E+0, 1.3672E+0, 1.3711E+0, 1.3672E+0, 1.3479E+0, 1.3403E+0,
     * 1.3354E+0, 1.3315E+0, 1.3284E+0, 1.3266E+0, 1.3244E+0, 1.3228E+0,
     * 1.3214E+0, 1.3212E+0, 1.3106E+0, 1.3038E+0, 1.2866E+0, 1.2203E+0,
     * 1.1074E+0, 1.0278E+0, 1.0112E+0, 1.0006E+0, 9.9901E-1, 9.9852E-1,
     * 9.9845E-1, 1.2617E+0, 1.2908E+0, 1.3030E+0, 1.3115E+0, 1.3147E+0,
     * 1.3147E+0, 1.3115E+0, 1.3092E+0, 1.3066E+0, 1.3044E+0, 1.3028E+0,
     * 1.3018E+0, 1.3005E+0, 1.2995E+0, 1.2987E+0, 1.2986E+0/
      DATA X3101/ 1.2918E+0, 1.2871E+0, 1.2742E+0, 1.2168E+0, 1.1075E+0,
     * 1.0270E+0, 1.0102E+0, 9.9979E-1, 9.9831E-1, 9.9796E-1, 9.9798E-1,
     * 1.1030E+0, 1.1804E+0, 1.2205E+0, 1.2500E+0, 1.2676E+0, 1.2773E+0,
     * 1.2841E+0, 1.2854E+0, 1.2857E+0, 1.2854E+0, 1.2850E+0, 1.2846E+0,
     * 1.2841E+0, 1.2837E+0, 1.2833E+0, 1.2832E+0, 1.2794E+0, 1.2763E+0,
     * 1.2665E+0, 1.2153E+0, 1.1074E+0, 1.0258E+0, 1.0089E+0, 9.9876E-1,
     * 9.9750E-1, 9.9732E-1, 9.9745E-1, 8.7999E-1, 1.0433E+0, 1.1264E+0,
     * 1.1896E+0, 1.2279E+0, 1.2520E+0, 1.2720E+0, 1.2770E+0, 1.2801E+0,
     * 1.2816E+0, 1.2822E+0, 1.2824E+0, 1.2826E+0, 1.2826E+0, 1.2826E+0,
     * 1.2825E+0, 1.2809E+0, 1.2789E+0, 1.2711E+0, 1.2211E+0, 1.1078E+0,
     * 1.0222E+0, 1.0053E+0, 9.9615E-1, 9.9547E-1, 9.9574E-1, 9.9615E-1,
     * 8.3438E-1, 1.0316E+0, 1.1308E+0, 1.2047E+0, 1.2486E+0, 1.2753E+0,
     * 1.2959E+0, 1.3005E+0, 1.3030E+0, 1.3040E+0, 1.3043E+0, 1.3043E+0,
     * 1.3042E+0, 1.3040E+0, 1.3038E+0, 1.3038E+0, 1.3009E+0, 1.2981E+0,
     * 1.2883E+0, 1.2311E+0, 1.1082E+0, 1.0190E+0, 1.0023E+0, 9.9404E-1,
     * 9.9387E-1, 9.9450E-1, 9.9515E-1, 8.3510E-1, 1.0544E+0, 1.1624E+0,
     * 1.2408E+0, 1.2854E+0, 1.3108E+0, 1.3275E+0, 1.3304E+0/
      DATA X3201/ 1.3315E+0, 1.3314E+0, 1.3310E+0, 1.3306E+0, 1.3300E+0,
     * 1.3295E+0, 1.3290E+0, 1.3289E+0, 1.3240E+0, 1.3199E+0, 1.3071E+0,
     * 1.2409E+0, 1.1083E+0, 1.0161E+0, 9.9953E-1, 9.9221E-1, 9.9249E-1,
     * 9.9344E-1, 9.9430E-1, 7.1634E-1, 9.7372E-1, 1.1059E+0, 1.2068E+0,
     * 1.2690E+0, 1.3087E+0, 1.3065E+0, 1.3127E+0, 1.3625E+0, 1.4689E+0,
     * 1.5134E+0, 1.7208E+0, 1.8720E+0, 1.3972E+0, 1.3462E+0, 1.4240E+0,
     * 1.3429E+0, 1.3377E+0, 1.3223E+0, 1.2485E+0, 1.1081E+0, 1.0137E+0,
     * 9.9737E-1, 9.9079E-1, 9.9143E-1, 9.9263E-1, 9.9365E-1, 1.6185E+0,
     * 1.3614E+0, 1.2907E+0, 1.2936E+0, 1.3449E+0, 1.3758E+0, 1.3636E+0,
     * 1.3659E+0, 1.4124E+0, 1.5165E+0, 1.5595E+0, 1.7660E+0, 1.9161E+0,
     * 1.4406E+0, 1.3890E+0, 1.4667E+0, 1.3814E+0, 1.3737E+0, 1.3525E+0,
     * 1.2625E+0, 1.1067E+0, 1.0084E+0, 9.9279E-1, 9.8786E-1, 9.8925E-1,
     * 9.9098E-1, 9.9233E-1, 1.7669E+0, 1.4469E+0, 1.3532E+0, 1.3473E+0,
     * 1.3912E+0, 1.4162E+0, 1.3975E+0, 1.3974E+0, 1.4418E+0, 1.5444E+0,
     * 1.5864E+0, 1.7924E+0, 1.9419E+0, 1.4659E+0, 1.4139E+0, 1.4916E+0,
     * 1.4037E+0, 1.3943E+0, 1.3696E+0, 1.2699E+0, 1.1050E+0, 1.0050E+0,
     * 9.8985E-1, 9.8601E-1, 9.8789E-1, 9.8995E-1, 9.9151E-1/
      DATA X3301/ 1.6381E+0, 1.5700E+0, 1.4667E+0, 1.4436E+0, 1.4733E+0,
     * 1.4874E+0, 1.4565E+0, 1.4520E+0, 1.4926E+0, 1.5924E+0, 1.6326E+0,
     * 1.8376E+0, 1.9859E+0, 1.5091E+0, 1.4563E+0, 1.5339E+0, 1.4412E+0,
     * 1.4290E+0, 1.3979E+0, 1.2806E+0, 1.1003E+0, 9.9778E-1, 9.8392E-1,
     * 9.8238E-1, 9.8524E-1, 9.8796E-1, 9.8991E-1, 1.6629E+0, 1.6285E+0,
     * 1.5205E+0, 1.4890E+0, 1.5118E+0, 1.5205E+0, 1.4837E+0, 1.4770E+0,
     * 1.5156E+0, 1.6141E+0, 1.6535E+0, 1.8579E+0, 2.0057E+0, 1.5285E+0,
     * 1.4753E+0, 1.5529E+0, 1.4579E+0, 1.4443E+0, 1.4101E+0, 1.2844E+0,
     * 1.0969E+0, 9.9376E-1, 9.8068E-1, 9.8044E-1, 9.8382E-1, 9.8689E-1,
     * 9.8907E-1, 1.6733E+0, 1.6564E+0, 1.5463E+0, 1.5107E+0, 1.5301E+0,
     * 1.5362E+0, 1.4965E+0, 1.4887E+0, 1.5264E+0, 1.6242E+0, 1.6632E+0,
     * 1.8674E+0, 2.0149E+0, 1.5375E+0, 1.4842E+0, 1.5617E+0, 1.4656E+0,
     * 1.4513E+0, 1.4156E+0, 1.2858E+0, 1.0950E+0, 9.9164E-1, 9.7898E-1,
     * 9.7943E-1, 9.8309E-1, 9.8635E-1, 9.8863E-1, 1.0021E+0, 1.0014E+0,
     * 1.0011E+0, 1.0009E+0, 1.0007E+0, 1.0006E+0, 1.0005E+0, 1.0005E+0,
     * 1.0005E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0,
     * 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0004E+0, 1.0003E+0/
      DATA X3401/ 1.0002E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0078E+0, 1.0051E+0, 1.0039E+0,
     * 1.0031E+0, 1.0026E+0, 1.0023E+0, 1.0019E+0, 1.0018E+0, 1.0017E+0,
     * 1.0016E+0, 1.0016E+0, 1.0016E+0, 1.0015E+0, 1.0015E+0, 1.0015E+0,
     * 1.0015E+0, 1.0014E+0, 1.0013E+0, 1.0011E+0, 1.0007E+0, 1.0003E+0,
     * 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0527E+0, 1.0348E+0, 1.0264E+0, 1.0207E+0, 1.0173E+0, 1.0150E+0,
     * 1.0127E+0, 1.0119E+0, 1.0112E+0, 1.0107E+0, 1.0104E+0, 1.0103E+0,
     * 1.0101E+0, 1.0099E+0, 1.0098E+0, 1.0098E+0, 1.0090E+0, 1.0085E+0,
     * 1.0075E+0, 1.0047E+0, 1.0019E+0, 1.0006E+0, 1.0004E+0, 1.0002E+0,
     * 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.1268E+0, 1.0859E+0, 1.0655E+0,
     * 1.0505E+0, 1.0417E+0, 1.0360E+0, 1.0303E+0, 1.0283E+0, 1.0266E+0,
     * 1.0255E+0, 1.0248E+0, 1.0243E+0, 1.0238E+0, 1.0235E+0, 1.0232E+0,
     * 1.0232E+0, 1.0212E+0, 1.0201E+0, 1.0176E+0, 1.0110E+0, 1.0044E+0,
     * 1.0014E+0, 1.0008E+0, 1.0004E+0, 1.0003E+0, 1.0003E+0, 1.0002E+0,
     * 1.3511E+0, 1.2380E+0, 1.1802E+0, 1.1364E+0, 1.1097E+0, 1.0928E+0,
     * 1.0767E+0, 1.0713E+0, 1.0668E+0, 1.0637E+0, 1.0617E+0/
      DATA X3501/ 1.0605E+0, 1.0593E+0, 1.0584E+0, 1.0576E+0, 1.0575E+0,
     * 1.0522E+0, 1.0493E+0, 1.0429E+0, 1.0261E+0, 1.0102E+0, 1.0032E+0,
     * 1.0019E+0, 1.0010E+0, 1.0008E+0, 1.0006E+0, 1.0005E+0, 1.6298E+0,
     * 1.4312E+0, 1.3274E+0, 1.2466E+0, 1.1955E+0, 1.1616E+0, 1.1307E+0,
     * 1.1205E+0, 1.1122E+0, 1.1066E+0, 1.1030E+0, 1.1009E+0, 1.0986E+0,
     * 1.0970E+0, 1.0956E+0, 1.0954E+0, 1.0861E+0, 1.0809E+0, 1.0698E+0,
     * 1.0415E+0, 1.0158E+0, 1.0048E+0, 1.0029E+0, 1.0015E+0, 1.0012E+0,
     * 1.0010E+0, 1.0009E+0, 2.3331E+0, 1.9041E+0, 1.6784E+0, 1.5010E+0,
     * 1.3874E+0, 1.3111E+0, 1.2397E+0, 1.2177E+0, 1.2002E+0, 1.1884E+0,
     * 1.1811E+0, 1.1770E+0, 1.1723E+0, 1.1691E+0, 1.1662E+0, 1.1659E+0,
     * 1.1477E+0, 1.1378E+0, 1.1168E+0, 1.0666E+0, 1.0242E+0, 1.0072E+0,
     * 1.0044E+0, 1.0024E+0, 1.0019E+0, 1.0016E+0, 1.0015E+0, 5.2261E+0,
     * 3.7648E+0, 2.9996E+0, 2.4020E+0, 2.0222E+0, 1.7694E+0, 1.5366E+0,
     * 1.4663E+0, 1.4146E+0, 1.3817E+0, 1.3620E+0, 1.3510E+0, 1.3388E+0,
     * 1.3305E+0, 1.3233E+0, 1.3225E+0, 1.2780E+0, 1.2548E+0, 1.2085E+0,
     * 1.1094E+0, 1.0370E+0, 1.0108E+0, 1.0066E+0, 1.0038E+0, 1.0031E+0,
     * 1.0027E+0, 1.0025E+0, 8.0173E+0, 5.5610E+0, 4.2726E+0/
      DATA X3601/ 3.2628E+0, 2.6189E+0, 2.1885E+0, 1.7891E+0, 1.6671E+0,
     * 1.5767E+0, 1.5217E+0, 1.4898E+0, 1.4721E+0, 1.4528E+0, 1.4398E+0,
     * 1.4287E+0, 1.4275E+0, 1.3601E+0, 1.3264E+0, 1.2610E+0, 1.1305E+0,
     * 1.0427E+0, 1.0124E+0, 1.0077E+0, 1.0046E+0, 1.0038E+0, 1.0033E+0,
     * 1.0031E+0, 1.6787E+1, 1.1078E+1, 8.0918E+0, 5.7605E+0, 4.2803E+0,
     * 3.2964E+0, 2.3923E+0, 2.1199E+0, 1.9204E+0, 1.8009E+0, 1.7356E+0,
     * 1.7007E+0, 1.6636E+0, 1.6391E+0, 1.6183E+0, 1.6161E+0, 1.4974E+0,
     * 1.4415E+0, 1.3397E+0, 1.1582E+0, 1.0498E+0, 1.0146E+0, 1.0092E+0,
     * 1.0056E+0, 1.0047E+0, 1.0042E+0, 1.0039E+0, 3.3871E+1, 2.1720E+1,
     * 1.5381E+1, 1.0446E+1, 7.3267E+0, 5.2620E+0, 3.3802E+0, 2.8197E+0,
     * 2.4137E+0, 2.1739E+0, 2.0448E+0, 1.9792E+0, 1.9115E+0, 1.8682E+0,
     * 1.8323E+0, 1.8284E+0, 1.6356E+0, 1.5514E+0, 1.4077E+0, 1.1784E+0,
     * 1.0547E+0, 1.0163E+0, 1.0105E+0, 1.0066E+0, 1.0056E+0, 1.0050E+0,
     * 1.0047E+0, 8.9488E+1, 5.5977E+1, 3.8561E+1, 2.5061E+1, 1.6583E+1,
     * 1.1019E+1, 6.0212E+0, 4.5626E+0, 3.5273E+0, 2.9322E+0, 2.6219E+0,
     * 2.4690E+0, 2.3219E+0, 2.2329E+0, 2.1620E+0, 2.1546E+0, 1.8136E+0,
     * 1.6823E+0, 1.4783E+0, 1.1954E+0, 1.0591E+0, 1.0182E+0/
      DATA X3701/ 1.0121E+0, 1.0079E+0, 1.0068E+0, 1.0061E+0, 1.0057E+0,
     * 1.4680E+2, 9.1379E+1, 6.2581E+1, 4.0260E+1, 2.6240E+1, 1.7038E+1,
     * 8.7705E+0, 6.3573E+0, 4.6435E+0, 3.6582E+0, 3.1441E+0, 2.8906E+0,
     * 2.6467E+0, 2.5069E+0, 2.3992E+0, 2.3882E+0, 1.9154E+0, 1.7501E+0,
     * 1.5090E+0, 1.2011E+0, 1.0610E+0, 1.0193E+0, 1.0130E+0, 1.0086E+0,
     * 1.0075E+0, 1.0068E+0, 1.0064E+0, 4.2990E+2, 2.6491E+2, 1.7935E+2,
     * 1.1324E+2, 7.1864E+1, 4.4839E+1, 2.0766E+1, 1.3829E+1, 8.9658E+0,
     * 6.2202E+0, 4.8192E+0, 4.1435E+0, 3.5114E+0, 3.1630E+0, 2.9228E+0,
     * 2.8994E+0, 2.0649E+0, 1.8333E+0, 1.5349E+0, 1.2035E+0, 1.0631E+0,
     * 1.0213E+0, 1.0148E+0, 1.0102E+0, 1.0090E+0, 1.0082E+0, 1.0077E+0,
     * 1.1663E+3, 7.1488E+2, 4.8119E+2, 3.0088E+2, 1.8832E+2, 1.1511E+2,
     * 5.0246E+1, 3.1734E+1, 1.8878E+1, 1.1721E+1, 8.1316E+0, 6.4321E+0,
     * 4.8793E+0, 4.0540E+0, 3.5135E+0, 3.4653E+0, 2.1222E+0, 1.8428E+0,
     * 1.5213E+0, 1.1981E+0, 1.0642E+0, 1.0230E+0, 1.0165E+0, 1.0118E+0,
     * 1.0104E+0, 1.0095E+0, 1.0090E+0, 2.8342E+3, 1.7538E+3, 1.1914E+3,
     * 7.5464E+2, 4.7952E+2, 2.9833E+2, 1.3451E+2, 8.6271E+1, 5.1707E+1,
     * 3.1594E+1, 2.0951E+1, 1.5627E+1, 1.0422E+1, 7.3689E+0/
      DATA X3801/ 5.0937E+0, 4.8686E+0, 1.9657E+0, 1.6946E+0, 1.4287E+0,
     * 1.1782E+0, 1.0649E+0, 1.0265E+0, 1.0200E+0, 1.0149E+0, 1.0134E+0,
     * 1.0123E+0, 1.0116E+0, 3.5666E+3, 2.2054E+3, 1.4970E+3, 9.4708E+2,
     * 6.0085E+2, 3.7298E+2, 1.6718E+2, 1.0668E+2, 6.3399E+1, 3.8266E+1,
     * 2.4999E+1, 1.8379E+1, 1.1926E+1, 8.1544E+0, 5.3563E+0, 5.0803E+0,
     * 1.9317E+0, 1.6701E+0, 1.4162E+0, 1.1758E+0, 1.0650E+0, 1.0269E+0,
     * 1.0204E+0, 1.0153E+0, 1.0137E+0, 1.0126E+0, 1.0119E+0, 5.3664E+3,
     * 3.3134E+3, 2.2457E+3, 1.4175E+3, 8.9656E+2, 5.5414E+2, 2.4559E+2,
     * 1.5517E+2, 9.0696E+1, 5.3420E+1, 3.3845E+1, 2.4125E+1, 1.4707E+1,
     * 9.2455E+0, 5.2325E+0, 4.8394E+0, 1.6263E+0, 1.4424E+0, 1.2815E+0,
     * 1.1484E+0, 1.0818E+0, 1.0519E+0, 1.0451E+0, 1.0382E+0, 1.0353E+0,
     * 1.0330E+0, 1.0315E+0, 8.5194E+2, 5.2231E+2, 3.5175E+2, 2.2009E+2,
     * 1.3792E+2, 8.4438E+1, 3.7043E+1, 2.3516E+1, 1.4109E+1, 8.8677E+0,
     * 6.2368E+0, 4.9889E+0, 3.8476E+0, 3.2393E+0, 2.8395E+0, 2.8037E+0,
     * 1.8071E+0, 1.6049E+0, 1.3820E+0, 1.1802E+0, 1.0999E+0, 1.0689E+0,
     * 1.0616E+0, 1.0535E+0, 1.0498E+0, 1.0468E+0, 1.0449E+0, 1.8958E+2,
     * 1.1699E+2, 7.9387E+1, 5.0351E+1, 3.2204E+1, 2.0372E+1/
      DATA X3901/ 9.8622E+0, 6.8473E+0, 4.7431E+0, 3.5628E+0, 2.9654E+0,
     * 2.6797E+0, 2.4154E+0, 2.2721E+0, 2.1657E+0, 2.1550E+0, 1.7280E+0,
     * 1.5934E+0, 1.4113E+0, 1.2053E+0, 1.1173E+0, 1.0853E+0, 1.0777E+0,
     * 1.0685E+0, 1.0641E+0, 1.0606E+0, 1.0582E+0, 5.2402E+1, 3.2832E+1,
     * 2.2688E+1, 1.4856E+1, 9.9578E+0, 6.7620E+0, 3.9192E+0, 3.1023E+0,
     * 2.5311E+0, 2.2098E+0, 2.0466E+0, 1.9682E+0, 1.8906E+0, 1.8424E+0,
     * 1.8034E+0, 1.7993E+0, 1.6038E+0, 1.5253E+0, 1.4003E+0, 1.2233E+0,
     * 1.1356E+0, 1.1041E+0, 1.0964E+0, 1.0862E+0, 1.0811E+0, 1.0769E+0,
     * 1.0740E+0, 8.1978E+0, 5.5900E+0, 4.2416E+0, 3.2032E+0, 2.5562E+0,
     * 2.1363E+0, 1.7662E+0, 1.6612E+0, 1.5889E+0, 1.5448E+0, 1.5192E+0,
     * 1.5051E+0, 1.4897E+0, 1.4793E+0, 1.4703E+0, 1.4693E+0, 1.4156E+0,
     * 1.3886E+0, 1.3368E+0, 1.2356E+0, 1.1709E+0, 1.1475E+0, 1.1409E+0,
     * 1.1301E+0, 1.1236E+0, 1.1180E+0, 1.1142E+0, 3.8317E+0, 2.8834E+0,
     * 2.3927E+0, 2.0145E+0, 1.7786E+0, 1.6253E+0, 1.4898E+0, 1.4512E+0,
     * 1.4218E+0, 1.4025E+0, 1.3908E+0, 1.3842E+0, 1.3768E+0, 1.3718E+0,
     * 1.3674E+0, 1.3669E+0, 1.3393E+0, 1.3248E+0, 1.2953E+0, 1.2321E+0,
     * 1.1908E+0, 1.1784E+0, 1.1741E+0, 1.1641E+0, 1.1571E+0/
      DATA X4001/ 1.1507E+0, 1.1463E+0, 2.7664E+0, 2.1916E+0, 1.8983E+0,
     * 1.6760E+0, 1.5406E+0, 1.4553E+0, 1.3844E+0, 1.3626E+0, 1.3454E+0,
     * 1.3340E+0, 1.3269E+0, 1.3229E+0, 1.3184E+0, 1.3153E+0, 1.3126E+0,
     * 1.3123E+0, 1.2951E+0, 1.2859E+0, 1.2670E+0, 1.2263E+0, 1.2042E+0,
     * 1.2030E+0, 1.2013E+0, 1.1929E+0, 1.1857E+0, 1.1789E+0, 1.1742E+0,
     * 2.5148E+0, 1.9964E+0, 1.7403E+0, 1.5542E+0, 1.4477E+0, 1.3867E+0,
     * 1.3401E+0, 1.3237E+0, 1.3034E+0, 1.2797E+0, 1.2689E+0, 1.2420E+0,
     * 1.2242E+0, 1.2764E+0, 1.2818E+0, 1.2705E+0, 1.2688E+0, 1.2622E+0,
     * 1.2488E+0, 1.2214E+0, 1.2127E+0, 1.2205E+0, 1.2212E+0, 1.2145E+0,
     * 1.2074E+0, 1.2004E+0, 1.1955E+0, 1.7154E+0, 1.5432E+0, 1.4490E+0,
     * 1.3717E+0, 1.3194E+0, 1.2879E+0, 1.2649E+0, 1.2563E+0, 1.2435E+0,
     * 1.2266E+0, 1.2192E+0, 1.1977E+0, 1.1838E+0, 1.2281E+0, 1.2334E+0,
     * 1.2239E+0, 1.2270E+0, 1.2240E+0, 1.2183E+0, 1.2110E+0, 1.2266E+0,
     * 1.2535E+0, 1.2598E+0, 1.2576E+0, 1.2511E+0, 1.2441E+0, 1.2391E+0,
     * 1.4885E+0, 1.4063E+0, 1.3536E+0, 1.3037E+0, 1.2677E+0, 1.2459E+0,
     * 1.2312E+0, 1.2255E+0, 1.2157E+0, 1.2018E+0, 1.1958E+0, 1.1769E+0,
     * 1.1649E+0, 1.2051E+0, 1.2101E+0, 1.2016E+0, 1.2064E+0/
      DATA X4101/ 1.2049E+0, 1.2025E+0, 1.2046E+0, 1.2334E+0, 1.2722E+0,
     * 1.2822E+0, 1.2835E+0, 1.2778E+0, 1.2710E+0, 1.2661E+0, 1.2867E+0,
     * 1.2550E+0, 1.2353E+0, 1.2132E+0, 1.1957E+0, 1.1856E+0, 1.1808E+0,
     * 1.1788E+0, 1.1732E+0, 1.1635E+0, 1.1597E+0, 1.1448E+0, 1.1355E+0,
     * 1.1688E+0, 1.1734E+0, 1.1664E+0, 1.1733E+0, 1.1739E+0, 1.1760E+0,
     * 1.1922E+0, 1.2430E+0, 1.3046E+0, 1.3227E+0, 1.3320E+0, 1.3283E+0,
     * 1.3224E+0, 1.3180E+0, 1.2192E+0, 1.2021E+0, 1.1912E+0, 1.1777E+0,
     * 1.1664E+0, 1.1602E+0, 1.1590E+0, 1.1583E+0, 1.1544E+0, 1.1464E+0,
     * 1.1434E+0, 1.1303E+0, 1.1222E+0, 1.1524E+0, 1.1566E+0, 1.1504E+0,
     * 1.1580E+0, 1.1593E+0, 1.1633E+0, 1.1853E+0, 1.2463E+0, 1.3198E+0,
     * 1.3424E+0, 1.3566E+0, 1.3544E+0, 1.3491E+0, 1.3453E+0, 1.1904E+0,
     * 1.1790E+0, 1.1715E+0, 1.1615E+0, 1.1527E+0, 1.1483E+0, 1.1485E+0,
     * 1.1485E+0, 1.1452E+0, 1.1381E+0, 1.1354E+0, 1.1232E+0, 1.1157E+0,
     * 1.1443E+0, 1.1484E+0, 1.1425E+0, 1.1504E+0, 1.1520E+0, 1.1568E+0,
     * 1.1815E+0, 1.2475E+0, 1.3270E+0, 1.3520E+0, 1.3690E+0, 1.3675E+0,
     * 1.3627E+0, 1.3591E+0, 9.9855E-1, 9.9914E-1, 9.9937E-1, 9.9953E-1,
     * 9.9962E-1, 9.9968E-1, 9.9974E-1, 9.9976E-1, 9.9978E-1/
      DATA X4201/ 9.9979E-1, 9.9980E-1, 9.9981E-1, 9.9981E-1, 9.9982E-1,
     * 9.9982E-1, 9.9982E-1, 9.9984E-1, 9.9985E-1, 9.9988E-1, 9.9995E-1,
     * 1.0000E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 9.9475E-1, 9.9689E-1, 9.9772E-1, 9.9828E-1, 9.9862E-1,
     * 9.9884E-1, 9.9907E-1, 9.9914E-1, 9.9921E-1, 9.9925E-1, 9.9928E-1,
     * 9.9930E-1, 9.9932E-1, 9.9933E-1, 9.9935E-1, 9.9935E-1, 9.9942E-1,
     * 9.9947E-1, 9.9957E-1, 9.9984E-1, 1.0001E+0, 1.0002E+0, 1.0003E+0,
     * 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0, 9.6689E-1, 9.7913E-1,
     * 9.8483E-1, 9.8864E-1, 9.9088E-1, 9.9238E-1, 9.9386E-1, 9.9438E-1,
     * 9.9481E-1, 9.9511E-1, 9.9530E-1, 9.9541E-1, 9.9554E-1, 9.9563E-1,
     * 9.9571E-1, 9.9572E-1, 9.9623E-1, 9.9653E-1, 9.9718E-1, 9.9893E-1,
     * 1.0007E+0, 1.0016E+0, 1.0017E+0, 1.0019E+0, 1.0020E+0, 1.0020E+0,
     * 1.0020E+0, 9.2542E-1, 9.5090E-1, 9.6361E-1, 9.7297E-1, 9.7843E-1,
     * 9.8203E-1, 9.8559E-1, 9.8682E-1, 9.8784E-1, 9.8856E-1, 9.8901E-1,
     * 9.8928E-1, 9.8958E-1, 9.8979E-1, 9.8997E-1, 9.8999E-1, 9.9122E-1,
     * 9.9192E-1, 9.9345E-1, 9.9755E-1, 1.0016E+0, 1.0036E+0, 1.0040E+0,
     * 1.0044E+0, 1.0045E+0, 1.0046E+0, 1.0046E+0, 8.1880E-1/
      DATA X4301/ 8.7786E-1, 9.0833E-1, 9.3175E-1, 9.4630E-1, 9.5570E-1,
     * 9.6484E-1, 9.6796E-1, 9.7055E-1, 9.7236E-1, 9.7350E-1, 9.7416E-1,
     * 9.7491E-1, 9.7543E-1, 9.7589E-1, 9.7595E-1, 9.7900E-1, 9.8072E-1,
     * 9.8449E-1, 9.9440E-1, 1.0039E+0, 1.0084E+0, 1.0093E+0, 1.0101E+0,
     * 1.0103E+0, 1.0105E+0, 1.0106E+0, 7.0978E-1, 8.0016E-1, 8.4794E-1,
     * 8.8576E-1, 9.1019E-1, 9.2678E-1, 9.4257E-1, 9.4790E-1, 9.5229E-1,
     * 9.5533E-1, 9.5725E-1, 9.5836E-1, 9.5962E-1, 9.6049E-1, 9.6126E-1,
     * 9.6135E-1, 9.6642E-1, 9.6927E-1, 9.7546E-1, 9.9146E-1, 1.0064E+0,
     * 1.0131E+0, 1.0144E+0, 1.0155E+0, 1.0159E+0, 1.0161E+0, 1.0163E+0,
     * 4.9219E-1, 6.4822E-1, 7.3164E-1, 7.9852E-1, 8.4242E-1, 8.7281E-1,
     * 9.0262E-1, 9.1240E-1, 9.2035E-1, 9.2581E-1, 9.2922E-1, 9.3119E-1,
     * 9.3341E-1, 9.3496E-1, 9.3632E-1, 9.3647E-1, 9.4532E-1, 9.5024E-1,
     * 9.6080E-1, 9.8721E-1, 1.0106E+0, 1.0206E+0, 1.0224E+0, 1.0240E+0,
     * 1.0245E+0, 1.0248E+0, 1.0250E+0,-9.9823E-2, 2.4916E-1, 4.3587E-1,
     * 5.8542E-1, 6.8348E-1, 7.5127E-1, 8.1763E-1, 8.3934E-1, 8.5641E-1,
     * 8.6781E-1, 8.7484E-1, 8.7885E-1, 8.8335E-1, 8.8645E-1, 8.8916E-1,
     * 8.8946E-1, 9.0681E-1, 9.1620E-1, 9.3584E-1, 9.8180E-1/
      DATA X4401/ 1.0188E+0, 1.0331E+0, 1.0357E+0, 1.0378E+0, 1.0384E+0,
     * 1.0388E+0, 1.0391E+0,-5.2344E-1,-3.5721E-2, 2.2546E-1, 4.3500E-1,
     * 5.7266E-1, 6.6818E-1, 7.6205E-1, 7.9291E-1, 8.1728E-1, 8.3323E-1,
     * 8.4293E-1, 8.4843E-1, 8.5457E-1, 8.5877E-1, 8.6244E-1, 8.6284E-1,
     * 8.8597E-1, 8.9828E-1, 9.2353E-1, 9.8025E-1, 1.0235E+0, 1.0396E+0,
     * 1.0424E+0, 1.0447E+0, 1.0454E+0, 1.0459E+0, 1.0462E+0,-1.5220E+0,
     *-6.8726E-1,-2.4243E-1, 1.1279E-1, 3.4486E-1, 5.0490E-1, 6.6073E-1,
     * 7.1137E-1, 7.5098E-1, 7.7665E-1, 7.9185E-1, 8.0033E-1, 8.0968E-1,
     * 8.1602E-1, 8.2151E-1, 8.2211E-1, 8.5586E-1, 8.7323E-1, 9.0772E-1,
     * 9.8005E-1, 1.0308E+0, 1.0488E+0, 1.0520E+0, 1.0545E+0, 1.0553E+0,
     * 1.0559E+0, 1.0562E+0,-2.9885E+0,-1.6301E+0,-9.0845E-1,-3.3398E-1,
     * 3.8849E-2, 2.9364E-1, 5.3922E-1, 6.1797E-1, 6.7885E-1, 7.1783E-1,
     * 7.4062E-1, 7.5307E-1, 7.6658E-1, 7.7563E-1, 7.8339E-1, 7.8423E-1,
     * 8.3037E-1, 8.5321E-1, 8.9690E-1, 9.8225E-1, 1.0379E+0, 1.0570E+0,
     * 1.0603E+0, 1.0631E+0, 1.0640E+0, 1.0646E+0, 1.0650E+0,-6.4565E+0,
     *-3.8147E+0,-2.4209E+0,-1.3215E+0,-6.1417E-1,-1.3596E-1, 3.1526E-1,
     * 4.5642E-1, 5.6332E-1, 6.3005E-1, 6.6816E-1, 6.8857E-1/
      DATA X4501/ 7.1005E-1, 7.2408E-1, 7.3587E-1, 7.3714E-1, 8.0349E-1,
     * 8.3425E-1, 8.8981E-1, 9.8824E-1, 1.0470E+0, 1.0666E+0, 1.0701E+0,
     * 1.0732E+0, 1.0742E+0, 1.0749E+0, 1.0754E+0,-9.5042E+0,-5.7334E+0,
     *-3.7478E+0,-2.1838E+0,-1.1804E+0,-5.0525E-1, 1.2894E-1, 3.2574E-1,
     * 4.7379E-1, 5.6547E-1, 6.1739E-1, 6.4501E-1, 6.7388E-1, 6.9230E-1,
     * 7.0754E-1, 7.0916E-1, 7.9102E-1, 8.2706E-1, 8.8955E-1, 9.9348E-1,
     * 1.0526E+0, 1.0722E+0, 1.0758E+0, 1.0790E+0, 1.0801E+0, 1.0809E+0,
     * 1.0814E+0,-2.1271E+1,-1.3034E+1,-8.7263E+0,-5.3552E+0,-3.2124E+0,
     *-1.7847E+0,-4.6814E-1,-6.9611E-2, 2.2369E-1, 4.0046E-1, 4.9770E-1,
     * 5.4816E-1, 5.9953E-1, 6.3129E-1, 6.5635E-1, 6.5896E-1, 7.7820E-1,
     * 8.2444E-1, 8.9782E-1, 1.0058E+0, 1.0628E+0, 1.0820E+0, 1.0857E+0,
     * 1.0892E+0, 1.0904E+0, 1.0913E+0, 1.0920E+0,-4.6145E+1,-2.8359E+1,
     *-1.9090E+1,-1.1879E+1,-7.3281E+0,-4.3203E+0,-1.5942E+0,-7.8320E-1,
     *-1.9824E-1, 1.4529E-1, 3.2925E-1, 4.2223E-1, 5.1425E-1, 5.6910E-1,
     * 6.1075E-1, 6.1492E-1, 7.8137E-1, 8.3614E-1, 9.1512E-1, 1.0192E+0,
     * 1.0718E+0, 1.0903E+0, 1.0941E+0, 1.0979E+0, 1.0993E+0, 1.1003E+0,
     * 1.1010E+0,-1.1511E+2,-7.1386E+1,-4.8557E+1,-3.0753E+1/
      DATA X4601/-1.9475E+1,-1.1996E+1,-5.1526E+0,-3.1024E+0,-1.6094E+0,
     *-7.2131E-1,-2.3956E-1, 7.1173E-3, 2.5475E-1, 4.0514E-1, 5.2163E-1,
     * 5.3347E-1, 8.3228E-1, 8.9252E-1, 9.6402E-1, 1.0445E+0, 1.0866E+0,
     * 1.1037E+0, 1.1077E+0, 1.1120E+0, 1.1137E+0, 1.1149E+0, 1.1157E+0,
     *-1.3776E+2,-8.5385E+1,-5.8049E+1,-3.6749E+1,-2.3270E+1,-1.4342E+1,
     *-6.1915E+0,-3.7568E+0,-1.9891E+0,-9.4151E-1,-3.7567E-1,-8.7081E-2,
     * 2.0140E-1, 3.7563E-1, 5.0979E-1, 5.2337E-1, 8.4120E-1, 9.0070E-1,
     * 9.6990E-1, 1.0471E+0, 1.0881E+0, 1.1050E+0, 1.1090E+0, 1.1134E+0,
     * 1.1151E+0, 1.1163E+0, 1.1172E+0,-2.2105E+2,-1.3681E+2,-9.2905E+1,
     *-5.8743E+1,-3.7170E+1,-2.2919E+1,-9.9644E+0,-6.1197E+0,-3.3448E+0,
     *-1.7136E+0,-8.4032E-1,-3.9871E-1, 3.8552E-2, 2.9944E-1, 4.9759E-1,
     * 5.1747E-1, 8.9800E-1, 9.5628E-1, 1.0198E+0, 1.0858E+0, 1.1211E+0,
     * 1.1397E+0, 1.1457E+0, 1.1530E+0, 1.1560E+0, 1.1582E+0, 1.1598E+0,
     *-4.7172E+1,-2.9004E+1,-1.9523E+1,-1.2141E+1,-7.4844E+0,-4.4023E+0,
     *-1.6104E+0,-7.7881E-1,-1.7871E-1, 1.7424E-1, 3.6324E-1, 4.5888E-1,
     * 5.5366E-1, 6.1024E-1, 6.5327E-1, 6.5758E-1, 8.3008E-1, 8.8659E-1,
     * 9.6705E-1, 1.0684E+0, 1.1176E+0, 1.1402E+0, 1.1472E+0/
      DATA X4701/ 1.1559E+0, 1.1595E+0, 1.1621E+0, 1.1640E+0,-1.4879E+1,
     *-9.0327E+0,-5.9678E+0,-3.5676E+0,-2.0393E+0,-1.0193E+0,-7.5729E-2,
     * 2.1135E-1, 4.2346E-1, 5.5194E-1, 6.2303E-1, 6.6010E-1, 6.9805E-1,
     * 7.2166E-1, 7.4088E-1, 7.4290E-1, 8.4122E-1, 8.8211E-1, 9.4967E-1,
     * 1.0523E+0, 1.1074E+0, 1.1323E+0, 1.1401E+0, 1.1497E+0, 1.1537E+0,
     * 1.1566E+0, 1.1587E+0,-5.5210E+0,-3.1809E+0,-1.9490E+0,-9.7852E-1,
     *-3.5689E-1, 6.1447E-2, 4.5410E-1, 5.7588E-1, 6.6739E-1, 7.2403E-1,
     * 7.5607E-1, 7.7310E-1, 7.9122E-1, 8.0316E-1, 8.1325E-1, 8.1434E-1,
     * 8.7204E-1, 8.9919E-1, 9.4864E-1, 1.0362E+0, 1.0899E+0, 1.1157E+0,
     * 1.1239E+0, 1.1342E+0, 1.1384E+0, 1.1416E+0, 1.1437E+0,-5.7404E-1,
     *-3.4195E-2, 2.5041E-1, 4.7470E-1, 6.1871E-1, 7.1586E-1, 8.0730E-1,
     * 8.3577E-1, 8.5725E-1, 8.7117E-1, 8.7957E-1, 8.8431E-1, 8.8958E-1,
     * 8.9318E-1, 8.9631E-1, 8.9665E-1, 9.1621E-1, 9.2648E-1, 9.4722E-1,
     * 9.9224E-1, 1.0278E+0, 1.0492E+0, 1.0568E+0, 1.0668E+0, 1.0710E+0,
     * 1.0741E+0, 1.0763E+0, 3.1447E-1, 5.2898E-1, 6.4159E-1, 7.2995E-1,
     * 7.8638E-1, 8.2420E-1, 8.5941E-1, 8.7022E-1, 8.7874E-1, 8.8443E-1,
     * 8.8794E-1, 8.8994E-1, 8.9219E-1, 8.9373E-1, 8.9509E-1/
      DATA X4801/ 8.9524E-1, 9.0387E-1, 9.0853E-1, 9.1823E-1, 9.4079E-1,
     * 9.6103E-1, 9.7603E-1, 9.8214E-1, 9.9054E-1, 9.9419E-1, 9.9694E-1,
     * 9.9890E-1, 5.8183E-1, 6.8970E-1, 7.4521E-1, 7.8778E-1, 8.1412E-1,
     * 8.3107E-1, 8.4577E-1, 8.5039E-1, 8.5407E-1, 8.5655E-1, 8.5808E-1,
     * 8.5896E-1, 8.5994E-1, 8.6062E-1, 8.6122E-1, 8.6128E-1, 8.6509E-1,
     * 8.6715E-1, 8.7146E-1, 8.8153E-1, 8.9109E-1, 9.0021E-1, 9.0462E-1,
     * 9.1110E-1, 9.1404E-1, 9.1629E-1, 9.1790E-1, 6.5941E-1, 7.2681E-1,
     * 7.6002E-1, 7.8409E-1, 7.9777E-1, 8.0554E-1, 8.1219E-1, 8.1425E-1,
     * 8.1586E-1, 8.1694E-1, 8.1760E-1, 8.1797E-1, 8.1839E-1, 8.1868E-1,
     * 8.1893E-1, 8.1895E-1, 8.2053E-1, 8.2137E-1, 8.2306E-1, 8.2659E-1,
     * 8.2967E-1, 8.3452E-1, 8.3754E-1, 8.4239E-1, 8.4468E-1, 8.4648E-1,
     * 8.4778E-1, 6.8296E-1, 6.9325E-1, 6.9714E-1, 6.9882E-1, 6.9873E-1,
     * 6.9812E-1, 6.9701E-1, 6.9649E-1, 6.9599E-1, 6.9561E-1, 6.9535E-1,
     * 6.9520E-1, 6.9502E-1, 6.9489E-1, 6.9477E-1, 6.9476E-1, 6.9392E-1,
     * 6.9341E-1, 6.9214E-1, 6.8778E-1, 6.8178E-1, 6.7930E-1, 6.7963E-1,
     * 6.8114E-1, 6.8208E-1, 6.8289E-1, 6.8351E-1, 6.1933E-1, 6.1494E-1,
     * 6.1139E-1, 6.0748E-1, 6.0434E-1, 6.0179E-1, 5.9882E-1/
      DATA X4901/ 5.9767E-1, 5.9665E-1, 5.9590E-1, 5.9541E-1, 5.9512E-1,
     * 5.9479E-1, 5.9455E-1, 5.9434E-1, 5.9432E-1, 5.9286E-1, 5.9199E-1,
     * 5.8994E-1, 5.8332E-1, 5.7425E-1, 5.6863E-1, 5.6765E-1, 5.6739E-1,
     * 5.6760E-1, 5.6785E-1, 5.6808E-1, 3.9015E-1, 3.7626E-1, 3.6926E-1,
     * 3.6355E-1, 3.5959E-1, 3.5664E-1, 3.5336E-1, 3.5212E-1, 3.5105E-1,
     * 3.5027E-1, 3.4976E-1, 3.4947E-1, 3.4912E-1, 3.4888E-1, 3.4866E-1,
     * 3.4864E-1, 3.4715E-1, 3.4627E-1, 3.4421E-1, 3.3762E-1, 3.2818E-1,
     * 3.2084E-1, 3.1872E-1, 3.1665E-1, 3.1600E-1, 3.1560E-1, 3.1535E-1,
     * 2.1709E-1, 2.0753E-1, 2.0282E-1, 1.9903E-1, 1.9644E-1, 1.9451E-1,
     * 1.9237E-1, 1.9157E-1, 1.9087E-1, 1.9037E-1, 1.9004E-1, 1.8985E-1,
     * 1.8962E-1, 1.8947E-1, 1.8933E-1, 1.8931E-1, 1.8835E-1, 1.8777E-1,
     * 1.8644E-1, 1.8214E-1, 1.7586E-1, 1.7067E-1, 1.6905E-1, 1.6734E-1,
     * 1.6675E-1, 1.6636E-1, 1.6610E-1, 1.1453E-1, 1.0906E-1, 1.0638E-1,
     * 1.0424E-1, 1.0277E-1, 1.0168E-1, 1.0047E-1, 1.0002E-1, 9.9626E-2,
     * 9.9341E-2, 9.9155E-2, 9.9046E-2, 9.8920E-2, 9.8831E-2, 9.8751E-2,
     * 9.8743E-2, 9.8199E-2, 9.7876E-2, 9.7119E-2, 9.4687E-2, 9.1093E-2,
     * 8.8062E-2, 8.7089E-2, 8.6032E-2, 8.5658E-2, 8.5406E-2/
      DATA X5001/ 8.5240E-2, 4.6498E-5, 5.5965E-5, 6.2098E-5, 6.7928E-5,
     * 7.2497E-5, 7.6254E-5, 8.0813E-5, 8.2653E-5, 8.4315E-5, 8.5557E-5,
     * 8.6381E-5, 8.6875E-5, 8.7449E-5, 8.7859E-5, 8.8227E-5, 8.8268E-5,
     * 9.0873E-5, 9.2487E-5, 9.6479E-5, 1.1180E-4, 1.4582E-4, 2.0299E-4,
     * 2.3667E-4, 3.0176E-4, 3.4081E-4, 3.7730E-4, 4.0839E-4, 4.6534E-5,
     * 5.6001E-5, 6.2133E-5, 6.7964E-5, 7.2533E-5, 7.6290E-5, 8.0849E-5,
     * 8.2688E-5, 8.4351E-5, 8.5592E-5, 8.6417E-5, 8.6910E-5, 8.7485E-5,
     * 8.7895E-5, 8.8263E-5, 8.8304E-5, 9.0908E-5, 9.2523E-5, 9.6515E-5,
     * 1.1183E-4, 1.4585E-4, 2.0302E-4, 2.3671E-4, 3.0180E-4, 3.4084E-4,
     * 3.7734E-4, 4.0843E-4, 4.6739E-5, 5.6282E-5, 6.2415E-5, 6.8245E-5,
     * 7.2814E-5, 7.6571E-5, 8.1130E-5, 8.2970E-5, 8.4633E-5, 8.5874E-5,
     * 8.6698E-5, 8.7192E-5, 8.7766E-5, 8.8176E-5, 8.8544E-5, 8.8585E-5,
     * 9.1190E-5, 9.2804E-5, 9.6796E-5, 1.1211E-4, 1.4613E-4, 2.0330E-4,
     * 2.3699E-4, 3.0208E-4, 3.4112E-4, 3.7762E-4, 4.0871E-4, 4.7099E-5,
     * 5.6727E-5, 6.2883E-5, 6.8713E-5, 7.3282E-5, 7.7039E-5, 8.1598E-5,
     * 8.3438E-5, 8.5101E-5, 8.6342E-5, 8.7166E-5, 8.7660E-5, 8.8235E-5,
     * 8.8644E-5, 8.9013E-5, 8.9054E-5, 9.1658E-5, 9.3272E-5/
      DATA X5101/ 9.7265E-5, 1.1258E-4, 1.4660E-4, 2.0377E-4, 2.3746E-4,
     * 3.0255E-4, 3.4159E-4, 3.7809E-4, 4.0918E-4, 4.8234E-5, 5.7943E-5,
     * 6.4131E-5, 6.9975E-5, 7.4544E-5, 7.8301E-5, 8.2860E-5, 8.4700E-5,
     * 8.6362E-5, 8.7604E-5, 8.8428E-5, 8.8922E-5, 8.9496E-5, 8.9906E-5,
     * 9.0274E-5, 9.0315E-5, 9.2920E-5, 9.4534E-5, 9.8526E-5, 1.1384E-4,
     * 1.4786E-4, 2.0503E-4, 2.3872E-4, 3.0381E-4, 3.4285E-4, 3.7935E-4,
     * 4.1044E-4, 4.9552E-5, 5.9336E-5, 6.5554E-5, 7.1418E-5, 7.5993E-5,
     * 7.9750E-5, 8.4309E-5, 8.6149E-5, 8.7812E-5, 8.9053E-5, 8.9877E-5,
     * 9.0371E-5, 9.0946E-5, 9.1356E-5, 9.1724E-5, 9.1765E-5, 9.4369E-5,
     * 9.5984E-5, 9.9976E-5, 1.1529E-4, 1.4931E-4, 2.0648E-4, 2.4017E-4,
     * 3.0526E-4, 3.4430E-4, 3.8080E-4, 4.1189E-4, 5.2143E-5, 6.1991E-5,
     * 6.8235E-5, 7.4117E-5, 7.8701E-5, 8.2462E-5, 8.7021E-5, 8.8861E-5,
     * 9.0524E-5, 9.1765E-5, 9.2589E-5, 9.3083E-5, 9.3658E-5, 9.4067E-5,
     * 9.4436E-5, 9.4476E-5, 9.7081E-5, 9.8695E-5, 1.0269E-4, 1.1800E-4,
     * 1.5203E-4, 2.0919E-4, 2.4288E-4, 3.0797E-4, 3.4701E-4, 3.8351E-4,
     * 4.1460E-4, 5.7742E-5, 6.7607E-5, 7.3873E-5, 7.9778E-5, 8.4367E-5,
     * 8.8134E-5, 9.2696E-5, 9.4535E-5, 9.6198E-5, 9.7439E-5/
      DATA X5201/ 9.8264E-5, 9.8757E-5, 9.9332E-5, 9.9742E-5, 1.0011E-4,
     * 1.0015E-4, 1.0276E-4, 1.0437E-4, 1.0836E-4, 1.2368E-4, 1.5770E-4,
     * 2.1487E-4, 2.4855E-4, 3.1365E-4, 3.5269E-4, 3.8918E-4, 4.2028E-4,
     * 6.1106E-5, 7.1008E-5, 7.7292E-5, 8.3204E-5, 8.7804E-5, 9.1572E-5,
     * 9.6136E-5, 9.7975E-5, 9.9638E-5, 1.0088E-4, 1.0170E-4, 1.0220E-4,
     * 1.0277E-4, 1.0318E-4, 1.0355E-4, 1.0359E-4, 1.0620E-4, 1.0781E-4,
     * 1.1180E-4, 1.2712E-4, 1.6114E-4, 2.1831E-4, 2.5199E-4, 3.1709E-4,
     * 3.5613E-4, 3.9262E-4, 4.2372E-4, 6.6519E-5, 7.6547E-5, 8.2809E-5,
     * 8.8744E-5, 9.3330E-5, 9.7100E-5, 1.0166E-4, 1.0350E-4, 1.0517E-4,
     * 1.0641E-4, 1.0723E-4, 1.0773E-4, 1.0830E-4, 1.0871E-4, 1.0908E-4,
     * 1.0912E-4, 1.1172E-4, 1.1334E-4, 1.1733E-4, 1.3265E-4, 1.6667E-4,
     * 2.2384E-4, 2.5752E-4, 3.2261E-4, 3.6166E-4, 3.9815E-4, 4.2924E-4,
     * 7.1943E-5, 8.1897E-5, 8.8215E-5, 9.4190E-5, 9.8761E-5, 1.0252E-4,
     * 1.0709E-4, 1.0893E-4, 1.1059E-4, 1.1183E-4, 1.1266E-4, 1.1315E-4,
     * 1.1372E-4, 1.1413E-4, 1.1450E-4, 1.1454E-4, 1.1715E-4, 1.1876E-4,
     * 1.2275E-4, 1.3807E-4, 1.7209E-4, 2.2926E-4, 2.6295E-4, 3.2804E-4,
     * 3.6708E-4, 4.0358E-4, 4.3467E-4, 7.9036E-5, 8.8990E-5/
      DATA X5301/ 9.5308E-5, 1.0127E-4, 1.0592E-4, 1.0967E-4, 1.1424E-4,
     * 1.1608E-4, 1.1775E-4, 1.1899E-4, 1.1981E-4, 1.2030E-4, 1.2088E-4,
     * 1.2129E-4, 1.2166E-4, 1.2170E-4, 1.2430E-4, 1.2592E-4, 1.2991E-4,
     * 1.4523E-4, 1.7925E-4, 2.3642E-4, 2.7010E-4, 3.3519E-4, 3.7424E-4,
     * 4.1073E-4, 4.4182E-4, 8.3864E-5, 9.3639E-5, 9.9778E-5, 1.0574E-4,
     * 1.1045E-4, 1.1415E-4, 1.1874E-4, 1.2058E-4, 1.2224E-4, 1.2348E-4,
     * 1.2431E-4, 1.2480E-4, 1.2538E-4, 1.2579E-4, 1.2615E-4, 1.2619E-4,
     * 1.2880E-4, 1.3041E-4, 1.3441E-4, 1.4972E-4, 1.8374E-4, 2.4091E-4,
     * 2.7460E-4, 3.3969E-4, 3.7873E-4, 4.1523E-4, 4.4632E-4, 9.2208E-5,
     * 1.0252E-4, 1.0824E-4, 1.1432E-4, 1.1891E-4, 1.2276E-4, 1.2735E-4,
     * 1.2916E-4, 1.3083E-4, 1.3207E-4, 1.3289E-4, 1.3339E-4, 1.3396E-4,
     * 1.3437E-4, 1.3474E-4, 1.3478E-4, 1.3739E-4, 1.3900E-4, 1.4299E-4,
     * 1.5831E-4, 1.9233E-4, 2.4950E-4, 2.8319E-4, 3.4828E-4, 3.8732E-4,
     * 4.2382E-4, 4.5491E-4, 9.9182E-5, 1.1063E-4, 1.1635E-4, 1.2302E-4,
     * 1.2779E-4, 1.3161E-4, 1.3536E-4, 1.3727E-4, 1.3894E-4, 1.4015E-4,
     * 1.4099E-4, 1.4148E-4, 1.4206E-4, 1.4247E-4, 1.4283E-4, 1.4287E-4,
     * 1.4548E-4, 1.4709E-4, 1.5109E-4, 1.6640E-4, 2.0042E-4/
      DATA X5401/ 2.5759E-4, 2.9128E-4, 3.5637E-4, 3.9541E-4, 4.3191E-4,
     * 4.6300E-4, 1.1487E-4, 1.2623E-4, 1.3157E-4, 1.3749E-4, 1.4201E-4,
     * 1.4580E-4, 1.5029E-4, 1.5224E-4, 1.5388E-4, 1.5512E-4, 1.5595E-4,
     * 1.5644E-4, 1.5702E-4, 1.5743E-4, 1.5780E-4, 1.5784E-4, 1.6044E-4,
     * 1.6206E-4, 1.6605E-4, 1.8136E-4, 2.1539E-4, 2.7256E-4, 3.0624E-4,
     * 3.7133E-4, 4.1037E-4, 4.4687E-4, 4.7796E-4, 1.1552E-4, 1.2682E-4,
     * 1.3386E-4, 1.3905E-4, 1.4360E-4, 1.4741E-4, 1.5193E-4, 1.5386E-4,
     * 1.5547E-4, 1.5672E-4, 1.5755E-4, 1.5804E-4, 1.5862E-4, 1.5902E-4,
     * 1.5939E-4, 1.5943E-4, 1.6204E-4, 1.6365E-4, 1.6764E-4, 1.8296E-4,
     * 2.1698E-4, 2.7415E-4, 3.0784E-4, 3.7293E-4, 4.1197E-4, 4.4847E-4,
     * 4.7956E-4, 1.9086E-4, 2.0282E-4, 2.0854E-4, 2.1422E-4, 2.1876E-4,
     * 2.2253E-4, 2.2703E-4, 2.2901E-4, 2.3061E-4, 2.3186E-4, 2.3269E-4,
     * 2.3318E-4, 2.3376E-4, 2.3416E-4, 2.3453E-4, 2.3457E-4, 2.3718E-4,
     * 2.3879E-4, 2.4278E-4, 2.5810E-4, 2.9212E-4, 3.4929E-4, 3.8298E-4,
     * 4.4807E-4, 4.8711E-4, 5.2361E-4, 5.5470E-4, 2.4414E-4, 2.4700E-4,
     * 2.4796E-4, 2.5368E-4, 2.5845E-4, 2.6226E-4, 2.6476E-4, 2.6673E-4,
     * 2.6834E-4, 2.6953E-4, 2.7033E-4, 2.7081E-4, 2.7139E-4/
      DATA X5501/ 2.7179E-4, 2.7216E-4, 2.7220E-4, 2.7480E-4, 2.7642E-4,
     * 2.8041E-4, 2.9572E-4, 3.2975E-4, 3.8691E-4, 4.2060E-4, 4.8569E-4,
     * 5.2473E-4, 5.6123E-4, 5.9232E-4, 2.6417E-4, 2.7359E-4, 2.7931E-4,
     * 2.8539E-4, 2.8998E-4, 2.9373E-4, 2.9834E-4, 3.0018E-4, 3.0185E-4,
     * 3.0309E-4, 3.0391E-4, 3.0441E-4, 3.0498E-4, 3.0539E-4, 3.0576E-4,
     * 3.0580E-4, 3.0841E-4, 3.1002E-4, 3.1401E-4, 3.2933E-4, 3.6335E-4,
     * 4.2052E-4, 4.5420E-4, 5.1930E-4, 5.5834E-4, 5.9483E-4, 6.2593E-4,
     * 3.0869E-4, 3.1793E-4, 3.2449E-4, 3.3075E-4, 3.3557E-4, 3.3943E-4,
     * 3.4406E-4, 3.4595E-4, 3.4765E-4, 3.4892E-4, 3.4977E-4, 3.5027E-4,
     * 3.5086E-4, 3.5128E-4, 3.5165E-4, 3.5170E-4, 3.5436E-4, 3.5601E-4,
     * 3.6009E-4, 3.7575E-4, 4.1054E-4, 4.6900E-4, 5.0344E-4, 5.6999E-4,
     * 6.0991E-4, 6.4723E-4, 6.7902E-4, 4.3553E-4, 4.4620E-4, 4.5294E-4,
     * 4.5935E-4, 4.6432E-4, 4.6840E-4, 4.7334E-4, 4.7533E-4, 4.7713E-4,
     * 4.7847E-4, 4.7937E-4, 4.7990E-4, 4.8052E-4, 4.8097E-4, 4.8136E-4,
     * 4.8141E-4, 4.8423E-4, 4.8597E-4, 4.9030E-4, 5.0687E-4, 5.4369E-4,
     * 6.0556E-4, 6.4202E-4, 7.1246E-4, 7.5472E-4, 7.9422E-4, 8.2787E-4,
     * 5.6443E-4, 5.7551E-4, 5.8253E-4, 5.8915E-4, 5.9432E-4/
      DATA X5601/ 5.9855E-4, 6.0368E-4, 6.0576E-4, 6.0763E-4, 6.0903E-4,
     * 6.0995E-4, 6.1051E-4, 6.1116E-4, 6.1162E-4, 6.1203E-4, 6.1208E-4,
     * 6.1501E-4, 6.1683E-4, 6.2133E-4, 6.3857E-4, 6.7689E-4, 7.4127E-4,
     * 7.7920E-4, 8.5250E-4, 8.9647E-4, 9.3757E-4, 9.7258E-4, 7.1011E-4,
     * 7.2152E-4, 7.2874E-4, 7.3556E-4, 7.4088E-4, 7.4525E-4, 7.5055E-4,
     * 7.5269E-4, 7.5462E-4, 7.5606E-4, 7.5702E-4, 7.5759E-4, 7.5826E-4,
     * 7.5874E-4, 7.5917E-4, 7.5922E-4, 7.6224E-4, 7.6412E-4, 7.6876E-4,
     * 7.8657E-4, 8.2613E-4, 8.9261E-4, 9.3178E-4, 1.0075E-3, 1.0529E-3,
     * 1.0953E-3, 1.1315E-3, 8.5313E-4, 8.6469E-4, 8.7206E-4, 8.7902E-4,
     * 8.8446E-4, 8.8893E-4, 8.9436E-4, 8.9655E-4, 8.9853E-4, 9.0001E-4,
     * 9.0099E-4, 9.0158E-4, 9.0226E-4, 9.0275E-4, 9.0319E-4, 9.0323E-4,
     * 9.0633E-4, 9.0826E-4, 9.1301E-4, 9.3124E-4, 9.7175E-4, 1.0398E-3,
     * 1.0799E-3, 1.1574E-3, 1.2039E-3, 1.2473E-3, 1.2843E-3, 1.2749E-3,
     * 1.2869E-3, 1.2946E-3, 1.3018E-3, 1.3075E-3, 1.3122E-3, 1.3179E-3,
     * 1.3202E-3, 1.3223E-3, 1.3238E-3, 1.3248E-3, 1.3255E-3, 1.3262E-3,
     * 1.3267E-3, 1.3271E-3, 1.3272E-3, 1.3304E-3, 1.3325E-3, 1.3374E-3,
     * 1.3565E-3, 1.3990E-3, 1.4702E-3, 1.5122E-3, 1.5934E-3/
      DATA X5701/ 1.6421E-3, 1.6876E-3, 1.7264E-3, 1.6669E-3, 1.6792E-3,
     * 1.6870E-3, 1.6945E-3, 1.7004E-3, 1.7052E-3, 1.7110E-3, 1.7134E-3,
     * 1.7155E-3, 1.7171E-3, 1.7182E-3, 1.7188E-3, 1.7195E-3, 1.7201E-3,
     * 1.7205E-3, 1.7206E-3, 1.7239E-3, 1.7260E-3, 1.7311E-3, 1.7507E-3,
     * 1.7944E-3, 1.8677E-3, 1.9108E-3, 1.9943E-3, 2.0443E-3, 2.0911E-3,
     * 2.1310E-3, 2.9133E-3, 2.9261E-3, 2.9344E-3, 2.9423E-3, 2.9484E-3,
     * 2.9535E-3, 2.9597E-3, 2.9621E-3, 2.9644E-3, 2.9661E-3, 2.9672E-3,
     * 2.9679E-3, 2.9686E-3, 2.9692E-3, 2.9697E-3, 2.9697E-3, 2.9733E-3,
     * 2.9754E-3, 2.9808E-3, 3.0015E-3, 3.0475E-3, 3.1248E-3, 3.1703E-3,
     * 3.2582E-3, 3.3110E-3, 3.3603E-3, 3.4023E-3, 3.8770E-3, 3.8898E-3,
     * 3.8981E-3, 3.9060E-3, 3.9122E-3, 3.9172E-3, 3.9234E-3, 3.9259E-3,
     * 3.9281E-3, 3.9298E-3, 3.9309E-3, 3.9316E-3, 3.9324E-3, 3.9329E-3,
     * 3.9334E-3, 3.9335E-3, 3.9370E-3, 3.9392E-3, 3.9446E-3, 3.9653E-3,
     * 4.0113E-3, 4.0885E-3, 4.1340E-3, 4.2220E-3, 4.2747E-3, 4.3241E-3,
     * 4.3661E-3, 4.5079E-3, 4.5207E-3, 4.5290E-3, 4.5369E-3, 4.5431E-3,
     * 4.5481E-3, 4.5543E-3, 4.5568E-3, 4.5590E-3, 4.5607E-3, 4.5618E-3,
     * 4.5625E-3, 4.5633E-3, 4.5638E-3, 4.5643E-3, 4.5644E-3/
      DATA X5801/ 4.5679E-3, 4.5701E-3, 4.5755E-3, 4.5962E-3, 4.6421E-3,
     * 4.7194E-3, 4.7649E-3, 4.8529E-3, 4.9056E-3, 4.9550E-3, 4.9970E-3,
     * 5.9339E-5, 7.1856E-5, 7.9969E-5, 8.7734E-5, 9.3877E-5, 9.8976E-5,
     * 1.0523E-4, 1.0778E-4, 1.1010E-4, 1.1184E-4, 1.1300E-4, 1.1369E-4,
     * 1.1451E-4, 1.1509E-4, 1.1561E-4, 1.1567E-4, 1.1814E-4, 1.2004E-4,
     * 1.2489E-4, 1.4530E-4, 1.9969E-4, 2.9632E-4, 3.4866E-4, 4.5220E-4,
     * 5.1648E-4, 5.7790E-4, 6.3117E-4, 5.9340E-5, 7.1857E-5, 7.9969E-5,
     * 8.7735E-5, 9.3877E-5, 9.8977E-5, 1.0524E-4, 1.0778E-4, 1.1010E-4,
     * 1.1184E-4, 1.1300E-4, 1.1370E-4, 1.1451E-4, 1.1509E-4, 1.1561E-4,
     * 1.1567E-4, 1.1814E-4, 1.2004E-4, 1.2489E-4, 1.4530E-4, 1.9969E-4,
     * 2.9632E-4, 3.4866E-4, 4.5220E-4, 5.1648E-4, 5.7790E-4, 6.3117E-4,
     * 5.9345E-5, 7.1861E-5, 7.9974E-5, 8.7739E-5, 9.3882E-5, 9.8981E-5,
     * 1.0524E-4, 1.0779E-4, 1.1011E-4, 1.1185E-4, 1.1300E-4, 1.1370E-4,
     * 1.1451E-4, 1.1509E-4, 1.1561E-4, 1.1567E-4, 1.1814E-4, 1.2005E-4,
     * 1.2489E-4, 1.4530E-4, 1.9969E-4, 2.9632E-4, 3.4867E-4, 4.5220E-4,
     * 5.1648E-4, 5.7791E-4, 6.3118E-4, 5.9351E-5, 7.1868E-5, 7.9981E-5,
     * 8.7746E-5, 9.3889E-5, 9.8988E-5, 1.0525E-4, 1.0780E-4/
      DATA X5901/ 1.1011E-4, 1.1185E-4, 1.1301E-4, 1.1371E-4, 1.1452E-4,
     * 1.1510E-4, 1.1562E-4, 1.1568E-4, 1.1815E-4, 1.2005E-4, 1.2490E-4,
     * 1.4531E-4, 1.9970E-4, 2.9633E-4, 3.4867E-4, 4.5221E-4, 5.1649E-4,
     * 5.7792E-4, 6.3119E-4, 6.8045E-5, 8.0562E-5, 8.8675E-5, 9.6441E-5,
     * 1.0258E-4, 1.0768E-4, 1.1394E-4, 1.1649E-4, 1.1881E-4, 1.2055E-4,
     * 1.2171E-4, 1.2240E-4, 1.2321E-4, 1.2379E-4, 1.2431E-4, 1.2437E-4,
     * 1.2685E-4, 1.2875E-4, 1.3359E-4, 1.5400E-4, 2.0840E-4, 3.0502E-4,
     * 3.5737E-4, 4.6090E-4, 5.2518E-4, 5.8661E-4, 6.3988E-4, 7.3266E-5,
     * 8.5784E-5, 9.3894E-5, 1.0166E-4, 1.0780E-4, 1.1290E-4, 1.1916E-4,
     * 1.2171E-4, 1.2403E-4, 1.2577E-4, 1.2692E-4, 1.2762E-4, 1.2843E-4,
     * 1.2901E-4, 1.2953E-4, 1.2959E-4, 1.3206E-4, 1.3397E-4, 1.3881E-4,
     * 1.5922E-4, 2.1361E-4, 3.1024E-4, 3.6259E-4, 4.6612E-4, 5.3040E-4,
     * 5.9183E-4, 6.4510E-4, 8.2355E-5, 9.4887E-5, 1.0300E-4, 1.1076E-4,
     * 1.1690E-4, 1.2200E-4, 1.2826E-4, 1.3081E-4, 1.3313E-4, 1.3487E-4,
     * 1.3603E-4, 1.3672E-4, 1.3753E-4, 1.3811E-4, 1.3864E-4, 1.3869E-4,
     * 1.4117E-4, 1.4307E-4, 1.4792E-4, 1.6833E-4, 2.2272E-4, 3.1935E-4,
     * 3.7169E-4, 4.7523E-4, 5.3951E-4, 6.0093E-4, 6.5420E-4/
      DATA X6001/ 9.9562E-5, 1.1204E-4, 1.2015E-4, 1.2792E-4, 1.3406E-4,
     * 1.3916E-4, 1.4542E-4, 1.4797E-4, 1.5028E-4, 1.5202E-4, 1.5318E-4,
     * 1.5388E-4, 1.5469E-4, 1.5527E-4, 1.5579E-4, 1.5585E-4, 1.5832E-4,
     * 1.6022E-4, 1.6507E-4, 1.8548E-4, 2.3987E-4, 3.3650E-4, 3.8884E-4,
     * 4.9238E-4, 5.5666E-4, 6.1809E-4, 6.7136E-4, 1.0910E-4, 1.2159E-4,
     * 1.2971E-4, 1.3748E-4, 1.4362E-4, 1.4872E-4, 1.5498E-4, 1.5753E-4,
     * 1.5985E-4, 1.6159E-4, 1.6275E-4, 1.6344E-4, 1.6425E-4, 1.6483E-4,
     * 1.6536E-4, 1.6541E-4, 1.6789E-4, 1.6979E-4, 1.7464E-4, 1.9505E-4,
     * 2.4944E-4, 3.4607E-4, 3.9841E-4, 5.0195E-4, 5.6623E-4, 6.2765E-4,
     * 6.8092E-4, 1.2344E-4, 1.3614E-4, 1.4423E-4, 1.5199E-4, 1.5811E-4,
     * 1.6320E-4, 1.6946E-4, 1.7201E-4, 1.7433E-4, 1.7607E-4, 1.7723E-4,
     * 1.7792E-4, 1.7873E-4, 1.7931E-4, 1.7983E-4, 1.7989E-4, 1.8237E-4,
     * 1.8427E-4, 1.8911E-4, 2.0952E-4, 2.6391E-4, 3.6054E-4, 4.1289E-4,
     * 5.1642E-4, 5.8070E-4, 6.4213E-4, 6.9540E-4, 1.3691E-4, 1.4937E-4,
     * 1.5742E-4, 1.6540E-4, 1.7159E-4, 1.7662E-4, 1.8287E-4, 1.8543E-4,
     * 1.8774E-4, 1.8948E-4, 1.9064E-4, 1.9134E-4, 1.9215E-4, 1.9273E-4,
     * 1.9325E-4, 1.9331E-4, 1.9578E-4, 1.9768E-4, 2.0253E-4/
      DATA X6101/ 2.2294E-4, 2.7733E-4, 3.7396E-4, 4.2630E-4, 5.2984E-4,
     * 5.9412E-4, 6.5555E-4, 7.0882E-4, 1.5378E-4, 1.6624E-4, 1.7440E-4,
     * 1.8215E-4, 1.8835E-4, 1.9346E-4, 1.9971E-4, 2.0225E-4, 2.0458E-4,
     * 2.0631E-4, 2.0747E-4, 2.0817E-4, 2.0898E-4, 2.0956E-4, 2.1008E-4,
     * 2.1014E-4, 2.1261E-4, 2.1452E-4, 2.1936E-4, 2.3977E-4, 2.9416E-4,
     * 3.9079E-4, 4.4314E-4, 5.4667E-4, 6.1095E-4, 6.7238E-4, 7.2565E-4,
     * 1.6481E-4, 1.7667E-4, 1.8448E-4, 1.9234E-4, 1.9854E-4, 2.0363E-4,
     * 2.0989E-4, 2.1245E-4, 2.1477E-4, 2.1651E-4, 2.1767E-4, 2.1836E-4,
     * 2.1917E-4, 2.1975E-4, 2.2027E-4, 2.2033E-4, 2.2281E-4, 2.2471E-4,
     * 2.2956E-4, 2.4997E-4, 3.0436E-4, 4.0098E-4, 4.5333E-4, 5.5686E-4,
     * 6.2114E-4, 6.8257E-4, 7.3584E-4, 1.8120E-4, 1.9586E-4, 2.0295E-4,
     * 2.1100E-4, 2.1726E-4, 2.2244E-4, 2.2884E-4, 2.3129E-4, 2.3362E-4,
     * 2.3536E-4, 2.3652E-4, 2.3722E-4, 2.3803E-4, 2.3861E-4, 2.3913E-4,
     * 2.3919E-4, 2.4166E-4, 2.4357E-4, 2.4841E-4, 2.6882E-4, 3.2321E-4,
     * 4.1984E-4, 4.7219E-4, 5.7572E-4, 6.4000E-4, 7.0143E-4, 7.5470E-4,
     * 2.1362E-4, 2.2602E-4, 2.2221E-4, 2.2984E-4, 2.3651E-4, 2.4128E-4,
     * 2.4587E-4, 2.4855E-4, 2.5088E-4, 2.5260E-4, 2.5374E-4/
      DATA X6201/ 2.5443E-4, 2.5525E-4, 2.5582E-4, 2.5634E-4, 2.5640E-4,
     * 2.5887E-4, 2.6077E-4, 2.6562E-4, 2.8603E-4, 3.4042E-4, 4.3705E-4,
     * 4.8939E-4, 5.9293E-4, 6.5721E-4, 7.1864E-4, 7.7191E-4,-5.2035E-5,
     * 7.6085E-5, 1.4002E-4, 1.9085E-4, 2.2353E-4, 2.4598E-4, 2.6714E-4,
     * 2.7401E-4, 2.7895E-4, 2.8216E-4, 2.8399E-4, 2.8496E-4, 2.8600E-4,
     * 2.8666E-4, 2.8721E-4, 2.8727E-4, 2.8974E-4, 2.9164E-4, 2.9649E-4,
     * 3.1690E-4, 3.7129E-4, 4.6792E-4, 5.2026E-4, 6.2380E-4, 6.8808E-4,
     * 7.4950E-4, 8.0277E-4,-4.7565E-5, 7.9036E-5, 1.4322E-4, 1.9401E-4,
     * 2.2677E-4, 2.4919E-4, 2.7042E-4, 2.7722E-4, 2.8217E-4, 2.8540E-4,
     * 2.8723E-4, 2.8820E-4, 2.8924E-4, 2.8990E-4, 2.9045E-4, 2.9050E-4,
     * 2.9298E-4, 2.9488E-4, 2.9973E-4, 3.2014E-4, 3.7453E-4, 4.7116E-4,
     * 5.2350E-4, 6.2704E-4, 6.9132E-4, 7.5274E-4, 8.0601E-4, 1.0020E-4,
     * 2.2824E-4, 2.9181E-4, 3.4227E-4, 3.7544E-4, 3.9832E-4, 4.1951E-4,
     * 4.2635E-4, 4.3135E-4, 4.3452E-4, 4.3635E-4, 4.3732E-4, 4.3836E-4,
     * 4.3902E-4, 4.3957E-4, 4.3963E-4, 4.4210E-4, 4.4400E-4, 4.4885E-4,
     * 4.6926E-4, 5.2365E-4, 6.2028E-4, 6.7262E-4, 7.7616E-4, 8.4044E-4,
     * 9.0186E-4, 9.5513E-4, 4.5776E-4, 4.7302E-4, 5.0354E-4/
      DATA X6301/ 4.8733E-4, 4.9400E-4, 5.0068E-4, 5.0449E-4, 5.0658E-4,
     * 5.0890E-4, 5.1063E-4, 5.1183E-4, 5.1246E-4, 5.1329E-4, 5.1386E-4,
     * 5.1438E-4, 5.1444E-4, 5.1691E-4, 5.1881E-4, 5.2366E-4, 5.4407E-4,
     * 5.9846E-4, 6.9509E-4, 7.4743E-4, 8.5097E-4, 9.1525E-4, 9.7667E-4,
     * 1.0299E-3, 5.2547E-4, 5.3883E-4, 5.4497E-4, 5.5295E-4, 5.5921E-4,
     * 5.6422E-4, 5.7056E-4, 5.7308E-4, 5.7540E-4, 5.7714E-4, 5.7830E-4,
     * 5.7899E-4, 5.7981E-4, 5.8039E-4, 5.8091E-4, 5.8096E-4, 5.8344E-4,
     * 5.8534E-4, 5.9019E-4, 6.1060E-4, 6.6499E-4, 7.6162E-4, 8.1396E-4,
     * 9.1750E-4, 9.8178E-4, 1.0432E-3, 1.0965E-3, 5.9795E-4, 6.1035E-4,
     * 6.1822E-4, 6.2639E-4, 6.3264E-4, 6.3777E-4, 6.4402E-4, 6.4657E-4,
     * 6.4890E-4, 6.5064E-4, 6.5180E-4, 6.5249E-4, 6.5330E-4, 6.5388E-4,
     * 6.5440E-4, 6.5446E-4, 6.5694E-4, 6.5884E-4, 6.6369E-4, 6.8410E-4,
     * 7.3849E-4, 8.3511E-4, 8.8746E-4, 9.9099E-4, 1.0553E-3, 1.1167E-3,
     * 1.1700E-3, 7.6979E-4, 7.8213E-4, 7.9021E-4, 7.9801E-4, 8.0414E-4,
     * 8.0924E-4, 8.1551E-4, 8.1805E-4, 8.2037E-4, 8.2211E-4, 8.2327E-4,
     * 8.2397E-4, 8.2478E-4, 8.2536E-4, 8.2588E-4, 8.2594E-4, 8.2841E-4,
     * 8.3031E-4, 8.3516E-4, 8.5557E-4, 9.0996E-4, 1.0066E-3/
      DATA X6401/ 1.0589E-3, 1.1625E-3, 1.2267E-3, 1.2882E-3, 1.3414E-3,
     * 8.9985E-4, 9.1237E-4, 9.2046E-4, 9.2823E-4, 9.3438E-4, 9.3947E-4,
     * 9.4573E-4, 9.4828E-4, 9.5060E-4, 9.5234E-4, 9.5350E-4, 9.5419E-4,
     * 9.5500E-4, 9.5558E-4, 9.5611E-4, 9.5616E-4, 9.5864E-4, 9.6054E-4,
     * 9.6539E-4, 9.8580E-4, 1.0402E-3, 1.1368E-3, 1.1892E-3, 1.2927E-3,
     * 1.3570E-3, 1.4184E-3, 1.4717E-3, 1.0105E-3, 1.0230E-3, 1.0311E-3,
     * 1.0389E-3, 1.0450E-3, 1.0501E-3, 1.0564E-3, 1.0589E-3, 1.0613E-3,
     * 1.0630E-3, 1.0641E-3, 1.0648E-3, 1.0657E-3, 1.0662E-3, 1.0668E-3,
     * 1.0668E-3, 1.0693E-3, 1.0712E-3, 1.0760E-3, 1.0964E-3, 1.1508E-3,
     * 1.2475E-3, 1.2998E-3, 1.4033E-3, 1.4676E-3, 1.5291E-3, 1.5823E-3,
     * 1.0947E-3, 1.1073E-3, 1.1154E-3, 1.1232E-3, 1.1293E-3, 1.1344E-3,
     * 1.1407E-3, 1.1432E-3, 1.1455E-3, 1.1473E-3, 1.1484E-3, 1.1491E-3,
     * 1.1499E-3, 1.1505E-3, 1.1510E-3, 1.1511E-3, 1.1536E-3, 1.1555E-3,
     * 1.1603E-3, 1.1807E-3, 1.2351E-3, 1.3317E-3, 1.3841E-3, 1.4876E-3,
     * 1.5519E-3, 1.6133E-3, 1.6666E-3, 1.2675E-3, 1.2800E-3, 1.2881E-3,
     * 1.2959E-3, 1.3020E-3, 1.3071E-3, 1.3134E-3, 1.3159E-3, 1.3182E-3,
     * 1.3200E-3, 1.3211E-3, 1.3218E-3, 1.3226E-3, 1.3232E-3/
      DATA X6501/ 1.3237E-3, 1.3238E-3, 1.3263E-3, 1.3282E-3, 1.3330E-3,
     * 1.3534E-3, 1.4078E-3, 1.5044E-3, 1.5568E-3, 1.6603E-3, 1.7246E-3,
     * 1.7860E-3, 1.8393E-3, 1.3753E-3, 1.3878E-3, 1.3959E-3, 1.4037E-3,
     * 1.4098E-3, 1.4149E-3, 1.4212E-3, 1.4237E-3, 1.4260E-3, 1.4278E-3,
     * 1.4289E-3, 1.4296E-3, 1.4304E-3, 1.4310E-3, 1.4315E-3, 1.4316E-3,
     * 1.4341E-3, 1.4360E-3, 1.4408E-3, 1.4612E-3, 1.5156E-3, 1.6123E-3,
     * 1.6646E-3, 1.7681E-3, 1.8324E-3, 1.8938E-3, 1.9471E-3, 1.5868E-3,
     * 1.5993E-3, 1.6074E-3, 1.6152E-3, 1.6213E-3, 1.6264E-3, 1.6327E-3,
     * 1.6352E-3, 1.6376E-3, 1.6393E-3, 1.6405E-3, 1.6411E-3, 1.6420E-3,
     * 1.6425E-3, 1.6431E-3, 1.6431E-3, 1.6456E-3, 1.6475E-3, 1.6523E-3,
     * 1.6728E-3, 1.7271E-3, 1.8238E-3, 1.8761E-3, 1.9797E-3, 2.0439E-3,
     * 2.1054E-3, 2.1586E-3, 1.7004E-3, 1.7129E-3, 1.7210E-3, 1.7287E-3,
     * 1.7349E-3, 1.7400E-3, 1.7462E-3, 1.7488E-3, 1.7511E-3, 1.7529E-3,
     * 1.7540E-3, 1.7547E-3, 1.7555E-3, 1.7561E-3, 1.7566E-3, 1.7567E-3,
     * 1.7592E-3, 1.7611E-3, 1.7659E-3, 1.7863E-3, 1.8407E-3, 1.9373E-3,
     * 1.9897E-3, 2.0932E-3, 2.1575E-3, 2.2189E-3, 2.2722E-3, 1.7592E-3,
     * 1.7717E-3, 1.7798E-3, 1.7875E-3, 1.7937E-3, 1.7988E-3/
      DATA X6601/ 1.8050E-3, 1.8076E-3, 1.8099E-3, 1.8117E-3, 1.8128E-3,
     * 1.8135E-3, 1.8143E-3, 1.8149E-3, 1.8154E-3, 1.8155E-3, 1.8180E-3,
     * 1.8199E-3, 1.8247E-3, 1.8451E-3, 1.8995E-3, 1.9961E-3, 2.0485E-3,
     * 2.1520E-3, 2.2163E-3, 2.2777E-3, 2.3310E-3, 5.1200E-1, 5.2000E-1,
     * 5.3000E-1, 5.4000E-1, 5.5000E-1, 5.6000E-1, 5.7000E-1, 5.8000E-1,
     * 5.9000E-1, 6.0000E-1, 6.2000E-1, 6.4000E-1, 6.6000E-1, 6.8000E-1,
     * 7.0000E-1, 7.2000E-1, 7.4000E-1, 7.6000E-1, 7.8000E-1, 8.0000E-1,
     * 8.2000E-1, 8.4000E-1, 8.6000E-1, 8.8000E-1, 9.0000E-1, 9.2000E-1,
     * 9.4000E-1, 9.5000E-1, 9.6000E-1, 9.7000E-1, 9.8000E-1, 9.8500E-1,
     * 9.9000E-1, 9.9500E-1, 1.0000E+0, 4.8031E-3, 5.7127E-3, 7.0384E-3,
     * 8.5979E-3, 1.0419E-2, 1.2530E-2, 1.4962E-2, 1.7747E-2, 2.0917E-2,
     * 2.4506E-2, 3.3084E-2, 4.3772E-2, 5.6879E-2, 7.2725E-2, 9.1643E-2,
     * 1.1397E-1, 1.4007E-1, 1.7029E-1, 2.0498E-1, 2.4452E-1, 2.8927E-1,
     * 3.3960E-1, 3.9590E-1, 4.5856E-1, 5.2804E-1, 6.0482E-1, 6.8951E-1,
     * 7.3504E-1, 7.8285E-1, 8.3305E-1, 8.8580E-1, 9.1318E-1, 9.4126E-1,
     * 9.7006E-1, 1.0000E+0, 2.7638E+0, 2.7506E+0, 2.7339E+0, 2.7170E+0,
     * 2.6999E+0, 2.6826E+0, 2.6651E+0, 2.6474E+0, 2.6295E+0/
      DATA X6701/ 2.6115E+0, 2.5747E+0, 2.5372E+0, 2.4988E+0, 2.4595E+0,
     * 2.4190E+0, 2.3774E+0, 2.3344E+0, 2.2898E+0, 2.2435E+0, 2.1950E+0,
     * 2.1441E+0, 2.0901E+0, 2.0325E+0, 1.9703E+0, 1.9020E+0, 1.8253E+0,
     * 1.7364E+0, 1.6851E+0, 1.6271E+0, 1.5591E+0, 1.4746E+0, 1.4217E+0,
     * 1.3555E+0, 1.2616E+0, 1.0000E+0, 2.7887E-3, 3.2715E-3, 3.9641E-3,
     * 4.7653E-3, 5.6861E-3, 6.7377E-3, 7.9320E-3, 9.2810E-3, 1.0797E-2,
     * 1.2494E-2, 1.6483E-2, 2.1364E-2, 2.7260E-2, 3.4310E-2, 4.2663E-2,
     * 5.2491E-2, 6.3985E-2, 7.7369E-2, 9.2902E-2, 1.1090E-1, 1.3173E-1,
     * 1.5591E-1, 1.8406E-1, 2.1708E-1, 2.5629E-1, 3.0379E-1, 3.6329E-1,
     * 3.9965E-1, 4.4251E-1, 4.9494E-1, 5.6323E-1, 6.0765E-1, 6.6458E-1,
     * 7.4649E-1, 1.0000E+0, 1.1141E+1, 1.1246E+1, 1.1377E+1, 1.1506E+1,
     * 1.1634E+1, 1.1759E+1, 1.1882E+1, 1.2003E+1, 1.2122E+1, 1.2238E+1,
     * 1.2465E+1, 1.2682E+1, 1.2892E+1, 1.3095E+1, 1.3291E+1, 1.3483E+1,
     * 1.3672E+1, 1.3858E+1, 1.4044E+1, 1.4229E+1, 1.4416E+1, 1.4604E+1,
     * 1.4795E+1, 1.4990E+1, 1.5190E+1, 1.5399E+1, 1.5623E+1, 1.5745E+1,
     * 1.5878E+1, 1.6027E+1, 1.6204E+1, 1.6310E+1, 1.6438E+1, 1.6609E+1,
     * 1.7031E+1, 2.2282E+1, 2.2159E+1, 2.2012E+1, 2.1872E+1/
      DATA X6801/ 2.1738E+1, 2.1610E+1, 2.1488E+1, 2.1370E+1, 2.1258E+1,
     * 2.1149E+1, 2.0944E+1, 2.0753E+1, 2.0573E+1, 2.0404E+1, 2.0243E+1,
     * 2.0089E+1, 1.9941E+1, 1.9797E+1, 1.9657E+1, 1.9518E+1, 1.9381E+1,
     * 1.9244E+1, 1.9104E+1, 1.8960E+1, 1.8809E+1, 1.8646E+1, 1.8463E+1,
     * 1.8360E+1, 1.8244E+1, 1.8110E+1, 1.7946E+1, 1.7844E+1, 1.7718E+1,
     * 1.7546E+1, 1.7031E+1, 9.2157E-2, 1.4675E-1, 2.1553E-1, 2.8477E-1,
     * 3.5435E-1, 4.2413E-1, 4.9402E-1, 5.6393E-1, 6.3378E-1, 7.0352E-1,
     * 8.4254E-1, 9.8085E-1, 1.1186E+0, 1.2562E+0, 1.3941E+0, 1.5332E+0,
     * 1.6741E+0, 1.8178E+0, 1.9652E+0, 2.1170E+0, 2.2742E+0, 2.4374E+0,
     * 2.6076E+0, 2.7860E+0, 2.9746E+0, 3.1769E+0, 3.3998E+0, 3.5231E+0,
     * 3.6584E+0, 3.8116E+0, 3.9941E+0, 4.1039E+0, 4.2360E+0, 4.4127E+0,
     * 4.8413E+0, 5.7962E+0, 5.8213E+0, 5.8520E+0, 5.8823E+0, 5.9119E+0,
     * 5.9409E+0, 5.9693E+0, 5.9969E+0, 6.0238E+0, 6.0499E+0, 6.0996E+0,
     * 6.1458E+0, 6.1882E+0, 6.2264E+0, 6.2602E+0, 6.2892E+0, 6.3130E+0,
     * 6.3311E+0, 6.3431E+0, 6.3482E+0, 6.3457E+0, 6.3346E+0, 6.3134E+0,
     * 6.2802E+0, 6.2321E+0, 6.1644E+0, 6.0691E+0, 6.0066E+0, 5.9297E+0,
     * 5.8321E+0, 5.7012E+0, 5.6148E+0, 5.5037E+0, 5.3450E+0/
      DATA X6901/ 4.8413E+0, 2.9680E-1, 1.2630E+2, 3.4170E+0, 3.1050E-1,
     * 1.0000E-3, 2.0000E-3, 1.0000E-3, 1.0000E-3/

      CALL FLUID0(G,NG,GG,TT,DD,N1,NTT,N3,SAT,NS,C,M)
      RETURN

      END
      SUBROUTINE AR
C.....ARGON TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 0.20813 JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 150.7  DEG. K                   C(2)
C       PCRIT = 4.865  MEGA-NEWTONS / METER**2  C(3)
C       DCRIT = 0.531   GRAMS / CENTIMETER**3   C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)

      DIMENSION G(21,4),TT(27),DD(30),GG(27,30,8),SAT(35,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(100),X1601(100),X1701(100),X1801(100),X1901(100),
     *          X2001(100),X2101(100),X2201(100),X2301(100),X2401(100),
     *          X2501(100),X2601(100),X2701(100),X2801(100),X2901(100),
     *          X3001(100),X3101(100),X3201(100),X3301(100),X3401(100),
     *          X3501(100),X3601(100),X3701(100),X3801(100),X3901(100),
     *          X4001(100),X4101(100),X4201(100),X4301(100),X4401(100),
     *          X4501(100),X4601(100),X4701(100),X4801(100),X4901(100),
     *          X5001(100),X5101(100),X5201(100),X5301(100),X5401(100),
     *          X5501(100),X5601(100),X5701(100),X5801(100),X5901(100),
     *          X6001(100),X6101(100),X6201(100),X6301(100),X6401(100),
     *          X6501(100),X6601(100),X6701(100),X6801(100),X6901(9)

      DIMENSION Z(6909)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501)), (X1601,Z(1601)), (X1701,Z(1701)),
     *            (X1801,Z(1801)), (X1901,Z(1901)), (X2001,Z(2001)),
     *            (X2101,Z(2101)), (X2201,Z(2201)), (X2301,Z(2301)),
     *            (X2401,Z(2401)), (X2501,Z(2501)), (X2601,Z(2601)),
     *            (X2701,Z(2701)), (X2801,Z(2801)), (X2901,Z(2901)),
     *            (X3001,Z(3001)), (X3101,Z(3101)), (X3201,Z(3201)),
     *            (X3301,Z(3301)), (X3401,Z(3401)), (X3501,Z(3501))
      EQUIVALENCE (X3601,Z(3601)), (X3701,Z(3701)), (X3801,Z(3801)),
     *            (X3901,Z(3901)), (X4001,Z(4001)), (X4101,Z(4101)),
     *            (X4201,Z(4201)), (X4301,Z(4301)), (X4401,Z(4401)),
     *            (X4501,Z(4501)), (X4601,Z(4601)), (X4701,Z(4701)),
     *            (X4801,Z(4801)), (X4901,Z(4901)), (X5001,Z(5001)),
     *            (X5101,Z(5101)), (X5201,Z(5201)), (X5301,Z(5301)),
     *            (X5401,Z(5401)), (X5501,Z(5501)), (X5601,Z(5601)),
     *            (X5701,Z(5701)), (X5801,Z(5801)), (X5901,Z(5901)),
     *            (X6001,Z(6001)), (X6101,Z(6101)), (X6201,Z(6201)),
     *            (X6301,Z(6301)), (X6401,Z(6401)), (X6501,Z(6501)),
     *            (X6601,Z(6601)), (X6701,Z(6701)), (X6801,Z(6801)),
     *            (X6901,Z(6901))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0085)),(DD,Z(0112)),(GG,Z(0142)),
     1            (SAT,Z(6622)),(C,Z(6902))
      DATA NG,N1,N2,N3,NS/21,27,30,8,35/
      DATA X0001/ 5.6200E-1, 6.6000E-1, 8.0000E-1, 8.3000E-1, 8.8000E-1,
     * 9.0000E-1, 9.3000E-1, 9.7000E-1, 9.9000E-1, 1.0000E+0, 1.0300E+0,
     * 1.0800E+0, 1.3000E+0, 1.5000E+0, 2.0000E+0, 2.5000E+0, 3.5000E+0,
     * 4.5000E+0, 5.0000E+0, 6.0000E+0, 6.6300E+0, 1.2761E+1, 1.3003E+1,
     * 1.3291E+1, 1.3347E+1, 1.3434E+1, 1.3468E+1, 1.3517E+1, 1.3580E+1,
     * 1.3611E+1, 1.3626E+1, 1.3671E+1, 1.3742E+1, 1.4020E+1, 1.4235E+1,
     * 1.4666E+1, 1.5001E+1, 1.5506E+1, 1.5883E+1, 1.6041E+1, 1.6314E+1,
     * 1.6464E+1, 9.7843E+0, 9.9036E+0, 1.0074E+1, 1.0110E+1, 1.0171E+1,
     * 1.0196E+1, 1.0232E+1, 1.0281E+1, 1.0305E+1, 1.0317E+1, 1.0354E+1,
     * 1.0415E+1, 1.0682E+1, 1.0926E+1, 1.1534E+1, 1.2142E+1, 1.3359E+1,
     * 1.4575E+1, 1.5183E+1, 1.6400E+1, 1.7166E+1, 1.5004E+0, 1.5007E+0,
     * 1.5007E+0, 1.5007E+0, 1.5006E+0, 1.5006E+0, 1.5006E+0, 1.5006E+0,
     * 1.5006E+0, 1.5006E+0, 1.5006E+0, 1.5005E+0, 1.5004E+0, 1.5004E+0,
     * 1.5003E+0, 1.5003E+0, 1.5003E+0, 1.5003E+0, 1.5003E+0, 1.5003E+0,
     * 1.5003E+0, 5.6200E-1, 7.0500E-1, 8.2100E-1, 8.7500E-1, 9.2200E-1,
     * 9.5000E-1, 9.6600E-1, 9.7500E-1, 9.8500E-1, 9.9100E-1, 9.9600E-1,
     * 9.9750E-1, 9.9890E-1, 1.0200E+0, 1.0800E+0, 1.3000E+0/
      DATA X0101/ 1.7000E+0, 2.0000E+0, 2.3000E+0, 2.5000E+0, 3.0000E+0,
     * 3.5000E+0, 4.0000E+0, 5.0000E+0, 5.5000E+0, 6.0000E+0, 6.6300E+0,
     * 2.0000E-4, 9.0000E-4, 7.0000E-3, 4.2000E-2, 1.3000E-1, 2.0500E-1,
     * 3.0000E-1, 3.8800E-1, 4.6500E-1, 5.1100E-1, 5.9000E-1, 6.7500E-1,
     * 7.5000E-1, 8.0000E-1, 8.6500E-1, 1.1500E+0, 1.2200E+0, 1.2800E+0,
     * 1.3500E+0, 1.4400E+0, 1.5400E+0, 1.6000E+0, 1.6900E+0, 1.8100E+0,
     * 1.9800E+0, 2.1400E+0, 2.4000E+0, 2.6600E+0, 2.7000E+0, 2.7800E+0,
     * 1.2833E+0, 1.2834E+0, 1.2835E+0, 1.2836E+0, 1.2836E+0, 1.2836E+0,
     * 1.2836E+0, 1.2836E+0, 1.2836E+0, 1.2836E+0, 1.2836E+0, 1.2836E+0,
     * 1.2836E+0, 1.2836E+0, 1.2836E+0, 1.2837E+0, 1.2837E+0, 1.2837E+0,
     * 1.2838E+0, 1.2838E+0, 1.2838E+0, 1.2838E+0, 1.2838E+0, 1.2838E+0,
     * 1.2838E+0, 1.2838E+0, 1.2838E+0, 1.2815E+0, 1.2823E+0, 1.2827E+0,
     * 1.2828E+0, 1.2829E+0, 1.2830E+0, 1.2830E+0, 1.2830E+0, 1.2831E+0,
     * 1.2831E+0, 1.2831E+0, 1.2831E+0, 1.2831E+0, 1.2831E+0, 1.2832E+0,
     * 1.2834E+0, 1.2836E+0, 1.2837E+0, 1.2837E+0, 1.2837E+0, 1.2838E+0,
     * 1.2838E+0, 1.2838E+0, 1.2839E+0, 1.2839E+0, 1.2839E+0, 1.2839E+0,
     * 1.2660E+0, 1.2725E+0, 1.2756E+0, 1.2767E+0, 1.2774E+0/
      DATA X0201/ 1.2778E+0, 1.2781E+0, 1.2782E+0, 1.2783E+0, 1.2784E+0,
     * 1.2784E+0, 1.2784E+0, 1.2785E+0, 1.2787E+0, 1.2793E+0, 1.2809E+0,
     * 1.2823E+0, 1.2829E+0, 1.2833E+0, 1.2835E+0, 1.2838E+0, 1.2840E+0,
     * 1.2842E+0, 1.2844E+0, 1.2845E+0, 1.2846E+0, 1.2846E+0, 1.1852E+0,
     * 1.2177E+0, 1.2363E+0, 1.2425E+0, 1.2470E+0, 1.2494E+0, 1.2507E+0,
     * 1.2514E+0, 1.2521E+0, 1.2525E+0, 1.2529E+0, 1.2530E+0, 1.2531E+0,
     * 1.2545E+0, 1.2581E+0, 1.2671E+0, 1.2755E+0, 1.2788E+0, 1.2810E+0,
     * 1.2821E+0, 1.2841E+0, 1.2854E+0, 1.2863E+0, 1.2876E+0, 1.2881E+0,
     * 1.2884E+0, 1.2888E+0, 1.0134E+0, 1.0965E+0, 1.1470E+0, 1.1654E+0,
     * 1.1787E+0, 1.1857E+0, 1.1894E+0, 1.1914E+0, 1.1936E+0, 1.1948E+0,
     * 1.1959E+0, 1.1962E+0, 1.1964E+0, 1.2006E+0, 1.2110E+0, 1.2371E+0,
     * 1.2609E+0, 1.2703E+0, 1.2765E+0, 1.2795E+0, 1.2850E+0, 1.2886E+0,
     * 1.2913E+0, 1.2948E+0, 1.2960E+0, 1.2971E+0, 1.2982E+0, 8.9563E-1,
     * 1.0099E+0, 1.0814E+0, 1.1083E+0, 1.1284E+0, 1.1388E+0, 1.1444E+0,
     * 1.1474E+0, 1.1506E+0, 1.1525E+0, 1.1540E+0, 1.1545E+0, 1.1549E+0,
     * 1.1611E+0, 1.1767E+0, 1.2156E+0, 1.2508E+0, 1.2646E+0, 1.2737E+0,
     * 1.2782E+0, 1.2861E+0, 1.2914E+0, 1.2952E+0, 1.3004E+0/
      DATA X0301/ 1.3022E+0, 1.3037E+0, 1.3053E+0, 7.7336E-1, 9.1862E-1,
     * 1.0114E+0, 1.0469E+0, 1.0739E+0, 1.0881E+0, 1.0957E+0, 1.0998E+0,
     * 1.1042E+0, 1.1067E+0, 1.1088E+0, 1.1095E+0, 1.1100E+0, 1.1185E+0,
     * 1.1396E+0, 1.1925E+0, 1.2402E+0, 1.2590E+0, 1.2712E+0, 1.2773E+0,
     * 1.2880E+0, 1.2952E+0, 1.3003E+0, 1.3073E+0, 1.3097E+0, 1.3118E+0,
     * 1.3139E+0, 6.8726E-1, 8.5254E-1, 9.5963E-1, 1.0010E+0, 1.0326E+0,
     * 1.0496E+0, 1.0586E+0, 1.0634E+0, 1.0687E+0, 1.0718E+0, 1.0743E+0,
     * 1.0750E+0, 1.0757E+0, 1.0858E+0, 1.1111E+0, 1.1746E+0, 1.2322E+0,
     * 1.2549E+0, 1.2698E+0, 1.2772E+0, 1.2903E+0, 1.2991E+0, 1.3054E+0,
     * 1.3139E+0, 1.3169E+0, 1.3194E+0, 1.3220E+0, 6.3428E-1, 8.1030E-1,
     * 9.2513E-1, 9.6965E-1, 1.0040E+0, 1.0226E+0, 1.0325E+0, 1.0379E+0,
     * 1.0436E+0, 1.0470E+0, 1.0498E+0, 1.0506E+0, 1.0514E+0, 1.0625E+0,
     * 1.0905E+0, 1.1612E+0, 1.2262E+0, 1.2521E+0, 1.2692E+0, 1.2777E+0,
     * 1.2929E+0, 1.3030E+0, 1.3103E+0, 1.3202E+0, 1.3237E+0, 1.3266E+0,
     * 1.3296E+0, 6.1377E-1, 7.9199E-1, 9.0942E-1, 9.5508E-1, 9.9037E-1,
     * 1.0095E+0, 1.0197E+0, 1.0253E+0, 1.0313E+0, 1.0348E+0, 1.0377E+0,
     * 1.0386E+0, 1.0394E+0, 1.0509E+0, 1.0801E+0, 1.1543E+0/
      DATA X0401/ 1.2231E+0, 1.2507E+0, 1.2691E+0, 1.2782E+0, 1.2946E+0,
     * 1.3056E+0, 1.3135E+0, 1.3242E+0, 1.3280E+0, 1.3312E+0, 1.3345E+0,
     * 5.9595E-1, 7.7271E-1, 8.8989E-1, 9.3681E-1, 9.7250E-1, 9.9214E-1,
     * 1.0028E+0, 1.0085E+0, 1.0147E+0, 1.0183E+0, 1.0213E+0, 1.0222E+0,
     * 1.0230E+0, 1.0350E+0, 1.0655E+0, 1.1439E+0, 1.2184E+0, 1.2489E+0,
     * 1.2694E+0, 1.2796E+0, 1.2980E+0, 1.3104E+0, 1.3194E+0, 1.3316E+0,
     * 1.3360E+0, 1.3396E+0, 1.3434E+0, 5.9766E-1, 7.7734E-1, 8.7939E-1,
     * 9.2603E-1, 9.6143E-1, 9.8056E-1, 9.9074E-1, 9.9651E-1, 1.0027E+0,
     * 1.0063E+0, 1.0093E+0, 1.0102E+0, 1.0110E+0, 1.0231E+0, 1.0539E+0,
     * 1.1350E+0, 1.2144E+0, 1.2477E+0, 1.2703E+0, 1.2817E+0, 1.3024E+0,
     * 1.3164E+0, 1.3266E+0, 1.3404E+0, 1.3454E+0, 1.3495E+0, 1.3538E+0,
     * 6.7188E-1, 7.5781E-1, 8.7109E-1, 9.2578E-1, 9.5483E-1, 9.7485E-1,
     * 9.8479E-1, 9.9028E-1, 9.9638E-1, 9.9996E-1, 1.0029E+0, 1.0037E+0,
     * 1.0046E+0, 1.0164E+0, 1.0468E+0, 1.1287E+0, 1.2117E+0, 1.2473E+0,
     * 1.2718E+0, 1.2842E+0, 1.3068E+0, 1.3223E+0, 1.3335E+0, 1.3488E+0,
     * 1.3543E+0, 1.3589E+0, 1.3637E+0, 6.3403E-1, 7.7965E-1, 8.8126E-1,
     * 9.2229E-1, 9.5486E-1, 9.7293E-1, 9.8281E-1, 9.8817E-1/
      DATA X0501/ 9.9404E-1, 9.9750E-1, 1.0003E+0, 1.0012E+0, 1.0020E+0,
     * 1.0135E+0, 1.0435E+0, 1.1254E+0, 1.2103E+0, 1.2474E+0, 1.2730E+0,
     * 1.2861E+0, 1.3101E+0, 1.3264E+0, 1.3384E+0, 1.3547E+0, 1.3606E+0,
     * 1.3655E+0, 1.3706E+0, 6.6574E-1, 7.9709E-1, 8.8803E-1, 9.2554E-1,
     * 9.5573E-1, 9.7263E-1, 9.8192E-1, 9.8702E-1, 9.9260E-1, 9.9589E-1,
     * 9.9861E-1, 9.9942E-1, 1.0002E+0, 1.0113E+0, 1.0404E+0, 1.1218E+0,
     * 1.2090E+0, 1.2479E+0, 1.2750E+0, 1.2889E+0, 1.3146E+0, 1.3322E+0,
     * 1.3450E+0, 1.3627E+0, 1.3690E+0, 1.3743E+0, 1.3798E+0, 7.5800E-1,
     * 8.4622E-1, 9.1110E-1, 9.3918E-1, 9.6259E-1, 9.7606E-1, 9.8360E-1,
     * 9.8778E-1, 9.9239E-1, 9.9514E-1, 9.9741E-1, 9.9809E-1, 9.9873E-1,
     * 1.0082E+0, 1.0340E+0, 1.1135E+0, 1.2091E+0, 1.2547E+0, 1.2874E+0,
     * 1.3045E+0, 1.3364E+0, 1.3587E+0, 1.3750E+0, 1.3977E+0, 1.4059E+0,
     * 1.4127E+0, 1.4198E+0, 7.7051E-1, 8.5036E-1, 9.1232E-1, 9.3909E-1,
     * 9.6181E-1, 9.7500E-1, 9.8241E-1, 9.8651E-1, 9.9107E-1, 9.9378E-1,
     * 9.9604E-1, 9.9671E-1, 9.9734E-1, 1.0067E+0, 1.0324E+0, 1.1127E+0,
     * 1.2103E+0, 1.2571E+0, 1.2909E+0, 1.3085E+0, 1.3415E+0, 1.3646E+0,
     * 1.3815E+0, 1.4050E+0, 1.4135E+0, 1.4206E+0, 1.4280E+0/
      DATA X0601/ 8.5156E-1, 8.3984E-1, 9.1016E-1, 9.4043E-1, 9.5898E-1,
     * 9.7339E-1, 9.8055E-1, 9.8457E-1, 9.8918E-1, 9.9193E-1, 9.9419E-1,
     * 9.9487E-1, 9.9550E-1, 1.0050E+0, 1.0310E+0, 1.1124E+0, 1.2116E+0,
     * 1.2593E+0, 1.2937E+0, 1.3117E+0, 1.3455E+0, 1.3690E+0, 1.3864E+0,
     * 1.4105E+0, 1.4192E+0, 1.4264E+0, 1.4340E+0, 8.2813E-1, 8.2813E-1,
     * 9.0234E-1, 9.3433E-1, 9.5483E-1, 9.6997E-1, 9.7749E-1, 9.8149E-1,
     * 9.8625E-1, 9.8908E-1, 9.9140E-1, 9.9210E-1, 9.9275E-1, 1.0025E+0,
     * 1.0291E+0, 1.1123E+0, 1.2132E+0, 1.2617E+0, 1.2967E+0, 1.3150E+0,
     * 1.3493E+0, 1.3732E+0, 1.3909E+0, 1.4154E+0, 1.4243E+0, 1.4317E+0,
     * 1.4394E+0, 7.3486E-1, 8.2568E-1, 8.9429E-1, 9.2487E-1, 9.4969E-1,
     * 9.6419E-1, 9.7237E-1, 9.7687E-1, 9.8186E-1, 9.8483E-1, 9.8729E-1,
     * 9.8803E-1, 9.8872E-1, 9.9896E-1, 1.0269E+0, 1.1127E+0, 1.2154E+0,
     * 1.2644E+0, 1.2996E+0, 1.3180E+0, 1.3525E+0, 1.3766E+0, 1.3944E+0,
     * 1.4190E+0, 1.4280E+0, 1.4354E+0, 1.4432E+0, 6.9409E-1, 8.0225E-1,
     * 8.8110E-1, 9.1458E-1, 9.4220E-1, 9.5807E-1, 9.6689E-1, 9.7179E-1,
     * 9.7717E-1, 9.8037E-1, 9.8301E-1, 9.8381E-1, 9.8454E-1, 9.9550E-1,
     * 1.0250E+0, 1.1138E+0, 1.2173E+0, 1.2659E+0, 1.3008E+0/
      DATA X0701/ 1.3189E+0, 1.3529E+0, 1.3765E+0, 1.3940E+0, 1.4183E+0,
     * 1.4271E+0, 1.4344E+0, 1.4421E+0, 6.6943E-1, 7.8809E-1, 8.7297E-1,
     * 9.0883E-1, 9.3824E-1, 9.5496E-1, 9.6423E-1, 9.6936E-1, 9.7499E-1,
     * 9.7833E-1, 9.8109E-1, 9.8191E-1, 9.8268E-1, 9.9406E-1, 1.0245E+0,
     * 1.1147E+0, 1.2178E+0, 1.2658E+0, 1.3000E+0, 1.3178E+0, 1.3510E+0,
     * 1.3741E+0, 1.3912E+0, 1.4149E+0, 1.4235E+0, 1.4307E+0, 1.4382E+0,
     * 6.3135E-1, 7.6733E-1, 8.6258E-1, 9.0207E-1, 9.3400E-1, 9.5192E-1,
     * 9.6181E-1, 9.6725E-1, 9.7320E-1, 9.7673E-1, 9.7963E-1, 9.8050E-1,
     * 9.8131E-1, 9.9324E-1, 1.0249E+0, 1.1161E+0, 1.2172E+0, 1.2634E+0,
     * 1.2961E+0, 1.3130E+0, 1.3445E+0, 1.3664E+0, 1.3825E+0, 1.4049E+0,
     * 1.4131E+0, 1.4198E+0, 1.4269E+0, 5.8939E-1, 7.4741E-1, 8.5474E-1,
     * 8.9820E-1, 9.3271E-1, 9.5179E-1, 9.6220E-1, 9.6790E-1, 9.7411E-1,
     * 9.7777E-1, 9.8079E-1, 9.8169E-1, 9.8253E-1, 9.9485E-1, 1.0270E+0,
     * 1.1169E+0, 1.2121E+0, 1.2544E+0, 1.2839E+0, 1.2991E+0, 1.3272E+0,
     * 1.3466E+0, 1.3609E+0, 1.3808E+0, 1.3880E+0, 1.3940E+0, 1.4003E+0,
     * 5.6085E-1, 7.4084E-1, 8.5801E-1, 9.0375E-1, 9.3902E-1, 9.5801E-1,
     * 9.6825E-1, 9.7383E-1, 9.7987E-1, 9.8342E-1, 9.8634E-1/
      DATA X0801/ 9.8721E-1, 9.8802E-1, 9.9984E-1, 1.0302E+0, 1.1112E+0,
     * 1.1913E+0, 1.2251E+0, 1.2480E+0, 1.2596E+0, 1.2809E+0, 1.2954E+0,
     * 1.3060E+0, 1.3208E+0, 1.3262E+0, 1.3306E+0, 1.3353E+0, 5.7016E-1,
     * 7.5594E-1, 8.7121E-1, 9.1404E-1, 9.4573E-1, 9.6250E-1, 9.7145E-1,
     * 9.7630E-1, 9.8153E-1, 9.8460E-1, 9.8711E-1, 9.8786E-1, 9.8855E-1,
     * 9.9867E-1, 1.0243E+0, 1.0894E+0, 1.1486E+0, 1.1716E+0, 1.1865E+0,
     * 1.1939E+0, 1.2070E+0, 1.2157E+0, 1.2221E+0, 1.2309E+0, 1.2341E+0,
     * 1.2367E+0, 1.2395E+0, 6.3346E-1, 7.8307E-1, 8.6594E-1, 8.9275E-1,
     * 9.1168E-1, 9.2134E-1, 9.2639E-1, 9.2910E-1, 9.3198E-1, 9.3366E-1,
     * 9.3503E-1, 9.3544E-1, 9.3581E-1, 9.4124E-1, 9.5441E-1, 9.8349E-1,
     * 1.0015E+0, 1.0050E+0, 1.0058E+0, 1.0057E+0, 1.0047E+0, 1.0036E+0,
     * 1.0025E+0, 1.0010E+0, 1.0005E+0, 1.0000E+0, 9.9962E-1, 6.1362E-1,
     * 6.8256E-1, 7.1039E-1, 7.1765E-1, 7.2192E-1, 7.2375E-1, 7.2459E-1,
     * 7.2500E-1, 7.2542E-1, 7.2564E-1, 7.2581E-1, 7.2586E-1, 7.2591E-1,
     * 7.2650E-1, 7.2729E-1, 7.2345E-1, 7.0853E-1, 6.9780E-1, 6.8871E-1,
     * 6.8353E-1, 6.7313E-1, 6.6543E-1, 6.5956E-1, 6.5134E-1, 6.4837E-1,
     * 6.4590E-1, 6.4335E-1, 5.8835E-1, 6.4235E-1, 6.6284E-1/
      DATA X0901/ 6.6763E-1, 6.7013E-1, 6.7104E-1, 6.7139E-1, 6.7154E-1,
     * 6.7167E-1, 6.7172E-1, 6.7176E-1, 6.7177E-1, 6.7178E-1, 6.7183E-1,
     * 6.7127E-1, 6.6416E-1, 6.4651E-1, 6.3481E-1, 6.2513E-1, 6.1967E-1,
     * 6.0878E-1, 6.0077E-1, 5.9468E-1, 5.8615E-1, 5.8306E-1, 5.8050E-1,
     * 5.7784E-1, 5.0661E-1, 5.3449E-1, 5.4266E-1, 5.4351E-1, 5.4323E-1,
     * 5.4272E-1, 5.4234E-1, 5.4209E-1, 5.4180E-1, 5.4161E-1, 5.4145E-1,
     * 5.4141E-1, 5.4136E-1, 5.4062E-1, 5.3815E-1, 5.2687E-1, 5.0669E-1,
     * 4.9451E-1, 4.8473E-1, 4.7930E-1, 4.6858E-1, 4.6074E-1, 4.5481E-1,
     * 4.4650E-1, 4.4349E-1, 4.4100E-1, 4.3841E-1, 1.0000E+0, 9.9998E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 9.9998E-1, 1.0000E+0, 9.9995E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9994E-1, 9.9993E-1, 9.9997E-1, 9.9997E-1, 9.9997E-1,
     * 9.9997E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1,
     * 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9999E-1, 9.9998E-1,
     * 9.9999E-1, 1.0000E+0, 9.9999E-1, 9.9997E-1, 9.9999E-1/
      DATA X1001/ 9.9994E-1, 1.0000E+0, 9.9999E-1, 1.0000E+0, 1.0000E+0,
     * 9.9936E-1, 9.9949E-1, 9.9963E-1, 9.9967E-1, 9.9970E-1, 9.9972E-1,
     * 9.9973E-1, 9.9973E-1, 9.9974E-1, 9.9974E-1, 9.9975E-1, 9.9975E-1,
     * 9.9975E-1, 9.9976E-1, 9.9978E-1, 9.9985E-1, 9.9989E-1, 9.9992E-1,
     * 9.9994E-1, 9.9993E-1, 9.9991E-1, 9.9994E-1, 9.9989E-1, 9.9995E-1,
     * 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9525E-1, 9.9664E-1, 9.9747E-1,
     * 9.9777E-1, 9.9799E-1, 9.9811E-1, 9.9817E-1, 9.9821E-1, 9.9824E-1,
     * 9.9826E-1, 9.9828E-1, 9.9829E-1, 9.9829E-1, 9.9836E-1, 9.9854E-1,
     * 9.9898E-1, 9.9933E-1, 9.9946E-1, 9.9954E-1, 9.9956E-1, 9.9957E-1,
     * 9.9962E-1, 9.9957E-1, 9.9965E-1, 9.9965E-1, 9.9966E-1, 9.9966E-1,
     * 9.8434E-1, 9.8880E-1, 9.9155E-1, 9.9257E-1, 9.9333E-1, 9.9374E-1,
     * 9.9395E-1, 9.9406E-1, 9.9419E-1, 9.9426E-1, 9.9432E-1, 9.9434E-1,
     * 9.9436E-1, 9.9460E-1, 9.9520E-1, 9.9667E-1, 9.9786E-1, 9.9827E-1,
     * 9.9851E-1, 9.9859E-1, 9.9870E-1, 9.9880E-1, 9.9878E-1, 9.9889E-1,
     * 9.9890E-1, 9.9891E-1, 9.9892E-1, 9.7488E-1, 9.8187E-1, 9.8627E-1,
     * 9.8794E-1, 9.8920E-1, 9.8986E-1, 9.9021E-1, 9.9040E-1, 9.9061E-1,
     * 9.9072E-1, 9.9082E-1, 9.9085E-1, 9.9088E-1, 9.9127E-1/
      DATA X1101/ 9.9226E-1, 9.9467E-1, 9.9660E-1, 9.9726E-1, 9.9762E-1,
     * 9.9776E-1, 9.9796E-1, 9.9811E-1, 9.9811E-1, 9.9825E-1, 9.9827E-1,
     * 9.9829E-1, 9.9830E-1, 9.6336E-1, 9.7311E-1, 9.7957E-1, 9.8201E-1,
     * 9.8389E-1, 9.8489E-1, 9.8542E-1, 9.8570E-1, 9.8601E-1, 9.8619E-1,
     * 9.8634E-1, 9.8639E-1, 9.8643E-1, 9.8702E-1, 9.8850E-1, 9.9211E-1,
     * 9.9500E-1, 9.9597E-1, 9.9651E-1, 9.9672E-1, 9.9702E-1, 9.9723E-1,
     * 9.9726E-1, 9.9744E-1, 9.9747E-1, 9.9749E-1, 9.9752E-1, 9.5166E-1,
     * 9.6484E-1, 9.7327E-1, 9.7653E-1, 9.7903E-1, 9.8034E-1, 9.8103E-1,
     * 9.8141E-1, 9.8181E-1, 9.8205E-1, 9.8224E-1, 9.8230E-1, 9.8235E-1,
     * 9.8313E-1, 9.8506E-1, 9.8976E-1, 9.9352E-1, 9.9478E-1, 9.9547E-1,
     * 9.9575E-1, 9.9615E-1, 9.9641E-1, 9.9647E-1, 9.9668E-1, 9.9672E-1,
     * 9.9675E-1, 9.9678E-1, 9.4507E-1, 9.5898E-1, 9.6860E-1, 9.7211E-1,
     * 9.7495E-1, 9.7650E-1, 9.7733E-1, 9.7778E-1, 9.7826E-1, 9.7854E-1,
     * 9.7877E-1, 9.7884E-1, 9.7890E-1, 9.7983E-1, 9.8213E-1, 9.8773E-1,
     * 9.9223E-1, 9.9372E-1, 9.9455E-1, 9.9489E-1, 9.9537E-1, 9.9567E-1,
     * 9.9576E-1, 9.9600E-1, 9.9604E-1, 9.9609E-1, 9.9612E-1, 9.3652E-1,
     * 9.5361E-1, 9.6486E-1, 9.6942E-1, 9.7256E-1, 9.7431E-1/
      DATA X1201/ 9.7520E-1, 9.7569E-1, 9.7622E-1, 9.7653E-1, 9.7678E-1,
     * 9.7685E-1, 9.7692E-1, 9.7793E-1, 9.8044E-1, 9.8655E-1, 9.9145E-1,
     * 9.9308E-1, 9.9399E-1, 9.9436E-1, 9.9490E-1, 9.9522E-1, 9.9532E-1,
     * 9.9558E-1, 9.9563E-1, 9.9568E-1, 9.9572E-1, 9.3652E-1, 9.5068E-1,
     * 9.6118E-1, 9.6588E-1, 9.6889E-1, 9.7075E-1, 9.7179E-1, 9.7231E-1,
     * 9.7290E-1, 9.7325E-1, 9.7353E-1, 9.7361E-1, 9.7369E-1, 9.7483E-1,
     * 9.7766E-1, 9.8456E-1, 9.9012E-1, 9.9197E-1, 9.9301E-1, 9.9343E-1,
     * 9.9405E-1, 9.9442E-1, 9.9455E-1, 9.9483E-1, 9.9489E-1, 9.9495E-1,
     * 9.9500E-1, 9.1406E-1, 9.4531E-1, 9.5386E-1, 9.6069E-1, 9.6558E-1,
     * 9.6727E-1, 9.6834E-1, 9.6899E-1, 9.6964E-1, 9.7002E-1, 9.7034E-1,
     * 9.7043E-1, 9.7051E-1, 9.7176E-1, 9.7488E-1, 9.8249E-1, 9.8868E-1,
     * 9.9075E-1, 9.9191E-1, 9.9239E-1, 9.9310E-1, 9.9352E-1, 9.9367E-1,
     * 9.9399E-1, 9.9406E-1, 9.9412E-1, 9.9418E-1, 1.0078E+0, 9.3359E-1,
     * 9.5313E-1, 9.6143E-1, 9.6167E-1, 9.6509E-1, 9.6581E-1, 9.6635E-1,
     * 9.6707E-1, 9.6749E-1, 9.6781E-1, 9.6791E-1, 9.6800E-1, 9.6932E-1,
     * 9.7263E-1, 9.8074E-1, 9.8740E-1, 9.8965E-1, 9.9091E-1, 9.9144E-1,
     * 9.9221E-1, 9.9267E-1, 9.9285E-1, 9.9319E-1, 9.9327E-1/
      DATA X1301/ 9.9334E-1, 9.9341E-1, 9.1992E-1, 9.3784E-1, 9.5149E-1,
     * 9.5686E-1, 9.6075E-1, 9.6298E-1, 9.6419E-1, 9.6481E-1, 9.6553E-1,
     * 9.6594E-1, 9.6628E-1, 9.6638E-1, 9.6647E-1, 9.6783E-1, 9.7124E-1,
     * 9.7962E-1, 9.8654E-1, 9.8889E-1, 9.9022E-1, 9.9078E-1, 9.9160E-1,
     * 9.9208E-1, 9.9228E-1, 9.9264E-1, 9.9273E-1, 9.9280E-1, 9.9287E-1,
     * 9.1679E-1, 9.3645E-1, 9.4960E-1, 9.5479E-1, 9.5889E-1, 9.6113E-1,
     * 9.6234E-1, 9.6300E-1, 9.6372E-1, 9.6413E-1, 9.6448E-1, 9.6458E-1,
     * 9.6468E-1, 9.6607E-1, 9.6956E-1, 9.7819E-1, 9.8541E-1, 9.8789E-1,
     * 9.8929E-1, 9.8988E-1, 9.9076E-1, 9.9128E-1, 9.9150E-1, 9.9189E-1,
     * 9.9198E-1, 9.9206E-1, 9.9214E-1, 1.1579E+0, 1.0536E+0, 9.9744E-1,
     * 9.7988E-1, 9.6913E-1, 9.6470E-1, 9.6283E-1, 9.6199E-1, 9.6124E-1,
     * 9.6087E-1, 9.6062E-1, 9.6056E-1, 9.6050E-1, 9.6008E-1, 9.6349E-1,
     * 9.7230E-1, 9.8022E-1, 9.8311E-1, 9.8479E-1, 9.8552E-1, 9.8664E-1,
     * 9.8730E-1, 9.8760E-1, 9.8811E-1, 9.8824E-1, 9.8836E-1, 9.8847E-1,
     * 3.8320E+0, 2.2889E+0, 1.4697E+0, 1.2189E+0, 1.0688E+0, 1.0094E+0,
     * 9.8549E-1, 9.7524E-1, 9.6660E-1, 9.6279E-1, 9.6040E-1, 9.5982E-1,
     * 9.5934E-1, 9.5886E-1, 9.6217E-1, 9.7086E-1, 9.7887E-1/
      DATA X1401/ 9.8183E-1, 9.8358E-1, 9.8434E-1, 9.8551E-1, 9.8620E-1,
     * 9.8653E-1, 9.8707E-1, 9.8721E-1, 9.8733E-1, 9.8746E-1,-1.6406E+1,
     *-6.8789E+0,-1.8750E+0,-3.9648E-1, 4.4897E-1, 7.6147E-1, 8.7439E-1,
     * 9.1704E-1, 9.4717E-1, 9.5638E-1, 9.5896E-1, 9.5884E-1, 9.5835E-1,
     * 9.5782E-1, 9.6104E-1, 9.6961E-1, 9.7768E-1, 9.8071E-1, 9.8250E-1,
     * 9.8329E-1, 9.8451E-1, 9.8523E-1, 9.8558E-1, 9.8614E-1, 9.8630E-1,
     * 9.8643E-1, 9.8656E-1,-1.6465E+1,-6.9297E+0,-1.8945E+0,-4.0430E-1,
     * 4.4434E-1, 7.5903E-1, 8.7277E-1, 9.1566E-1, 9.4597E-1, 9.5522E-1,
     * 9.5779E-1, 9.5767E-1, 9.5717E-1, 9.5658E-1, 9.5968E-1, 9.6812E-1,
     * 9.7626E-1, 9.7936E-1, 9.8122E-1, 9.8204E-1, 9.8331E-1, 9.8407E-1,
     * 9.8444E-1, 9.8503E-1, 9.8520E-1, 9.8534E-1, 9.8548E-1,-1.9873E-1,
     * 4.3140E-1, 7.6343E-1, 8.6292E-1, 9.1994E-1, 9.4144E-1, 9.4951E-1,
     * 9.5265E-1, 9.5499E-1, 9.5582E-1, 9.5618E-1, 9.5604E-1, 9.5554E-1,
     * 9.5487E-1, 9.5784E-1, 9.6613E-1, 9.7438E-1, 9.7758E-1, 9.7952E-1,
     * 9.8038E-1, 9.8172E-1, 9.8253E-1, 9.8293E-1, 9.8357E-1, 9.8375E-1,
     * 9.8390E-1, 9.8406E-1, 8.0322E-1, 8.7378E-1, 9.1664E-1, 9.3166E-1,
     * 9.4225E-1, 9.4754E-1, 9.5017E-1, 9.5155E-1, 9.5299E-1/
      DATA X1501/ 9.5381E-1, 9.5415E-1, 9.5401E-1, 9.5349E-1, 9.5275E-1,
     * 9.5561E-1, 9.6381E-1, 9.7223E-1, 9.7557E-1, 9.7761E-1, 9.7851E-1,
     * 9.7994E-1, 9.8080E-1, 9.8123E-1, 9.8192E-1, 9.8212E-1, 9.8228E-1,
     * 9.8245E-1, 1.0042E+0, 9.6021E-1, 9.4446E-1, 9.4299E-1, 9.4478E-1,
     * 9.4720E-1, 9.4904E-1, 9.5021E-1, 9.5164E-1, 9.5245E-1, 9.5279E-1,
     * 9.5264E-1, 9.5212E-1, 9.5135E-1, 9.5416E-1, 9.6236E-1, 9.7093E-1,
     * 9.7436E-1, 9.7645E-1, 9.7739E-1, 9.7887E-1, 9.7976E-1, 9.8022E-1,
     * 9.8093E-1, 9.8114E-1, 9.8131E-1, 9.8149E-1, 1.0337E+0, 9.7192E-1,
     * 9.4659E-1, 9.4257E-1, 9.4303E-1, 9.4505E-1, 9.4679E-1, 9.4796E-1,
     * 9.4939E-1, 9.5020E-1, 9.5053E-1, 9.5038E-1, 9.4985E-1, 9.4904E-1,
     * 9.5184E-1, 9.6014E-1, 9.6898E-1, 9.7255E-1, 9.7475E-1, 9.7573E-1,
     * 9.7729E-1, 9.7823E-1, 9.7872E-1, 9.7948E-1, 9.7970E-1, 9.7988E-1,
     * 9.8008E-1, 1.0127E+0, 9.6097E-1, 9.4102E-1, 9.3832E-1, 9.3943E-1,
     * 9.4161E-1, 9.4337E-1, 9.4454E-1, 9.4598E-1, 9.4680E-1, 9.4714E-1,
     * 9.4699E-1, 9.4645E-1, 9.4563E-1, 9.4849E-1, 9.5712E-1, 9.6646E-1,
     * 9.7025E-1, 9.7259E-1, 9.7365E-1, 9.7532E-1, 9.7632E-1, 9.7685E-1,
     * 9.7766E-1, 9.7790E-1, 9.7810E-1, 9.7831E-1, 9.6684E-1/
      DATA X1601/ 9.3977E-1, 9.3128E-1, 9.3146E-1, 9.3375E-1, 9.3606E-1,
     * 9.3790E-1, 9.3913E-1, 9.4063E-1, 9.4149E-1, 9.4184E-1, 9.4170E-1,
     * 9.4116E-1, 9.4040E-1, 9.4352E-1, 9.5301E-1, 9.6331E-1, 9.6748E-1,
     * 9.7005E-1, 9.7121E-1, 9.7304E-1, 9.7413E-1, 9.7471E-1, 9.7559E-1,
     * 9.7585E-1, 9.7607E-1, 9.7630E-1, 9.2467E-1, 9.2134E-1, 9.2321E-1,
     * 9.2548E-1, 9.2818E-1, 9.3075E-1, 9.3274E-1, 9.3406E-1, 9.3566E-1,
     * 9.3657E-1, 9.3697E-1, 9.3683E-1, 9.3629E-1, 9.3566E-1, 9.3922E-1,
     * 9.4991E-1, 9.6135E-1, 9.6593E-1, 9.6873E-1, 9.6998E-1, 9.7196E-1,
     * 9.7312E-1, 9.7374E-1, 9.7466E-1, 9.7493E-1, 9.7516E-1, 9.7540E-1,
     * 8.8552E-1, 9.0390E-1, 9.1451E-1, 9.1813E-1, 9.2193E-1, 9.2513E-1,
     * 9.2749E-1, 9.2903E-1, 9.3086E-1, 9.3191E-1, 9.3241E-1, 9.3229E-1,
     * 9.3175E-1, 9.3143E-1, 9.3599E-1, 9.4927E-1, 9.6292E-1, 9.6821E-1,
     * 9.7137E-1, 9.7276E-1, 9.7490E-1, 9.7612E-1, 9.7674E-1, 9.7762E-1,
     * 9.7787E-1, 9.7807E-1, 9.7828E-1, 8.6771E-1, 9.0356E-1, 9.1890E-1,
     * 9.2436E-1, 9.2962E-1, 9.3367E-1, 9.3653E-1, 9.3834E-1, 9.4049E-1,
     * 9.4171E-1, 9.4234E-1, 9.4224E-1, 9.4170E-1, 9.4176E-1, 9.4757E-1,
     * 9.6395E-1, 9.7994E-1, 9.8583E-1, 9.8920E-1, 9.9061E-1/
      DATA X1701/ 9.9265E-1, 9.9369E-1, 9.9410E-1, 9.9460E-1, 9.9468E-1,
     * 9.9474E-1, 9.9477E-1, 8.6975E-1, 9.0647E-1, 9.2264E-1, 9.2842E-1,
     * 9.3392E-1, 9.3812E-1, 9.4106E-1, 9.4292E-1, 9.4513E-1, 9.4639E-1,
     * 9.4704E-1, 9.4694E-1, 9.4640E-1, 9.4651E-1, 9.5253E-1, 9.6941E-1,
     * 9.8574E-1, 9.9168E-1, 9.9504E-1, 9.9643E-1, 9.9840E-1, 9.9935E-1,
     * 9.9968E-1, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 8.7906E-1,
     * 9.1766E-1, 9.3555E-1, 9.4197E-1, 9.4799E-1, 9.5250E-1, 9.5562E-1,
     * 9.5759E-1, 9.5992E-1, 9.6125E-1, 9.6194E-1, 9.6185E-1, 9.6130E-1,
     * 9.6152E-1, 9.6796E-1, 9.8585E-1, 1.0028E+0, 1.0087E+0, 1.0120E+0,
     * 1.0133E+0, 1.0150E+0, 1.0157E+0, 1.0158E+0, 1.0158E+0, 1.0156E+0,
     * 1.0155E+0, 1.0153E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9991E-1,
     * 9.9992E-1, 9.9994E-1, 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9995E-1,
     * 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9996E-1, 9.9995E-1/
      DATA X1801/ 9.9995E-1, 9.9996E-1, 9.9996E-1, 9.9997E-1, 9.9998E-1,
     * 9.9998E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9998E-1, 9.9998E-1,
     * 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9913E-1, 9.9926E-1,
     * 9.9940E-1, 9.9945E-1, 9.9950E-1, 9.9952E-1, 9.9953E-1, 9.9954E-1,
     * 9.9955E-1, 9.9955E-1, 9.9956E-1, 9.9956E-1, 9.9956E-1, 9.9957E-1,
     * 9.9961E-1, 9.9972E-1, 9.9981E-1, 9.9984E-1, 9.9986E-1, 9.9986E-1,
     * 9.9986E-1, 9.9985E-1, 9.9984E-1, 9.9982E-1, 9.9981E-1, 9.9980E-1,
     * 9.9979E-1, 9.9415E-1, 9.9540E-1, 9.9625E-1, 9.9660E-1, 9.9688E-1,
     * 9.9703E-1, 9.9711E-1, 9.9716E-1, 9.9721E-1, 9.9724E-1, 9.9726E-1,
     * 9.9727E-1, 9.9727E-1, 9.9737E-1, 9.9762E-1, 9.9828E-1, 9.9887E-1,
     * 9.9905E-1, 9.9913E-1, 9.9915E-1, 9.9915E-1, 9.9910E-1, 9.9903E-1,
     * 9.9890E-1, 9.9884E-1, 9.9878E-1, 9.9871E-1, 9.8070E-1, 9.8517E-1,
     * 9.8812E-1, 9.8928E-1, 9.9018E-1, 9.9068E-1, 9.9095E-1, 9.9109E-1,
     * 9.9125E-1, 9.9134E-1, 9.9142E-1, 9.9144E-1, 9.9146E-1, 9.9178E-1,
     * 9.9258E-1, 9.9470E-1, 9.9656E-1, 9.9714E-1, 9.9739E-1, 9.9745E-1,
     * 9.9743E-1, 9.9727E-1, 9.9707E-1, 9.9666E-1, 9.9646E-1, 9.9628E-1,
     * 9.9608E-1, 9.6883E-1, 9.7615E-1, 9.8096E-1, 9.8287E-1/
      DATA X1901/ 9.8435E-1, 9.8516E-1, 9.8560E-1, 9.8584E-1, 9.8610E-1,
     * 9.8625E-1, 9.8638E-1, 9.8641E-1, 9.8645E-1, 9.8696E-1, 9.8826E-1,
     * 9.9168E-1, 9.9465E-1, 9.9556E-1, 9.9595E-1, 9.9605E-1, 9.9600E-1,
     * 9.9575E-1, 9.9543E-1, 9.9477E-1, 9.9446E-1, 9.9418E-1, 9.9385E-1,
     * 9.5367E-1, 9.6440E-1, 9.7174E-1, 9.7461E-1, 9.7687E-1, 9.7810E-1,
     * 9.7876E-1, 9.7912E-1, 9.7952E-1, 9.7975E-1, 9.7994E-1, 9.7999E-1,
     * 9.8005E-1, 9.8081E-1, 9.8278E-1, 9.8788E-1, 9.9226E-1, 9.9359E-1,
     * 9.9415E-1, 9.9428E-1, 9.9418E-1, 9.9379E-1, 9.9330E-1, 9.9232E-1,
     * 9.9187E-1, 9.9145E-1, 9.9097E-1, 9.3848E-1, 9.5313E-1, 9.6303E-1,
     * 9.6690E-1, 9.6994E-1, 9.7157E-1, 9.7245E-1, 9.7293E-1, 9.7345E-1,
     * 9.7375E-1, 9.7400E-1, 9.7408E-1, 9.7415E-1, 9.7516E-1, 9.7774E-1,
     * 9.8440E-1, 9.9005E-1, 9.9173E-1, 9.9242E-1, 9.9257E-1, 9.9240E-1,
     * 9.9187E-1, 9.9122E-1, 9.8993E-1, 9.8934E-1, 9.8879E-1, 9.8817E-1,
     * 9.2822E-1, 9.4458E-1, 9.5595E-1, 9.6048E-1, 9.6403E-1, 9.6599E-1,
     * 9.6705E-1, 9.6763E-1, 9.6825E-1, 9.6862E-1, 9.6892E-1, 9.6901E-1,
     * 9.6909E-1, 9.7031E-1, 9.7342E-1, 9.8139E-1, 9.8809E-1, 9.9005E-1,
     * 9.9083E-1, 9.9099E-1, 9.9073E-1, 9.9006E-1, 9.8926E-1/
      DATA X2001/ 9.8768E-1, 9.8696E-1, 9.8630E-1, 9.8555E-1, 9.1724E-1,
     * 9.3750E-1, 9.5129E-1, 9.5657E-1, 9.6054E-1, 9.6276E-1, 9.6391E-1,
     * 9.6455E-1, 9.6523E-1, 9.6564E-1, 9.6597E-1, 9.6607E-1, 9.6616E-1,
     * 9.6749E-1, 9.7090E-1, 9.7961E-1, 9.8689E-1, 9.8901E-1, 9.8983E-1,
     * 9.8999E-1, 9.8967E-1, 9.8891E-1, 9.8801E-1, 9.8626E-1, 9.8546E-1,
     * 9.8473E-1, 9.8390E-1, 9.1455E-1, 9.3188E-1, 9.4531E-1, 9.5105E-1,
     * 9.5503E-1, 9.5744E-1, 9.5879E-1, 9.5949E-1, 9.6026E-1, 9.6072E-1,
     * 9.6110E-1, 9.6121E-1, 9.6132E-1, 9.6284E-1, 9.6672E-1, 9.7660E-1,
     * 9.8479E-1, 9.8713E-1, 9.8800E-1, 9.8814E-1, 9.8770E-1, 9.8677E-1,
     * 9.8571E-1, 9.8364E-1, 9.8271E-1, 9.8187E-1, 9.8090E-1, 8.8281E-1,
     * 9.2188E-1, 9.3506E-1, 9.4409E-1, 9.4995E-1, 9.5212E-1, 9.5358E-1,
     * 9.5444E-1, 9.5530E-1, 9.5581E-1, 9.5623E-1, 9.5636E-1, 9.5648E-1,
     * 9.5817E-1, 9.6248E-1, 9.7343E-1, 9.8244E-1, 9.8496E-1, 9.8585E-1,
     * 9.8595E-1, 9.8535E-1, 9.8423E-1, 9.8297E-1, 9.8057E-1, 9.7950E-1,
     * 9.7852E-1, 9.7742E-1, 9.4922E-1, 9.1406E-1, 9.2969E-1, 9.4507E-1,
     * 9.4482E-1, 9.4873E-1, 9.4986E-1, 9.5039E-1, 9.5132E-1, 9.5189E-1,
     * 9.5232E-1, 9.5245E-1, 9.5258E-1, 9.5439E-1, 9.5900E-1/
      DATA X2101/ 9.7070E-1, 9.8027E-1, 9.8289E-1, 9.8376E-1, 9.8382E-1,
     * 9.8306E-1, 9.8175E-1, 9.8032E-1, 9.7761E-1, 9.7642E-1, 9.7533E-1,
     * 9.7410E-1, 8.8965E-1, 9.1252E-1, 9.3022E-1, 9.3709E-1, 9.4244E-1,
     * 9.4544E-1, 9.4706E-1, 9.4792E-1, 9.4889E-1, 9.4946E-1, 9.4992E-1,
     * 9.5006E-1, 9.5018E-1, 9.5206E-1, 9.5682E-1, 9.6891E-1, 9.7876E-1,
     * 9.8142E-1, 9.8226E-1, 9.8228E-1, 9.8140E-1, 9.7997E-1, 9.7841E-1,
     * 9.7551E-1, 9.7423E-1, 9.7307E-1, 9.7177E-1, 8.8368E-1, 9.0947E-1,
     * 9.2690E-1, 9.3387E-1, 9.3941E-1, 9.4246E-1, 9.4412E-1, 9.4502E-1,
     * 9.4600E-1, 9.4658E-1, 9.4706E-1, 9.4720E-1, 9.4733E-1, 9.4926E-1,
     * 9.5416E-1, 9.6661E-1, 9.7671E-1, 9.7938E-1, 9.8017E-1, 9.8014E-1,
     * 9.7909E-1, 9.7749E-1, 9.7578E-1, 9.7262E-1, 9.7124E-1, 9.6999E-1,
     * 9.6859E-1, 1.2441E+0, 1.0842E+0, 9.9779E-1, 9.7067E-1, 9.5394E-1,
     * 9.4698E-1, 9.4401E-1, 9.4267E-1, 9.4144E-1, 9.4085E-1, 9.4043E-1,
     * 9.4032E-1, 9.4022E-1, 9.3943E-1, 9.4416E-1, 9.5637E-1, 9.6625E-1,
     * 9.6857E-1, 9.6893E-1, 9.6858E-1, 9.6675E-1, 9.6444E-1, 9.6211E-1,
     * 9.5798E-1, 9.5621E-1, 9.5464E-1, 9.5288E-1, 5.2939E+0, 2.9548E+0,
     * 1.7124E+0, 1.3327E+0, 1.1046E+0, 1.0144E+0, 9.7809E-1/
      DATA X2201/ 9.6252E-1, 9.4934E-1, 9.4351E-1, 9.3984E-1, 9.3895E-1,
     * 9.3821E-1, 9.3731E-1, 9.4184E-1, 9.5364E-1, 9.6321E-1, 9.6540E-1,
     * 9.6563E-1, 9.6520E-1, 9.6319E-1, 9.6072E-1, 9.5828E-1, 9.5396E-1,
     * 9.5212E-1, 9.5049E-1, 9.4867E-1,-2.5359E+1,-1.0930E+1,-3.3594E+0,
     *-1.1143E+0, 1.6553E-1, 6.3867E-1, 8.0945E-1, 8.7413E-1, 9.1966E-1,
     * 9.3356E-1, 9.3741E-1, 9.3721E-1, 9.3646E-1, 9.3545E-1, 9.3979E-1,
     * 9.5117E-1, 9.6045E-1, 9.6251E-1, 9.6263E-1, 9.6213E-1, 9.5999E-1,
     * 9.5741E-1, 9.5487E-1, 9.5041E-1, 9.4853E-1, 9.4685E-1, 9.4499E-1,
     *-2.5645E+1,-1.1047E+1,-3.3984E+0,-1.1353E+0, 1.5649E-1, 6.3354E-1,
     * 8.0620E-1, 8.7149E-1, 9.1740E-1, 9.3140E-1, 9.3527E-1, 9.3506E-1,
     * 9.3428E-1, 9.3314E-1, 9.3724E-1, 9.4809E-1, 9.5702E-1, 9.5894E-1,
     * 9.5894E-1, 9.5838E-1, 9.5609E-1, 9.5339E-1, 9.5076E-1, 9.4617E-1,
     * 9.4424E-1, 9.4253E-1, 9.4063E-1,-8.1323E-1, 1.4136E-1, 6.4282E-1,
     * 7.9233E-1, 8.7834E-1, 9.1052E-1, 9.2249E-1, 9.2712E-1, 9.3053E-1,
     * 9.3169E-1, 9.3216E-1, 9.3193E-1, 9.3114E-1, 9.2983E-1, 9.3360E-1,
     * 9.4379E-1, 9.5229E-1, 9.5405E-1, 9.5394E-1, 9.5331E-1, 9.5086E-1,
     * 9.4805E-1, 9.4533E-1, 9.4062E-1, 9.3865E-1, 9.3690E-1/
      DATA X2301/ 9.3497E-1, 7.1313E-1, 8.1445E-1, 8.7523E-1, 8.9644E-1,
     * 9.1141E-1, 9.1884E-1, 9.2255E-1, 9.2447E-1, 9.2648E-1, 9.2761E-1,
     * 9.2804E-1, 9.2780E-1, 9.2698E-1, 9.2550E-1, 9.2894E-1, 9.3848E-1,
     * 9.4662E-1, 9.4827E-1, 9.4807E-1, 9.4738E-1, 9.4483E-1, 9.4194E-1,
     * 9.3916E-1, 9.3437E-1, 9.3238E-1, 9.3061E-1, 9.2868E-1, 1.0139E+0,
     * 9.4360E-1, 9.1638E-1, 9.1286E-1, 9.1452E-1, 9.1759E-1, 9.2004E-1,
     * 9.2164E-1, 9.2361E-1, 9.2473E-1, 9.2514E-1, 9.2489E-1, 9.2407E-1,
     * 9.2250E-1, 9.2577E-1, 9.3502E-1, 9.4303E-1, 9.4464E-1, 9.4442E-1,
     * 9.4372E-1, 9.4114E-1, 9.3822E-1, 9.3542E-1, 9.3062E-1, 9.2862E-1,
     * 9.2686E-1, 9.2493E-1, 1.0574E+0, 9.5947E-1, 9.1832E-1, 9.1087E-1,
     * 9.1045E-1, 9.1286E-1, 9.1514E-1, 9.1671E-1, 9.1864E-1, 9.1973E-1,
     * 9.2012E-1, 9.1987E-1, 9.1903E-1, 9.1736E-1, 9.2046E-1, 9.2944E-1,
     * 9.3741E-1, 9.3904E-1, 9.3883E-1, 9.3813E-1, 9.3554E-1, 9.3262E-1,
     * 9.2982E-1, 9.2503E-1, 9.2305E-1, 9.2130E-1, 9.1938E-1, 1.0206E+0,
     * 9.3997E-1, 9.0724E-1, 9.0192E-1, 9.0242E-1, 9.0500E-1, 9.0723E-1,
     * 9.0878E-1, 9.1069E-1, 9.1177E-1, 9.1215E-1, 9.1188E-1, 9.1104E-1,
     * 9.0932E-1, 9.1235E-1, 9.2136E-1, 9.2961E-1, 9.3138E-1/
      DATA X2401/ 9.3125E-1, 9.3060E-1, 9.2808E-1, 9.2522E-1, 9.2246E-1,
     * 9.1776E-1, 9.1582E-1, 9.1411E-1, 9.1223E-1, 9.4655E-1, 9.0314E-1,
     * 8.8770E-1, 8.8656E-1, 8.8869E-1, 8.9135E-1, 8.9363E-1, 8.9520E-1,
     * 8.9715E-1, 8.9824E-1, 8.9864E-1, 8.9838E-1, 8.9755E-1, 8.9593E-1,
     * 8.9920E-1, 9.0908E-1, 9.1833E-1, 9.2052E-1, 9.2065E-1, 9.2013E-1,
     * 9.1785E-1, 9.1515E-1, 9.1253E-1, 9.0804E-1, 9.0619E-1, 9.0455E-1,
     * 9.0277E-1, 8.7891E-1, 8.6982E-1, 8.6931E-1, 8.7118E-1, 8.7389E-1,
     * 8.7684E-1, 8.7928E-1, 8.8093E-1, 8.8295E-1, 8.8409E-1, 8.8454E-1,
     * 8.8430E-1, 8.8350E-1, 8.8215E-1, 8.8598E-1, 8.9737E-1, 9.0806E-1,
     * 9.1080E-1, 9.1128E-1, 9.1093E-1, 9.0895E-1, 9.0647E-1, 9.0402E-1,
     * 8.9978E-1, 8.9802E-1, 8.9648E-1, 8.9480E-1, 8.1090E-1, 8.3093E-1,
     * 8.4237E-1, 8.4623E-1, 8.5042E-1, 8.5409E-1, 8.5685E-1, 8.5865E-1,
     * 8.6083E-1, 8.6206E-1, 8.6262E-1, 8.6244E-1, 8.6173E-1, 8.6103E-1,
     * 8.6606E-1, 8.8044E-1, 8.9369E-1, 8.9736E-1, 8.9844E-1, 8.9837E-1,
     * 8.9692E-1, 8.9478E-1, 8.9260E-1, 8.8876E-1, 8.8715E-1, 8.8574E-1,
     * 8.8419E-1, 7.6840E-1, 8.0644E-1, 8.2259E-1, 8.2834E-1, 8.3384E-1,
     * 8.3806E-1, 8.4103E-1, 8.4292E-1, 8.4516E-1, 8.4644E-1/
      DATA X2501/ 8.4708E-1, 8.4697E-1, 8.4638E-1, 8.4633E-1, 8.5230E-1,
     * 8.6893E-1, 8.8400E-1, 8.8832E-1, 8.8980E-1, 8.8993E-1, 8.8881E-1,
     * 8.8691E-1, 8.8489E-1, 8.8127E-1, 8.7974E-1, 8.7840E-1, 8.7693E-1,
     * 7.6591E-1, 8.0392E-1, 8.2059E-1, 8.2655E-1, 8.3219E-1, 8.3646E-1,
     * 8.3944E-1, 8.4134E-1, 8.4358E-1, 8.4485E-1, 8.4550E-1, 8.4540E-1,
     * 8.4482E-1, 8.4486E-1, 8.5093E-1, 8.6777E-1, 8.8301E-1, 8.8739E-1,
     * 8.8891E-1, 8.8905E-1, 8.8797E-1, 8.8608E-1, 8.8407E-1, 8.8046E-1,
     * 8.7894E-1, 8.7760E-1, 8.7613E-1, 7.6245E-1, 8.0002E-1, 8.1750E-1,
     * 8.2381E-1, 8.2967E-1, 8.3401E-1, 8.3700E-1, 8.3889E-1, 8.4111E-1,
     * 8.4238E-1, 8.4304E-1, 8.4295E-1, 8.4241E-1, 8.4261E-1, 8.4882E-1,
     * 8.6598E-1, 8.8146E-1, 8.8592E-1, 8.8748E-1, 8.8765E-1, 8.8660E-1,
     * 8.8474E-1, 8.8274E-1, 8.7914E-1, 8.7762E-1, 8.7627E-1, 8.7480E-1,
     * 1.0000E+0, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0003E+0, 1.0010E+0/
      DATA X2601/ 1.0009E+0, 1.0008E+0, 1.0008E+0, 1.0007E+0, 1.0007E+0,
     * 1.0007E+0, 1.0007E+0, 1.0007E+0, 1.0007E+0, 1.0007E+0, 1.0007E+0,
     * 1.0006E+0, 1.0006E+0, 1.0004E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0032E+0, 1.0096E+0, 1.0088E+0, 1.0081E+0,
     * 1.0074E+0, 1.0070E+0, 1.0068E+0, 1.0067E+0, 1.0066E+0, 1.0065E+0,
     * 1.0064E+0, 1.0064E+0, 1.0064E+0, 1.0061E+0, 1.0055E+0, 1.0036E+0,
     * 1.0018E+0, 1.0011E+0, 1.0007E+0, 1.0006E+0, 1.0003E+0, 1.0002E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0613E+0,
     * 1.0610E+0, 1.0548E+0, 1.0501E+0, 1.0460E+0, 1.0436E+0, 1.0423E+0,
     * 1.0415E+0, 1.0407E+0, 1.0402E+0, 1.0398E+0, 1.0397E+0, 1.0396E+0,
     * 1.0380E+0, 1.0337E+0, 1.0219E+0, 1.0108E+0, 1.0068E+0, 1.0045E+0,
     * 1.0034E+0, 1.0019E+0, 1.0011E+0, 1.0007E+0, 1.0003E+0, 1.0002E+0,
     * 1.0001E+0, 1.0001E+0, 1.2608E+0, 1.2132E+0, 1.1766E+0, 1.1601E+0,
     * 1.1461E+0, 1.1382E+0, 1.1337E+0, 1.1313E+0, 1.1287E+0, 1.1271E+0,
     * 1.1258E+0, 1.1254E+0, 1.1251E+0, 1.1198E+0, 1.1059E+0, 1.0682E+0,
     * 1.0334E+0, 1.0209E+0, 1.0137E+0, 1.0106E+0, 1.0059E+0/
      DATA X2701/ 1.0035E+0, 1.0021E+0, 1.0009E+0, 1.0006E+0, 1.0004E+0,
     * 1.0002E+0, 1.4550E+0, 1.3557E+0, 1.2863E+0, 1.2573E+0, 1.2339E+0,
     * 1.2207E+0, 1.2134E+0, 1.2094E+0, 1.2051E+0, 1.2025E+0, 1.2004E+0,
     * 1.1998E+0, 1.1992E+0, 1.1905E+0, 1.1680E+0, 1.1077E+0, 1.0525E+0,
     * 1.0328E+0, 1.0215E+0, 1.0166E+0, 1.0092E+0, 1.0054E+0, 1.0033E+0,
     * 1.0013E+0, 1.0009E+0, 1.0006E+0, 1.0003E+0, 1.7041E+0, 1.5392E+0,
     * 1.4270E+0, 1.3814E+0, 1.3450E+0, 1.3249E+0, 1.3139E+0, 1.3079E+0,
     * 1.3013E+0, 1.2974E+0, 1.2942E+0, 1.2933E+0, 1.2924E+0, 1.2794E+0,
     * 1.2459E+0, 1.1568E+0, 1.0761E+0, 1.0475E+0, 1.0311E+0, 1.0240E+0,
     * 1.0132E+0, 1.0078E+0, 1.0047E+0, 1.0019E+0, 1.0012E+0, 1.0008E+0,
     * 1.0004E+0, 1.9253E+0, 1.7024E+0, 1.5525E+0, 1.4918E+0, 1.4439E+0,
     * 1.4174E+0, 1.4030E+0, 1.3951E+0, 1.3865E+0, 1.3815E+0, 1.3773E+0,
     * 1.3761E+0, 1.3749E+0, 1.3581E+0, 1.3145E+0, 1.2001E+0, 1.0970E+0,
     * 1.0606E+0, 1.0396E+0, 1.0305E+0, 1.0168E+0, 1.0098E+0, 1.0060E+0,
     * 1.0024E+0, 1.0015E+0, 1.0010E+0, 1.0005E+0, 2.1057E+0, 1.8352E+0,
     * 1.6537E+0, 1.5809E+0, 1.5233E+0, 1.4918E+0, 1.4746E+0, 1.4652E+0,
     * 1.4550E+0, 1.4490E+0, 1.4441E+0, 1.4426E+0, 1.4413E+0/
      DATA X2801/ 1.4213E+0, 1.3698E+0, 1.2351E+0, 1.1141E+0, 1.0713E+0,
     * 1.0467E+0, 1.0359E+0, 1.0198E+0, 1.0116E+0, 1.0071E+0, 1.0028E+0,
     * 1.0018E+0, 1.0011E+0, 1.0006E+0, 2.1931E+0, 1.9011E+0, 1.7065E+0,
     * 1.6284E+0, 1.5662E+0, 1.5320E+0, 1.5134E+0, 1.5032E+0, 1.4922E+0,
     * 1.4857E+0, 1.4803E+0, 1.4787E+0, 1.4773E+0, 1.4556E+0, 1.3999E+0,
     * 1.2544E+0, 1.1237E+0, 1.0774E+0, 1.0507E+0, 1.0390E+0, 1.0215E+0,
     * 1.0126E+0, 1.0077E+0, 1.0030E+0, 1.0019E+0, 1.0012E+0, 1.0006E+0,
     * 2.3398E+0, 2.0107E+0, 1.7883E+0, 1.7002E+0, 1.6304E+0, 1.5922E+0,
     * 1.5715E+0, 1.5601E+0, 1.5478E+0, 1.5406E+0, 1.5346E+0, 1.5328E+0,
     * 1.5312E+0, 1.5071E+0, 1.4453E+0, 1.2841E+0, 1.1389E+0, 1.0871E+0,
     * 1.0571E+0, 1.0440E+0, 1.0243E+0, 1.0142E+0, 1.0086E+0, 1.0034E+0,
     * 1.0021E+0, 1.0013E+0, 1.0006E+0, 2.4219E+0, 2.0898E+0, 1.8477E+0,
     * 1.7571E+0, 1.6833E+0, 1.6421E+0, 1.6195E+0, 1.6074E+0, 1.5942E+0,
     * 1.5864E+0, 1.5800E+0, 1.5781E+0, 1.5763E+0, 1.5504E+0, 1.4840E+0,
     * 1.3105E+0, 1.1530E+0, 1.0963E+0, 1.0634E+0, 1.0489E+0, 1.0270E+0,
     * 1.0158E+0, 1.0096E+0, 1.0037E+0, 1.0023E+0, 1.0014E+0, 1.0007E+0,
     * 2.5000E+0, 2.1094E+0, 1.8867E+0, 1.7891E+0, 1.7151E+0/
      DATA X2901/ 1.6721E+0, 1.6484E+0, 1.6360E+0, 1.6223E+0, 1.6143E+0,
     * 1.6077E+0, 1.6057E+0, 1.6039E+0, 1.5771E+0, 1.5086E+0, 1.3287E+0,
     * 1.1636E+0, 1.1035E+0, 1.0684E+0, 1.0529E+0, 1.0293E+0, 1.0171E+0,
     * 1.0104E+0, 1.0040E+0, 1.0025E+0, 1.0015E+0, 1.0007E+0, 2.5200E+0,
     * 2.1465E+0, 1.9032E+0, 1.8044E+0, 1.7263E+0, 1.6838E+0, 1.6606E+0,
     * 1.6479E+0, 1.6342E+0, 1.6261E+0, 1.6194E+0, 1.6175E+0, 1.6156E+0,
     * 1.5887E+0, 1.5197E+0, 1.3380E+0, 1.1697E+0, 1.1077E+0, 1.0713E+0,
     * 1.0552E+0, 1.0307E+0, 1.0180E+0, 1.0109E+0, 1.0042E+0, 1.0026E+0,
     * 1.0015E+0, 1.0007E+0, 2.4727E+0, 2.1317E+0, 1.9002E+0, 1.8060E+0,
     * 1.7312E+0, 1.6898E+0, 1.6672E+0, 1.6548E+0, 1.6413E+0, 1.6334E+0,
     * 1.6269E+0, 1.6249E+0, 1.6231E+0, 1.5965E+0, 1.5282E+0, 1.3470E+0,
     * 1.1763E+0, 1.1126E+0, 1.0749E+0, 1.0581E+0, 1.0323E+0, 1.0190E+0,
     * 1.0115E+0, 1.0044E+0, 1.0027E+0, 1.0016E+0, 1.0007E+0, 2.1530E+0,
     * 1.9247E+0, 1.7663E+0, 1.7006E+0, 1.6477E+0, 1.6181E+0, 1.6018E+0,
     * 1.5928E+0, 1.5830E+0, 1.5772E+0, 1.5724E+0, 1.5709E+0, 1.5696E+0,
     * 1.5500E+0, 1.4986E+0, 1.3513E+0, 1.1926E+0, 1.1271E+0, 1.0863E+0,
     * 1.0676E+0, 1.0383E+0, 1.0226E+0, 1.0138E+0, 1.0052E+0/
      DATA X3001/ 1.0031E+0, 1.0017E+0, 1.0006E+0, 2.0532E+0, 1.8499E+0,
     * 1.7135E+0, 1.6562E+0, 1.6102E+0, 1.5845E+0, 1.5703E+0, 1.5625E+0,
     * 1.5540E+0, 1.5490E+0, 1.5449E+0, 1.5437E+0, 1.5425E+0, 1.5256E+0,
     * 1.4806E+0, 1.3468E+0, 1.1945E+0, 1.1295E+0, 1.0885E+0, 1.0695E+0,
     * 1.0395E+0, 1.0234E+0, 1.0142E+0, 1.0053E+0, 1.0032E+0, 1.0017E+0,
     * 1.0006E+0, 2.0000E+0, 1.7578E+0, 1.6602E+0, 1.6133E+0, 1.5759E+0,
     * 1.5540E+0, 1.5410E+0, 1.5348E+0, 1.5275E+0, 1.5233E+0, 1.5198E+0,
     * 1.5187E+0, 1.5177E+0, 1.5032E+0, 1.4641E+0, 1.3424E+0, 1.1959E+0,
     * 1.1315E+0, 1.0902E+0, 1.0710E+0, 1.0405E+0, 1.0240E+0, 1.0146E+0,
     * 1.0054E+0, 1.0032E+0, 1.0017E+0, 1.0006E+0, 1.8750E+0, 1.6445E+0,
     * 1.5898E+0, 1.5625E+0, 1.5310E+0, 1.5166E+0, 1.5071E+0, 1.5022E+0,
     * 1.4964E+0, 1.4930E+0, 1.4902E+0, 1.4894E+0, 1.4886E+0, 1.4769E+0,
     * 1.4447E+0, 1.3373E+0, 1.1976E+0, 1.1337E+0, 1.0922E+0, 1.0728E+0,
     * 1.0416E+0, 1.0247E+0, 1.0150E+0, 1.0055E+0, 1.0032E+0, 1.0017E+0,
     * 1.0005E+0, 1.6055E+0, 1.5608E+0, 1.5193E+0, 1.5000E+0, 1.4824E+0,
     * 1.4719E+0, 1.4659E+0, 1.4625E+0, 1.4587E+0, 1.4564E+0, 1.4545E+0,
     * 1.4540E+0, 1.4534E+0, 1.4453E+0, 1.4217E+0, 1.3317E+0/
      DATA X3101/ 1.2001E+0, 1.1367E+0, 1.0949E+0, 1.0751E+0, 1.0431E+0,
     * 1.0256E+0, 1.0155E+0, 1.0057E+0, 1.0033E+0, 1.0017E+0, 1.0004E+0,
     * 1.4148E+0, 1.4365E+0, 1.4412E+0, 1.4384E+0, 1.4335E+0, 1.4295E+0,
     * 1.4269E+0, 1.4254E+0, 1.4235E+0, 1.4224E+0, 1.4214E+0, 1.4211E+0,
     * 1.4208E+0, 1.4163E+0, 1.4012E+0, 1.3283E+0, 1.2038E+0, 1.1406E+0,
     * 1.0980E+0, 1.0777E+0, 1.0447E+0, 1.0265E+0, 1.0160E+0, 1.0058E+0,
     * 1.0033E+0, 1.0016E+0, 1.0003E+0, 1.3247E+0, 1.3792E+0, 1.4036E+0,
     * 1.4086E+0, 1.4100E+0, 1.4094E+0, 1.4086E+0, 1.4079E+0, 1.4071E+0,
     * 1.4066E+0, 1.4061E+0, 1.4059E+0, 1.4058E+0, 1.4032E+0, 1.3926E+0,
     * 1.3282E+0, 1.2067E+0, 1.1432E+0, 1.1001E+0, 1.0794E+0, 1.0457E+0,
     * 1.0271E+0, 1.0163E+0, 1.0058E+0, 1.0032E+0, 1.0016E+0, 1.0002E+0,
     * 1.1943E+0, 1.3005E+0, 1.3570E+0, 1.3740E+0, 1.3841E+0, 1.3880E+0,
     * 1.3895E+0, 1.3901E+0, 1.3906E+0, 1.3908E+0, 1.3909E+0, 1.3909E+0,
     * 1.3909E+0, 1.3907E+0, 1.3856E+0, 1.3312E+0, 1.2121E+0, 1.1476E+0,
     * 1.1034E+0, 1.0821E+0, 1.0472E+0, 1.0279E+0, 1.0168E+0, 1.0059E+0,
     * 1.0032E+0, 1.0015E+0, 1.0001E+0, 1.0747E+0, 1.2333E+0, 1.3218E+0,
     * 1.3506E+0, 1.3692E+0, 1.3775E+0, 1.3813E+0, 1.3831E+0/
      DATA X3201/ 1.3849E+0, 1.3858E+0, 1.3865E+0, 1.3867E+0, 1.3869E+0,
     * 1.3889E+0, 1.3888E+0, 1.3418E+0, 1.2216E+0, 1.1546E+0, 1.1084E+0,
     * 1.0860E+0, 1.0494E+0, 1.0291E+0, 1.0173E+0, 1.0059E+0, 1.0031E+0,
     * 1.0013E+0, 9.9991E-1, 1.0056E+0, 1.2087E+0, 1.3234E+0, 1.3616E+0,
     * 1.3869E+0, 1.3984E+0, 1.4038E+0, 1.4064E+0, 1.4089E+0, 1.4103E+0,
     * 1.4113E+0, 1.4116E+0, 1.4119E+0, 1.4152E+0, 1.4173E+0, 1.3693E+0,
     * 1.2394E+0, 1.1667E+0, 1.1164E+0, 1.0922E+0, 1.0526E+0, 1.0307E+0,
     * 1.0181E+0, 1.0059E+0, 1.0029E+0, 1.0010E+0, 9.9955E-1, 1.0754E+0,
     * 1.2643E+0, 1.3750E+0, 1.4136E+0, 1.4404E+0, 1.4521E+0, 1.4573E+0,
     * 1.4597E+0, 1.4621E+0, 1.4633E+0, 1.4642E+0, 1.4645E+0, 1.4647E+0,
     * 1.4673E+0, 1.4669E+0, 1.4071E+0, 1.2601E+0, 1.1799E+0, 1.1250E+0,
     * 1.0986E+0, 1.0558E+0, 1.0322E+0, 1.0187E+0, 1.0058E+0, 1.0027E+0,
     * 1.0007E+0, 9.9916E-1, 1.5372E+0, 1.4937E+0, 1.5260E+0, 1.5618E+0,
     * 1.5827E+0, 1.5899E+0, 1.5924E+0, 1.5933E+0, 1.5939E+0, 1.5940E+0,
     * 1.5940E+0, 1.5940E+0, 1.5940E+0, 1.5928E+0, 1.5813E+0, 1.4857E+0,
     * 1.2994E+0, 1.2039E+0, 1.1400E+0, 1.1097E+0, 1.0610E+0, 1.0346E+0,
     * 1.0196E+0, 1.0054E+0, 1.0021E+0, 9.9998E-1, 9.9840E-1/
      DATA X3301/ 2.4371E+0, 1.7686E+0, 1.5660E+0, 1.6000E+0, 1.8362E+0,
     * 2.1396E+0, 2.3846E+0, 2.6081E+0, 2.7159E+0, 3.3447E+0,-3.5095E+0,
     *-3.0741E+0,-1.8979E+0, 1.7461E+0, 1.7186E+0, 1.5756E+0, 1.3420E+0,
     * 1.2292E+0, 1.1554E+0, 1.1209E+0, 1.0660E+0, 1.0366E+0, 1.0202E+0,
     * 1.0048E+0, 1.0013E+0, 9.9910E-1, 9.9750E-1, 2.4221E+0, 1.8006E+0,
     * 1.5995E+0, 1.6314E+0, 1.8656E+0, 2.1676E+0, 2.4119E+0, 2.6349E+0,
     * 2.7423E+0, 3.3708E+0,-3.4837E+0,-3.0483E+0,-1.8722E+0, 1.7708E+0,
     * 1.7406E+0, 1.5898E+0, 1.3486E+0, 1.2331E+0, 1.1577E+0, 1.1226E+0,
     * 1.0667E+0, 1.0369E+0, 1.0202E+0, 1.0047E+0, 1.0011E+0, 9.9895E-1,
     * 9.9734E-1, 2.3918E+0, 1.8657E+0, 1.6673E+0, 1.6952E+0, 1.9249E+0,
     * 2.2243E+0, 2.4670E+0, 2.6891E+0, 2.7955E+0, 3.4234E+0,-3.4315E+0,
     *-2.9963E+0,-1.8203E+0, 1.8207E+0, 1.7851E+0, 1.6185E+0, 1.3619E+0,
     * 1.2408E+0, 1.1624E+0, 1.1259E+0, 1.0681E+0, 1.0374E+0, 1.0203E+0,
     * 1.0045E+0, 1.0009E+0, 9.9864E-1, 9.9703E-1, 1.0005E+0, 1.0004E+0,
     * 1.0003E+0, 1.0002E+0, 1.0002E+0, 1.0002E+0, 1.0002E+0, 1.0002E+0,
     * 1.0002E+0, 1.0002E+0, 1.0002E+0, 1.0002E+0, 1.0002E+0, 1.0002E+0,
     * 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0/
      DATA X3401/ 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0024E+0, 1.0017E+0, 1.0012E+0,
     * 1.0010E+0, 1.0009E+0, 1.0009E+0, 1.0008E+0, 1.0008E+0, 1.0008E+0,
     * 1.0008E+0, 1.0008E+0, 1.0008E+0, 1.0008E+0, 1.0007E+0, 1.0006E+0,
     * 1.0004E+0, 1.0002E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0195E+0, 1.0132E+0, 1.0095E+0, 1.0083E+0, 1.0073E+0, 1.0069E+0,
     * 1.0066E+0, 1.0064E+0, 1.0063E+0, 1.0062E+0, 1.0061E+0, 1.0061E+0,
     * 1.0061E+0, 1.0058E+0, 1.0051E+0, 1.0033E+0, 1.0017E+0, 1.0012E+0,
     * 1.0009E+0, 1.0008E+0, 1.0006E+0, 1.0004E+0, 1.0004E+0, 1.0003E+0,
     * 1.0002E+0, 1.0002E+0, 1.0002E+0, 1.1446E+0, 1.0921E+0, 1.0631E+0,
     * 1.0538E+0, 1.0471E+0, 1.0436E+0, 1.0418E+0, 1.0408E+0, 1.0398E+0,
     * 1.0392E+0, 1.0387E+0, 1.0385E+0, 1.0384E+0, 1.0364E+0, 1.0314E+0,
     * 1.0196E+0, 1.0101E+0, 1.0070E+0, 1.0052E+0, 1.0044E+0, 1.0031E+0,
     * 1.0024E+0, 1.0020E+0, 1.0015E+0, 1.0014E+0, 1.0013E+0, 1.0011E+0,
     * 1.7280E+0, 1.4299E+0, 1.2649E+0, 1.2115E+0, 1.1772E+0, 1.1606E+0,
     * 1.1521E+0, 1.1476E+0, 1.1429E+0, 1.1401E+0, 1.1379E+0/
      DATA X3501/ 1.1372E+0, 1.1366E+0, 1.1278E+0, 1.1069E+0, 1.0613E+0,
     * 1.0289E+0, 1.0190E+0, 1.0136E+0, 1.0113E+0, 1.0078E+0, 1.0060E+0,
     * 1.0050E+0, 1.0039E+0, 1.0036E+0, 1.0033E+0, 1.0031E+0, 2.7838E+0,
     * 2.0089E+0, 1.5768E+0, 1.4356E+0, 1.3438E+0, 1.3028E+0, 1.2827E+0,
     * 1.2723E+0, 1.2614E+0, 1.2552E+0, 1.2502E+0, 1.2487E+0, 1.2474E+0,
     * 1.2281E+0, 1.1843E+0, 1.0974E+0, 1.0425E+0, 1.0269E+0, 1.0187E+0,
     * 1.0153E+0, 1.0104E+0, 1.0080E+0, 1.0066E+0, 1.0052E+0, 1.0049E+0,
     * 1.0046E+0, 1.0044E+0, 6.1926E+0, 3.7593E+0, 2.4160E+0, 1.9832E+0,
     * 1.7062E+0, 1.5852E+0, 1.5308E+0, 1.5038E+0, 1.4764E+0, 1.4611E+0,
     * 1.4489E+0, 1.4454E+0, 1.4421E+0, 1.3972E+0, 1.3027E+0, 1.1428E+0,
     * 1.0570E+0, 1.0346E+0, 1.0233E+0, 1.0188E+0, 1.0124E+0, 1.0094E+0,
     * 1.0078E+0, 1.0063E+0, 1.0059E+0, 1.0056E+0, 1.0054E+0, 1.5888E+1,
     * 8.4888E+0, 4.4619E+0, 3.1898E+0, 2.3948E+0, 2.0590E+0, 1.9134E+0,
     * 1.8463E+0, 1.7812E+0, 1.7463E+0, 1.7192E+0, 1.7114E+0, 1.7042E+0,
     * 1.6098E+0, 1.4318E+0, 1.1815E+0, 1.0677E+0, 1.0400E+0, 1.0265E+0,
     * 1.0211E+0, 1.0137E+0, 1.0102E+0, 1.0084E+0, 1.0068E+0, 1.0064E+0,
     * 1.0062E+0, 1.0060E+0, 4.2073E+1, 2.0899E+1, 9.4951E+0/
      DATA X3601/ 5.9500E+0, 3.7758E+0, 2.8841E+0, 2.5097E+0, 2.3423E+0,
     * 2.1929E+0, 2.1172E+0, 2.0605E+0, 2.0445E+0, 2.0300E+0, 1.8485E+0,
     * 1.5515E+0, 1.2093E+0, 1.0750E+0, 1.0438E+0, 1.0287E+0, 1.0228E+0,
     * 1.0146E+0, 1.0108E+0, 1.0089E+0, 1.0072E+0, 1.0068E+0, 1.0065E+0,
     * 1.0063E+0, 7.2941E+1, 3.5567E+1, 1.5438E+1, 9.1807E+0, 5.3428E+0,
     * 3.7684E+0, 3.1075E+0, 2.8120E+0, 2.5481E+0, 2.4223E+0, 2.3313E+0,
     * 2.3062E+0, 2.2835E+0, 2.0134E+0, 1.6186E+0, 1.2217E+0, 1.0784E+0,
     * 1.0457E+0, 1.0300E+0, 1.0237E+0, 1.0152E+0, 1.0112E+0, 1.0092E+0,
     * 1.0074E+0, 1.0070E+0, 1.0067E+0, 1.0065E+0, 2.4262E+2, 1.1447E+2,
     * 4.6027E+1, 2.5017E+1, 1.2341E+1, 7.2718E+0, 5.2075E+0, 4.3122E+0,
     * 3.5420E+0, 3.1933E+0, 2.9678E+0, 2.9088E+0, 2.8568E+0, 2.3136E+0,
     * 1.7055E+0, 1.2336E+0, 1.0826E+0, 1.0486E+0, 1.0321E+0, 1.0255E+0,
     * 1.0164E+0, 1.0122E+0, 1.0100E+0, 1.0080E+0, 1.0076E+0, 1.0073E+0,
     * 1.0070E+0, 1.1923E+3, 5.5022E+2, 2.1026E+2, 1.0729E+2, 4.6250E+1,
     * 2.2528E+1, 1.3211E+1, 9.3259E+0, 6.1526E+0, 4.8267E+0, 4.0530E+0,
     * 3.8796E+0, 3.7350E+0, 2.5700E+0, 1.7236E+0, 1.2321E+0, 1.0853E+0,
     * 1.0513E+0, 1.0345E+0, 1.0278E+0, 1.0183E+0, 1.0138E+0/
      DATA X3701/ 1.0114E+0, 1.0092E+0, 1.0087E+0, 1.0083E+0, 1.0080E+0,
     * 5.9284E+3, 2.7110E+3, 1.0152E+3, 5.0498E+2, 2.0530E+2, 9.0663E+1,
     * 4.6562E+1, 2.8602E+1, 1.4427E+1, 8.8411E+0, 5.8597E+0, 5.2619E+0,
     * 4.8275E+0, 2.5792E+0, 1.6548E+0, 1.2204E+0, 1.0864E+0, 1.0538E+0,
     * 1.0371E+0, 1.0303E+0, 1.0206E+0, 1.0159E+0, 1.0133E+0, 1.0109E+0,
     * 1.0103E+0, 1.0099E+0, 1.0096E+0, 5.8045E+3, 2.7036E+3, 1.0481E+3,
     * 5.4022E+2, 2.3406E+2, 1.1177E+2, 6.2039E+1, 4.0507E+1, 2.2022E+1,
     * 1.3678E+1, 8.2995E+0, 6.9650E+0, 5.8356E+0, 2.4034E+0, 1.5727E+0,
     * 1.2093E+0, 1.0870E+0, 1.0555E+0, 1.0391E+0, 1.0324E+0, 1.0225E+0,
     * 1.0177E+0, 1.0151E+0, 1.0125E+0, 1.0119E+0, 1.0114E+0, 1.0110E+0,
     * 8.7286E+2, 4.3639E+2, 1.9208E+2, 1.1189E+2, 5.9443E+1, 3.5867E+1,
     * 2.4968E+1, 1.9659E+1, 1.4454E+1, 1.1681E+1, 9.5722E+0, 8.9751E+0,
     * 8.4326E+0, 1.9908E+0, 1.4500E+0, 1.1937E+0, 1.0878E+0, 1.0581E+0,
     * 1.0422E+0, 1.0355E+0, 1.0256E+0, 1.0207E+0, 1.0179E+0, 1.0152E+0,
     * 1.0145E+0, 1.0140E+0, 1.0135E+0, 6.3721E+2, 3.1880E+2, 1.4056E+2,
     * 8.2036E+1, 4.3750E+1, 2.6535E+1, 1.8574E+1, 1.4695E+1, 1.0892E+1,
     * 8.8654E+0, 7.3233E+0, 6.8866E+0, 6.4899E+0, 1.7755E+0/
      DATA X3801/ 1.3330E+0, 1.1719E+0, 1.1019E+0, 1.0784E+0, 1.0645E+0,
     * 1.0583E+0, 1.0486E+0, 1.0434E+0, 1.0403E+0, 1.0370E+0, 1.0361E+0,
     * 1.0354E+0, 1.0347E+0, 3.6499E+3, 1.7017E+3, 6.6107E+2, 3.4156E+2,
     * 1.4875E+2, 7.1611E+1, 4.0179E+1, 2.6541E+1, 1.4801E+1, 9.4809E+0,
     * 6.0361E+0, 5.1778E+0, 4.4496E+0, 2.0042E+0, 1.3966E+0, 1.1814E+0,
     * 1.1090E+0, 1.0860E+0, 1.0724E+0, 1.0664E+0, 1.0568E+0, 1.0517E+0,
     * 1.0486E+0, 1.0452E+0, 1.0442E+0, 1.0435E+0, 1.0428E+0, 3.1853E+3,
     * 1.4594E+3, 5.4882E+2, 2.7438E+2, 1.1279E+2, 5.0727E+1, 2.6722E+1,
     * 1.6885E+1, 9.0480E+0, 5.9091E+0, 4.1890E+0, 3.8317E+0, 3.5644E+0,
     * 2.0769E+0, 1.4446E+0, 1.1920E+0, 1.1162E+0, 1.0933E+0, 1.0800E+0,
     * 1.0740E+0, 1.0647E+0, 1.0595E+0, 1.0565E+0, 1.0531E+0, 1.0521E+0,
     * 1.0514E+0, 1.0507E+0, 6.8388E+2, 3.1802E+2, 1.2345E+2, 6.4102E+1,
     * 2.8582E+1, 1.4573E+1, 8.9575E+0, 6.5649E+0, 4.5533E+0, 3.6728E+0,
     * 3.1260E+0, 2.9951E+0, 2.8868E+0, 2.0430E+0, 1.4810E+0, 1.2055E+0,
     * 1.1255E+0, 1.1026E+0, 1.0895E+0, 1.0837E+0, 1.0746E+0, 1.0697E+0,
     * 1.0667E+0, 1.0634E+0, 1.0624E+0, 1.0617E+0, 1.0609E+0, 2.4455E+2,
     * 1.1435E+2, 4.5134E+1, 2.4038E+1, 1.1428E+1, 6.4604E+0/
      DATA X3901/ 4.4750E+0, 3.6309E+0, 2.9231E+0, 2.6148E+0, 2.4246E+0,
     * 2.3760E+0, 2.3335E+0, 1.9126E+0, 1.4949E+0, 1.2222E+0, 1.1382E+0,
     * 1.1155E+0, 1.1028E+0, 1.0973E+0, 1.0887E+0, 1.0840E+0, 1.0812E+0,
     * 1.0782E+0, 1.0772E+0, 1.0765E+0, 1.0758E+0, 7.2453E+1, 3.4827E+1,
     * 1.4714E+1, 8.5314E+0, 4.7932E+0, 3.2938E+0, 2.6808E+0, 2.4139E+0,
     * 2.1832E+0, 2.0780E+0, 2.0039E+0, 1.9837E+0, 1.9655E+0, 1.7574E+0,
     * 1.4803E+0, 1.2375E+0, 1.1526E+0, 1.1304E+0, 1.1184E+0, 1.1133E+0,
     * 1.1056E+0, 1.1015E+0, 1.0991E+0, 1.0965E+0, 1.0957E+0, 1.0951E+0,
     * 1.0945E+0, 4.3165E+1, 2.1039E+1, 9.2399E+0, 5.6259E+0, 3.4515E+0,
     * 2.5859E+0, 2.2353E+0, 2.0842E+0, 1.9551E+0, 1.8918E+0, 1.8454E+0,
     * 1.8324E+0, 1.8207E+0, 1.6787E+0, 1.4640E+0, 1.2445E+0, 1.1609E+0,
     * 1.1394E+0, 1.1280E+0, 1.1233E+0, 1.1162E+0, 1.1126E+0, 1.1106E+0,
     * 1.1084E+0, 1.1077E+0, 1.1072E+0, 1.1067E+0, 2.0026E+1, 1.0229E+1,
     * 4.9969E+0, 3.3903E+0, 2.4207E+0, 2.0327E+0, 1.8746E+0, 1.8060E+0,
     * 1.7420E+0, 1.7085E+0, 1.6830E+0, 1.6758E+0, 1.6691E+0, 1.5841E+0,
     * 1.4360E+0, 1.2515E+0, 1.1723E+0, 1.1524E+0, 1.1424E+0, 1.1383E+0,
     * 1.1327E+0, 1.1300E+0, 1.1286E+0, 1.1273E+0, 1.1269E+0/
      DATA X4001/ 1.1266E+0, 1.1263E+0, 8.8269E+0, 4.9663E+0, 2.8949E+0,
     * 2.2545E+0, 1.8646E+0, 1.7065E+0, 1.6410E+0, 1.6096E+0, 1.5785E+0,
     * 1.5615E+0, 1.5481E+0, 1.5443E+0, 1.5407E+0, 1.4929E+0, 1.3984E+0,
     * 1.2546E+0, 1.1849E+0, 1.1683E+0, 1.1607E+0, 1.1580E+0, 1.1549E+0,
     * 1.1541E+0, 1.1539E+0, 1.1542E+0, 1.1544E+0, 1.1545E+0, 1.1546E+0,
     * 4.0571E+0, 2.6832E+0, 1.9403E+0, 1.7080E+0, 1.5645E+0, 1.5050E+0,
     * 1.4768E+0, 1.4624E+0, 1.4476E+0, 1.4392E+0, 1.4325E+0, 1.4305E+0,
     * 1.4287E+0, 1.4033E+0, 1.3477E+0, 1.2478E+0, 1.1960E+0, 1.1860E+0,
     * 1.1834E+0, 1.1834E+0, 1.1855E+0, 1.1883E+0, 1.1909E+0, 1.1948E+0,
     * 1.1962E+0, 1.1973E+0, 1.1985E+0, 2.6880E+0, 1.9913E+0, 1.6175E+0,
     * 1.5020E+0, 1.4317E+0, 1.3990E+0, 1.3826E+0, 1.3741E+0, 1.3652E+0,
     * 1.3601E+0, 1.3559E+0, 1.3547E+0, 1.3536E+0, 1.3376E+0, 1.3011E+0,
     * 1.2313E+0, 1.1981E+0, 1.1960E+0, 1.1994E+0, 1.2027E+0, 1.2114E+0,
     * 1.2190E+0, 1.2252E+0, 1.2342E+0, 1.2374E+0, 1.2401E+0, 1.2428E+0,
     * 1.7345E+0, 1.5074E+0, 1.3718E+0, 1.3236E+0, 1.2908E+0, 1.2747E+0,
     * 1.2665E+0, 1.2621E+0, 1.2576E+0, 1.2549E+0, 1.2528E+0, 1.2521E+0,
     * 1.2515E+0, 1.2432E+0, 1.2239E+0, 1.1886E+0, 1.1839E+0/
      DATA X4101/ 1.1958E+0, 1.2105E+0, 1.2204E+0, 1.2427E+0, 1.2609E+0,
     * 1.2756E+0, 1.2971E+0, 1.3050E+0, 1.3117E+0, 1.3187E+0, 1.2301E+0,
     * 1.2778E+0, 1.2388E+0, 1.2111E+0, 1.1756E+0, 1.1496E+0, 1.1342E+0,
     * 1.1234E+0, 1.1177E+0, 1.0986E+0, 8.5723E-1, 8.3119E-1, 6.6305E-1,
     * 1.1558E+0, 1.1460E+0, 1.1323E+0, 1.1487E+0, 1.1729E+0, 1.1989E+0,
     * 1.2158E+0, 1.2542E+0, 1.2863E+0, 1.3129E+0, 1.3534E+0, 1.3691E+0,
     * 1.3824E+0, 1.3967E+0, 1.2084E+0, 1.2532E+0, 1.2180E+0, 1.1930E+0,
     * 1.1607E+0, 1.1370E+0, 1.1230E+0, 1.1132E+0, 1.1080E+0, 1.0905E+0,
     * 8.6784E-1, 8.4359E-1, 6.8603E-1, 1.1428E+0, 1.1341E+0, 1.1227E+0,
     * 1.1415E+0, 1.1672E+0, 1.1948E+0, 1.2128E+0, 1.2538E+0, 1.2883E+0,
     * 1.3170E+0, 1.3612E+0, 1.3783E+0, 1.3930E+0, 1.4088E+0, 1.1695E+0,
     * 1.2079E+0, 1.1786E+0, 1.1581E+0, 1.1319E+0, 1.1126E+0, 1.1012E+0,
     * 1.0932E+0, 1.0889E+0, 1.0746E+0, 8.8889E-1, 8.6823E-1, 7.3175E-1,
     * 1.1172E+0, 1.1103E+0, 1.1029E+0, 1.1256E+0, 1.1542E+0, 1.1848E+0,
     * 1.2048E+0, 1.2510E+0, 1.2905E+0, 1.3237E+0, 1.3757E+0, 1.3963E+0,
     * 1.4140E+0, 1.4332E+0, 9.9969E-1, 9.9982E-1, 9.9988E-1, 9.9990E-1,
     * 9.9991E-1, 9.9992E-1, 9.9993E-1, 9.9993E-1, 9.9993E-1/
      DATA X4201/ 9.9993E-1, 9.9993E-1, 9.9993E-1, 9.9993E-1, 9.9994E-1,
     * 9.9995E-1, 9.9997E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9861E-1, 9.9918E-1, 9.9945E-1, 9.9954E-1, 9.9960E-1,
     * 9.9964E-1, 9.9966E-1, 9.9967E-1, 9.9968E-1, 9.9968E-1, 9.9969E-1,
     * 9.9969E-1, 9.9969E-1, 9.9971E-1, 9.9976E-1, 9.9988E-1, 9.9999E-1,
     * 1.0000E+0, 1.0000E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 9.8889E-1, 9.9353E-1,
     * 9.9569E-1, 9.9640E-1, 9.9691E-1, 9.9718E-1, 9.9732E-1, 9.9739E-1,
     * 9.9748E-1, 9.9752E-1, 9.9756E-1, 9.9757E-1, 9.9759E-1, 9.9774E-1,
     * 9.9813E-1, 9.9908E-1, 9.9990E-1, 1.0002E+0, 1.0004E+0, 1.0005E+0,
     * 1.0006E+0, 1.0007E+0, 1.0008E+0, 1.0009E+0, 1.0009E+0, 1.0009E+0,
     * 1.0009E+0, 9.3026E-1, 9.5785E-1, 9.7293E-1, 9.7772E-1, 9.8111E-1,
     * 9.8286E-1, 9.8378E-1, 9.8427E-1, 9.8480E-1, 9.8510E-1, 9.8536E-1,
     * 9.8543E-1, 9.8550E-1, 9.8650E-1, 9.8898E-1, 9.9490E-1, 9.9973E-1,
     * 1.0014E+0, 1.0025E+0, 1.0029E+0, 1.0037E+0, 1.0042E+0, 1.0046E+0,
     * 1.0050E+0, 1.0052E+0, 1.0053E+0, 1.0054E+0, 7.3153E-1/
      DATA X4301/ 8.4005E-1, 9.0189E-1, 9.2268E-1, 9.3663E-1, 9.4357E-1,
     * 9.4714E-1, 9.4905E-1, 9.5107E-1, 9.5225E-1, 9.5320E-1, 9.5349E-1,
     * 9.5375E-1, 9.5752E-1, 9.6660E-1, 9.8685E-1, 1.0016E+0, 1.0063E+0,
     * 1.0089E+0, 1.0101E+0, 1.0120E+0, 1.0131E+0, 1.0138E+0, 1.0146E+0,
     * 1.0149E+0, 1.0151E+0, 1.0154E+0, 4.7574E-1, 6.9177E-1, 8.1686E-1,
     * 8.5976E-1, 8.8918E-1, 9.0320E-1, 9.1029E-1, 9.1402E-1, 9.1796E-1,
     * 9.2022E-1, 9.2206E-1, 9.2260E-1, 9.2310E-1, 9.3026E-1, 9.4705E-1,
     * 9.8211E-1, 1.0053E+0, 1.0120E+0, 1.0155E+0, 1.0171E+0, 1.0194E+0,
     * 1.0206E+0, 1.0214E+0, 1.0223E+0, 1.0226E+0, 1.0228E+0, 1.0230E+0,
     *-8.9157E-2, 3.8054E-1, 6.5162E-1, 7.4409E-1, 8.0719E-1, 8.3707E-1,
     * 8.5156E-1, 8.5903E-1, 8.6680E-1, 8.7122E-1, 8.7478E-1, 8.7582E-1,
     * 8.7679E-1, 8.9036E-1, 9.2081E-1, 9.7841E-1, 1.0118E+0, 1.0205E+0,
     * 1.0249E+0, 1.0267E+0, 1.0292E+0, 1.0305E+0, 1.0312E+0, 1.0320E+0,
     * 1.0322E+0, 1.0324E+0, 1.0326E+0,-1.1375E+0,-1.6690E-1, 3.8559E-1,
     * 5.7089E-1, 6.9504E-1, 7.5255E-1, 7.7991E-1, 7.9354E-1, 8.0742E-1,
     * 8.1518E-1, 8.2135E-1, 8.2314E-1, 8.2480E-1, 8.4765E-1, 8.9598E-1,
     * 9.7755E-1, 1.0193E+0, 1.0294E+0, 1.0343E+0, 1.0362E+0/
      DATA X4401/ 1.0388E+0, 1.0400E+0, 1.0407E+0, 1.0414E+0, 1.0416E+0,
     * 1.0417E+0, 1.0419E+0,-3.0278E+0,-1.1145E+0,-4.1275E-2, 3.1194E-1,
     * 5.4366E-1, 6.4823E-1, 6.9677E-1, 7.2048E-1, 7.4379E-1, 7.5648E-1,
     * 7.6640E-1, 7.6927E-1, 7.7190E-1, 8.0718E-1, 8.7638E-1, 9.7953E-1,
     * 1.0268E+0, 1.0377E+0, 1.0428E+0, 1.0448E+0, 1.0475E+0, 1.0488E+0,
     * 1.0494E+0, 1.0501E+0, 1.0503E+0, 1.0504E+0, 1.0506E+0,-4.8086E+0,
     *-2.0007E+0,-4.3222E-1, 8.0780E-2, 4.1502E-1, 5.6456E-1, 6.3336E-1,
     * 6.6675E-1, 6.9935E-1, 7.1664E-1, 7.2996E-1, 7.3377E-1, 7.3727E-1,
     * 7.8294E-1, 8.6721E-1, 9.8222E-1, 1.0316E+0, 1.0428E+0, 1.0481E+0,
     * 1.0501E+0, 1.0529E+0, 1.0542E+0, 1.0549E+0, 1.0555E+0, 1.0557E+0,
     * 1.0559E+0, 1.0560E+0,-1.1794E+1,-5.3542E+0,-1.8167E+0,-6.8500E-1,
     * 3.3020E-2, 3.4303E-1, 4.8067E-1, 5.4543E-1, 6.0674E-1, 6.3813E-1,
     * 6.6121E-1, 6.6766E-1, 6.7351E-1, 7.4525E-1, 8.5953E-1, 9.8983E-1,
     * 1.0404E+0, 1.0518E+0, 1.0572E+0, 1.0593E+0, 1.0622E+0, 1.0636E+0,
     * 1.0644E+0, 1.0652E+0, 1.0654E+0, 1.0656E+0, 1.0658E+0,-3.6922E+1,
     *-1.7102E+1,-6.4194E+0,-3.0881E+0,-1.0405E+0,-1.9769E-1, 1.5794E-1,
     * 3.1769E-1, 4.6108E-1, 5.2991E-1, 5.7742E-1, 5.8992E-1/
      DATA X4501/ 6.0098E-1, 7.2037E-1, 8.6850E-1, 1.0022E+0, 1.0502E+0,
     * 1.0615E+0, 1.0670E+0, 1.0692E+0, 1.0723E+0, 1.0739E+0, 1.0748E+0,
     * 1.0758E+0, 1.0760E+0, 1.0763E+0, 1.0765E+0,-1.2426E+2,-5.7398E+1,
     *-2.1745E+1,-1.0840E+1,-4.2874E+0,-1.6831E+0,-6.3124E-1,-1.7897E-1,
     * 2.0596E-1, 3.7746E-1, 4.8630E-1, 5.1292E-1, 5.3524E-1, 7.2741E-1,
     * 8.9514E-1, 1.0156E+0, 1.0590E+0, 1.0698E+0, 1.0754E+0, 1.0777E+0,
     * 1.0810E+0, 1.0828E+0, 1.0838E+0, 1.0849E+0, 1.0853E+0, 1.0855E+0,
     * 1.0858E+0,-1.5375E+2,-7.2038E+1,-2.8077E+1,-1.4434E+1,-6.0871E+0,
     *-2.6752E+0,-1.2487E+0,-6.1349E-1,-4.8918E-2, 2.1849E-1, 4.0046E-1,
     * 4.4781E-1, 4.8898E-1, 7.5670E-1, 9.2186E-1, 1.0250E+0, 1.0646E+0,
     * 1.0752E+0, 1.0807E+0, 1.0831E+0, 1.0866E+0, 1.0884E+0, 1.0895E+0,
     * 1.0907E+0, 1.0911E+0, 1.0914E+0, 1.0917E+0,-5.2762E+1,-2.6041E+1,
     *-1.1027E+1,-6.0725E+0,-2.8133E+0,-1.3372E+0,-6.4981E-1,-3.1305E-1,
     * 1.8995E-2, 1.9694E-1, 3.3303E-1, 3.7169E-1, 4.0688E-1, 8.3193E-1,
     * 9.6171E-1, 1.0365E+0, 1.0714E+0, 1.0817E+0, 1.0872E+0, 1.0896E+0,
     * 1.0932E+0, 1.0952E+0, 1.0964E+0, 1.0977E+0, 1.0982E+0, 1.0985E+0,
     * 1.0989E+0,-4.9220E+1,-2.4285E+1,-1.0264E+1,-5.6336E+0/
      DATA X4601/-2.5841E+0,-1.2012E+0,-5.5642E-1,-2.4020E-1, 7.1895E-2,
     * 2.3932E-1, 3.6748E-1, 4.0392E-1, 4.3709E-1, 8.3887E-1, 9.7617E-1,
     * 1.0541E+0, 1.0885E+0, 1.0984E+0, 1.1037E+0, 1.1060E+0, 1.1096E+0,
     * 1.1115E+0, 1.1127E+0, 1.1142E+0, 1.1146E+0, 1.1150E+0, 1.1154E+0,
     *-1.3748E+2,-6.4455E+1,-2.5133E+1,-1.2912E+1,-5.4219E+0,-2.3514E+0,
     *-1.0634E+0,-4.8801E-1, 2.5354E-2, 2.6975E-1, 4.3696E-1, 4.8066E-1,
     * 5.1876E-1, 7.7828E-1, 9.4574E-1, 1.0500E+0, 1.0882E+0, 1.0981E+0,
     * 1.1033E+0, 1.1054E+0, 1.1087E+0, 1.1105E+0, 1.1116E+0, 1.1129E+0,
     * 1.1133E+0, 1.1137E+0, 1.1140E+0,-1.0480E+2,-4.8477E+1,-1.8383E+1,
     *-9.1504E+0,-3.5837E+0,-1.3579E+0,-4.5226E-1,-6.0074E-2, 2.7715E-1,
     * 4.2954E-1, 5.2794E-1, 5.5239E-1, 5.7310E-1, 7.5743E-1, 9.2488E-1,
     * 1.0453E+0, 1.0864E+0, 1.0961E+0, 1.1010E+0, 1.1030E+0, 1.1060E+0,
     * 1.1076E+0, 1.1085E+0, 1.1096E+0, 1.1100E+0, 1.1103E+0, 1.1107E+0,
     *-3.6078E+1,-1.6793E+1,-6.3359E+0,-3.0586E+0,-1.0337E+0,-1.8945E-1,
     * 1.7053E-1, 3.3398E-1, 4.8277E-1, 5.5539E-1, 6.0636E-1, 6.1996E-1,
     * 6.3195E-1, 7.5884E-1, 9.1002E-1, 1.0391E+0, 1.0822E+0, 1.0916E+0,
     * 1.0961E+0, 1.0978E+0, 1.1003E+0, 1.1015E+0, 1.1023E+0/
      DATA X4701/ 1.1032E+0, 1.1034E+0, 1.1037E+0, 1.1039E+0,-1.6298E+1,
     *-7.4348E+0,-2.6038E+0,-1.0750E+0,-1.1748E-1, 2.8827E-1, 4.6489E-1,
     * 5.4655E-1, 6.2238E-1, 6.6034E-1, 6.8766E-1, 6.9522E-1, 7.0203E-1,
     * 7.8337E-1, 9.0487E-1, 1.0307E+0, 1.0735E+0, 1.0819E+0, 1.0856E+0,
     * 1.0869E+0, 1.0886E+0, 1.0893E+0, 1.0897E+0, 1.0902E+0, 1.0903E+0,
     * 1.0904E+0, 1.0906E+0,-6.7063E+0,-2.8701E+0,-7.5119E-1,-6.8558E-2,
     * 3.6874E-1, 5.5990E-1, 6.4584E-1, 6.8675E-1, 7.2592E-1, 7.4625E-1,
     * 7.6170E-1, 7.6610E-1, 7.7011E-1, 8.2147E-1, 9.1101E-1, 1.0204E+0,
     * 1.0590E+0, 1.0657E+0, 1.0682E+0, 1.0689E+0, 1.0695E+0, 1.0695E+0,
     * 1.0694E+0, 1.0692E+0, 1.0692E+0, 1.0691E+0, 1.0691E+0,-4.3647E+0,
     *-1.7180E+0,-2.5375E-1, 2.1915E-1, 5.2284E-1, 6.5601E-1, 7.1610E-1,
     * 7.4478E-1, 7.7234E-1, 7.8707E-1, 7.9845E-1, 8.0172E-1, 8.0472E-1,
     * 8.4409E-1, 9.1712E-1, 1.0134E+0, 1.0477E+0, 1.0531E+0, 1.0547E+0,
     * 1.0549E+0, 1.0548E+0, 1.0543E+0, 1.0539E+0, 1.0532E+0, 1.0530E+0,
     * 1.0529E+0, 1.0527E+0,-2.1255E+0,-6.1351E-1, 2.2726E-1, 5.0052E-1,
     * 6.7734E-1, 7.5566E-1, 7.9137E-1, 8.0856E-1, 8.2567E-1, 8.3507E-1,
     * 8.4244E-1, 8.4458E-1, 8.4655E-1, 8.7304E-1, 9.2548E-1/
      DATA X4801/ 1.0005E+0, 1.0269E+0, 1.0298E+0, 1.0299E+0, 1.0294E+0,
     * 1.0280E+0, 1.0267E+0, 1.0257E+0, 1.0243E+0, 1.0238E+0, 1.0235E+0,
     * 1.0231E+0,-6.2973E-1, 1.3690E-1, 5.6386E-1, 7.0297E-1, 7.9322E-1,
     * 8.3334E-1, 8.5170E-1, 8.6087E-1, 8.7023E-1, 8.7545E-1, 8.7960E-1,
     * 8.8081E-1, 8.8193E-1, 8.9725E-1, 9.2910E-1, 9.7705E-1, 9.9118E-1,
     * 9.9042E-1, 9.8820E-1, 9.8665E-1, 9.8328E-1, 9.8073E-1, 9.7883E-1,
     * 9.7629E-1, 9.7542E-1, 9.7473E-1, 9.7404E-1, 2.8613E-1, 5.9770E-1,
     * 7.6834E-1, 8.2271E-1, 8.5707E-1, 8.7180E-1, 8.7880E-1, 8.8236E-1,
     * 8.8603E-1, 8.8809E-1, 8.8973E-1, 8.9021E-1, 8.9066E-1, 8.9678E-1,
     * 9.0958E-1, 9.2647E-1, 9.2349E-1, 9.1733E-1, 9.1173E-1, 9.0854E-1,
     * 9.0222E-1, 8.9771E-1, 8.9440E-1, 8.8995E-1, 8.8841E-1, 8.8716E-1,
     * 8.8589E-1, 6.1519E-1, 7.4847E-1, 8.1634E-1, 8.3564E-1, 8.4608E-1,
     * 8.5037E-1, 8.5232E-1, 8.5327E-1, 8.5423E-1, 8.5476E-1, 8.5517E-1,
     * 8.5528E-1, 8.5539E-1, 8.5681E-1, 8.5908E-1, 8.5589E-1, 8.3986E-1,
     * 8.2920E-1, 8.2069E-1, 8.1603E-1, 8.0703E-1, 8.0066E-1, 7.9597E-1,
     * 7.8960E-1, 7.8736E-1, 7.8553E-1, 7.8365E-1, 7.2027E-1, 7.2931E-1,
     * 7.2786E-1, 7.2450E-1, 7.2086E-1, 7.1849E-1, 7.1710E-1/
      DATA X4901/ 7.1630E-1, 7.1540E-1, 7.1486E-1, 7.1441E-1, 7.1427E-1,
     * 7.1414E-1, 7.1222E-1, 7.0666E-1, 6.8716E-1, 6.5926E-1, 6.4415E-1,
     * 6.3257E-1, 6.2629E-1, 6.1416E-1, 6.0547E-1, 5.9898E-1, 5.8998E-1,
     * 5.8674E-1, 5.8406E-1, 5.8129E-1, 5.3840E-1, 5.1369E-1, 4.9690E-1,
     * 4.8971E-1, 4.8375E-1, 4.8034E-1, 4.7843E-1, 4.7738E-1, 4.7621E-1,
     * 4.7552E-1, 4.7495E-1, 4.7478E-1, 4.7462E-1, 4.7224E-1, 4.6577E-1,
     * 4.4539E-1, 4.1867E-1, 4.0448E-1, 3.9354E-1, 3.8756E-1, 3.7585E-1,
     * 3.6730E-1, 3.6080E-1, 3.5159E-1, 3.4821E-1, 3.4539E-1, 3.4243E-1,
     * 4.9195E-1, 4.6691E-1, 4.5038E-1, 4.4340E-1, 4.3766E-1, 4.3439E-1,
     * 4.3256E-1, 4.3155E-1, 4.3044E-1, 4.2978E-1, 4.2923E-1, 4.2906E-1,
     * 4.2891E-1, 4.2664E-1, 4.2048E-1, 4.0116E-1, 3.7591E-1, 3.6248E-1,
     * 3.5212E-1, 3.4645E-1, 3.3531E-1, 3.2715E-1, 3.2093E-1, 3.1209E-1,
     * 3.0884E-1, 3.0612E-1, 3.0327E-1, 3.8581E-1, 3.6299E-1, 3.4839E-1,
     * 3.4235E-1, 3.3742E-1, 3.3462E-1, 3.3306E-1, 3.3220E-1, 3.3126E-1,
     * 3.3069E-1, 3.3023E-1, 3.3009E-1, 3.2996E-1, 3.2804E-1, 3.2283E-1,
     * 3.0660E-1, 2.8546E-1, 2.7420E-1, 2.6547E-1, 2.6068E-1, 2.5123E-1,
     * 2.4426E-1, 2.3892E-1, 2.3129E-1, 2.2847E-1, 2.2610E-1/
      DATA X5001/ 2.2360E-1, 7.3406E-5, 9.1503E-5, 1.0611E-4, 1.1284E-4,
     * 1.1865E-4, 1.2208E-4, 1.2404E-4, 1.2513E-4, 1.2635E-4, 1.2707E-4,
     * 1.2768E-4, 1.2786E-4, 1.2803E-4, 1.3057E-4, 1.3773E-4, 1.6298E-4,
     * 2.0468E-4, 2.3281E-4, 2.5890E-4, 2.7548E-4, 3.1534E-4, 3.5092E-4,
     * 3.8495E-4, 4.4832E-4, 4.7807E-4, 5.0675E-4, 5.4156E-4, 7.3431E-5,
     * 9.1528E-5, 1.0614E-4, 1.1287E-4, 1.1868E-4, 1.2211E-4, 1.2406E-4,
     * 1.2516E-4, 1.2637E-4, 1.2710E-4, 1.2770E-4, 1.2789E-4, 1.2805E-4,
     * 1.3060E-4, 1.3776E-4, 1.6301E-4, 2.0471E-4, 2.3283E-4, 2.5892E-4,
     * 2.7550E-4, 3.1537E-4, 3.5094E-4, 3.8498E-4, 4.4834E-4, 4.7810E-4,
     * 5.0678E-4, 5.4158E-4, 7.3657E-5, 9.1754E-5, 1.0637E-4, 1.1310E-4,
     * 1.1890E-4, 1.2233E-4, 1.2429E-4, 1.2538E-4, 1.2660E-4, 1.2732E-4,
     * 1.2793E-4, 1.2811E-4, 1.2828E-4, 1.3082E-4, 1.3799E-4, 1.6323E-4,
     * 2.0493E-4, 2.3306E-4, 2.5915E-4, 2.7573E-4, 3.1559E-4, 3.5117E-4,
     * 3.8521E-4, 4.4857E-4, 4.7832E-4, 5.0700E-4, 5.4181E-4, 7.4895E-5,
     * 9.3199E-5, 1.0781E-4, 1.1454E-4, 1.2035E-4, 1.2378E-4, 1.2573E-4,
     * 1.2683E-4, 1.2804E-4, 1.2877E-4, 1.2937E-4, 1.2956E-4, 1.2972E-4,
     * 1.3227E-4, 1.3943E-4, 1.6468E-4, 2.0638E-4, 2.3450E-4/
      DATA X5101/ 2.6059E-4, 2.7717E-4, 3.1704E-4, 3.5261E-4, 3.8665E-4,
     * 4.5001E-4, 4.7977E-4, 5.0845E-4, 5.4325E-4, 7.9419E-5, 9.7905E-5,
     * 1.1258E-4, 1.1931E-4, 1.2511E-4, 1.2854E-4, 1.3050E-4, 1.3159E-4,
     * 1.3281E-4, 1.3353E-4, 1.3414E-4, 1.3432E-4, 1.3449E-4, 1.3703E-4,
     * 1.4420E-4, 1.6944E-4, 2.1114E-4, 2.3927E-4, 2.6536E-4, 2.8194E-4,
     * 3.2180E-4, 3.5738E-4, 3.9142E-4, 4.5478E-4, 4.8453E-4, 5.1321E-4,
     * 5.4802E-4, 8.4642E-5, 1.0324E-4, 1.1795E-4, 1.2469E-4, 1.3050E-4,
     * 1.3393E-4, 1.3588E-4, 1.3698E-4, 1.3819E-4, 1.3892E-4, 1.3953E-4,
     * 1.3971E-4, 1.3988E-4, 1.4242E-4, 1.4958E-4, 1.7483E-4, 2.1653E-4,
     * 2.4465E-4, 2.7074E-4, 2.8732E-4, 3.2719E-4, 3.6276E-4, 3.9680E-4,
     * 4.6016E-4, 4.8992E-4, 5.1860E-4, 5.5340E-4, 9.3210E-5, 1.1187E-4,
     * 1.2663E-4, 1.3337E-4, 1.3918E-4, 1.4261E-4, 1.4456E-4, 1.4566E-4,
     * 1.4687E-4, 1.4760E-4, 1.4821E-4, 1.4839E-4, 1.4856E-4, 1.5110E-4,
     * 1.5826E-4, 1.8351E-4, 2.2521E-4, 2.5333E-4, 2.7942E-4, 2.9601E-4,
     * 3.3587E-4, 3.7144E-4, 4.0548E-4, 4.6884E-4, 4.9860E-4, 5.2728E-4,
     * 5.6209E-4, 1.0318E-4, 1.2183E-4, 1.3663E-4, 1.4338E-4, 1.4919E-4,
     * 1.5263E-4, 1.5458E-4, 1.5567E-4, 1.5689E-4, 1.5762E-4/
      DATA X5201/ 1.5822E-4, 1.5840E-4, 1.5857E-4, 1.6112E-4, 1.6828E-4,
     * 1.9353E-4, 2.3522E-4, 2.6335E-4, 2.8944E-4, 3.0602E-4, 3.4589E-4,
     * 3.8146E-4, 4.1550E-4, 4.7886E-4, 5.0861E-4, 5.3730E-4, 5.7210E-4,
     * 1.1361E-4, 1.3226E-4, 1.4703E-4, 1.5379E-4, 1.5960E-4, 1.6304E-4,
     * 1.6499E-4, 1.6608E-4, 1.6730E-4, 1.6803E-4, 1.6863E-4, 1.6881E-4,
     * 1.6898E-4, 1.7153E-4, 1.7869E-4, 2.0394E-4, 2.4563E-4, 2.7376E-4,
     * 2.9985E-4, 3.1643E-4, 3.5630E-4, 3.9187E-4, 4.2591E-4, 4.8927E-4,
     * 5.1902E-4, 5.4771E-4, 5.8251E-4, 1.2040E-4, 1.3912E-4, 1.5405E-4,
     * 1.6078E-4, 1.6658E-4, 1.7002E-4, 1.7197E-4, 1.7306E-4, 1.7428E-4,
     * 1.7500E-4, 1.7561E-4, 1.7579E-4, 1.7596E-4, 1.7850E-4, 1.8567E-4,
     * 2.1091E-4, 2.5261E-4, 2.8074E-4, 3.0683E-4, 3.2341E-4, 3.6327E-4,
     * 3.9885E-4, 4.3289E-4, 4.9625E-4, 5.2600E-4, 5.5468E-4, 5.8949E-4,
     * 1.3387E-4, 1.5253E-4, 1.6731E-4, 1.7418E-4, 1.7991E-4, 1.8335E-4,
     * 1.8531E-4, 1.8640E-4, 1.8761E-4, 1.8834E-4, 1.8895E-4, 1.8913E-4,
     * 1.8930E-4, 1.9184E-4, 1.9900E-4, 2.2425E-4, 2.6595E-4, 2.9407E-4,
     * 3.2016E-4, 3.3675E-4, 3.7661E-4, 4.1218E-4, 4.4622E-4, 5.0958E-4,
     * 5.3934E-4, 5.6802E-4, 6.0283E-4, 1.4877E-4, 1.7071E-4/
      DATA X5301/ 1.8322E-4, 1.9044E-4, 1.9634E-4, 1.9964E-4, 2.0158E-4,
     * 2.0268E-4, 2.0389E-4, 2.0462E-4, 2.0522E-4, 2.0540E-4, 2.0557E-4,
     * 2.0812E-4, 2.1528E-4, 2.4053E-4, 2.8223E-4, 3.1035E-4, 3.3644E-4,
     * 3.5302E-4, 3.9289E-4, 4.2846E-4, 4.6250E-4, 5.2586E-4, 5.5561E-4,
     * 5.8430E-4, 6.1910E-4, 1.8501E-4, 1.8311E-4, 1.9836E-4, 2.0725E-4,
     * 2.1201E-4, 2.1571E-4, 2.1765E-4, 2.1867E-4, 2.1990E-4, 2.2063E-4,
     * 2.2123E-4, 2.2141E-4, 2.2158E-4, 2.2413E-4, 2.3129E-4, 2.5654E-4,
     * 2.9824E-4, 3.2636E-4, 3.5245E-4, 3.6903E-4, 4.0890E-4, 4.4447E-4,
     * 4.7851E-4, 5.4187E-4, 5.7162E-4, 6.0031E-4, 6.3511E-4, 1.7774E-4,
     * 1.9625E-4, 2.1121E-4, 2.1793E-4, 2.2371E-4, 2.2715E-4, 2.2911E-4,
     * 2.3020E-4, 2.3141E-4, 2.3214E-4, 2.3275E-4, 2.3293E-4, 2.3310E-4,
     * 2.3564E-4, 2.4280E-4, 2.6805E-4, 3.0975E-4, 3.3788E-4, 3.6397E-4,
     * 3.8055E-4, 4.2041E-4, 4.5598E-4, 4.9002E-4, 5.5339E-4, 5.8314E-4,
     * 6.1182E-4, 6.4663E-4, 1.9334E-4, 2.1220E-4, 2.2706E-4, 2.3383E-4,
     * 2.3966E-4, 2.4310E-4, 2.4505E-4, 2.4615E-4, 2.4736E-4, 2.4809E-4,
     * 2.4869E-4, 2.4888E-4, 2.4905E-4, 2.5159E-4, 2.5875E-4, 2.8400E-4,
     * 3.2570E-4, 3.5382E-4, 3.7991E-4, 3.9649E-4, 4.3636E-4/
      DATA X5401/ 4.7193E-4, 5.0597E-4, 5.6933E-4, 5.9909E-4, 6.2777E-4,
     * 6.6257E-4, 2.7537E-4, 2.9422E-4, 3.0907E-4, 3.1583E-4, 3.2166E-4,
     * 3.2510E-4, 3.2705E-4, 3.2815E-4, 3.2936E-4, 3.3009E-4, 3.3069E-4,
     * 3.3087E-4, 3.3104E-4, 3.3359E-4, 3.4075E-4, 3.6600E-4, 4.0770E-4,
     * 4.3582E-4, 4.6191E-4, 4.7849E-4, 5.1836E-4, 5.5393E-4, 5.8797E-4,
     * 6.5133E-4, 6.8109E-4, 7.0977E-4, 7.4457E-4, 2.9749E-4, 3.1680E-4,
     * 3.3192E-4, 3.3868E-4, 3.4452E-4, 3.4802E-4, 3.4999E-4, 3.5108E-4,
     * 3.5230E-4, 3.5303E-4, 3.5364E-4, 3.5382E-4, 3.5399E-4, 3.5653E-4,
     * 3.6369E-4, 3.8894E-4, 4.3064E-4, 4.5876E-4, 4.8486E-4, 5.0144E-4,
     * 5.4130E-4, 5.7687E-4, 6.1091E-4, 6.7427E-4, 7.0403E-4, 7.3271E-4,
     * 7.6752E-4, 3.2043E-4, 3.2997E-4, 3.5095E-4, 3.5858E-4, 3.6472E-4,
     * 3.6860E-4, 3.7044E-4, 3.7160E-4, 3.7283E-4, 3.7357E-4, 3.7418E-4,
     * 3.7436E-4, 3.7453E-4, 3.7707E-4, 3.8423E-4, 4.0948E-4, 4.5118E-4,
     * 4.7930E-4, 5.0539E-4, 5.2198E-4, 5.6184E-4, 5.9741E-4, 6.3145E-4,
     * 6.9481E-4, 7.2457E-4, 7.5325E-4, 7.8805E-4, 3.3569E-4, 3.6430E-4,
     * 3.7575E-4, 3.8338E-4, 3.9047E-4, 3.9369E-4, 3.9548E-4, 3.9664E-4,
     * 3.9787E-4, 3.9861E-4, 3.9921E-4, 3.9939E-4, 3.9956E-4/
      DATA X5501/ 4.0211E-4, 4.0927E-4, 4.3452E-4, 4.7622E-4, 5.0434E-4,
     * 5.3043E-4, 5.4701E-4, 5.8688E-4, 6.2245E-4, 6.5649E-4, 7.1985E-4,
     * 7.4960E-4, 7.7829E-4, 8.1309E-4, 3.7670E-4, 3.9715E-4, 4.1151E-4,
     * 4.1842E-4, 4.2427E-4, 4.2769E-4, 4.2966E-4, 4.3075E-4, 4.3196E-4,
     * 4.3269E-4, 4.3330E-4, 4.3348E-4, 4.3365E-4, 4.3619E-4, 4.4335E-4,
     * 4.6860E-4, 5.1030E-4, 5.3842E-4, 5.6451E-4, 5.8109E-4, 6.2096E-4,
     * 6.5653E-4, 6.9057E-4, 7.5393E-4, 7.8369E-4, 8.1237E-4, 8.4717E-4,
     * 4.2260E-4, 4.4119E-4, 4.5615E-4, 4.6313E-4, 4.6889E-4, 4.7236E-4,
     * 4.7432E-4, 4.7543E-4, 4.7665E-4, 4.7738E-4, 4.7799E-4, 4.7818E-4,
     * 4.7835E-4, 4.8091E-4, 4.8813E-4, 5.1358E-4, 5.5562E-4, 5.8397E-4,
     * 6.1027E-4, 6.2699E-4, 6.6717E-4, 7.0303E-4, 7.3735E-4, 8.0122E-4,
     * 8.3121E-4, 8.6013E-4, 8.9521E-4, 4.5466E-4, 4.7368E-4, 4.8873E-4,
     * 4.9565E-4, 5.0158E-4, 5.0509E-4, 5.0709E-4, 5.0820E-4, 5.0944E-4,
     * 5.1018E-4, 5.1080E-4, 5.1099E-4, 5.1116E-4, 5.1376E-4, 5.2106E-4,
     * 5.4683E-4, 5.8938E-4, 6.1807E-4, 6.4470E-4, 6.6162E-4, 7.0230E-4,
     * 7.3859E-4, 7.7333E-4, 8.3798E-4, 8.6834E-4, 8.9761E-4, 9.3313E-4,
     * 5.0801E-4, 5.2714E-4, 5.4264E-4, 5.4966E-4, 5.5571E-4/
      DATA X5601/ 5.5927E-4, 5.6130E-4, 5.6244E-4, 5.6370E-4, 5.6446E-4,
     * 5.6509E-4, 5.6528E-4, 5.6545E-4, 5.6810E-4, 5.7554E-4, 6.0179E-4,
     * 6.4514E-4, 6.7437E-4, 7.0149E-4, 7.1873E-4, 7.6017E-4, 7.9715E-4,
     * 8.3253E-4, 8.9839E-4, 9.2932E-4, 9.5914E-4, 9.9532E-4, 5.9122E-4,
     * 6.1106E-4, 6.2679E-4, 6.3399E-4, 6.4018E-4, 6.4384E-4, 6.4592E-4,
     * 6.4709E-4, 6.4838E-4, 6.4916E-4, 6.4980E-4, 6.4999E-4, 6.5018E-4,
     * 6.5289E-4, 6.6052E-4, 6.8744E-4, 7.3189E-4, 7.6188E-4, 7.8969E-4,
     * 8.0737E-4, 8.4987E-4, 8.8779E-4, 9.2408E-4, 9.9163E-4, 1.0234E-3,
     * 1.0539E-3, 1.0910E-3, 7.4501E-4, 7.6557E-4, 7.8185E-4, 7.8930E-4,
     * 7.9572E-4, 7.9952E-4, 8.0168E-4, 8.0289E-4, 8.0424E-4, 8.0504E-4,
     * 8.0571E-4, 8.0591E-4, 8.0610E-4, 8.0891E-4, 8.1684E-4, 8.4476E-4,
     * 8.9089E-4, 9.2200E-4, 9.5086E-4, 9.6921E-4, 1.0133E-3, 1.0527E-3,
     * 1.0903E-3, 1.1604E-3, 1.1933E-3, 1.2250E-3, 1.2635E-3, 9.5246E-4,
     * 9.7367E-4, 9.9050E-4, 9.9822E-4, 1.0049E-3, 1.0088E-3, 1.0111E-3,
     * 1.0123E-3, 1.0137E-3, 1.0145E-3, 1.0152E-3, 1.0154E-3, 1.0156E-3,
     * 1.0186E-3, 1.0268E-3, 1.0557E-3, 1.1035E-3, 1.1358E-3, 1.1657E-3,
     * 1.1847E-3, 1.2304E-3, 1.2712E-3, 1.3103E-3, 1.3829E-3/
      DATA X5701/ 1.4171E-3, 1.4500E-3, 1.4899E-3, 1.5476E-3, 1.5699E-3,
     * 1.5877E-3, 1.5959E-3, 1.6030E-3, 1.6072E-3, 1.6096E-3, 1.6109E-3,
     * 1.6124E-3, 1.6133E-3, 1.6140E-3, 1.6142E-3, 1.6144E-3, 1.6175E-3,
     * 1.6263E-3, 1.6571E-3, 1.7079E-3, 1.7422E-3, 1.7740E-3, 1.7943E-3,
     * 1.8429E-3, 1.8863E-3, 1.9278E-3, 2.0050E-3, 2.0413E-3, 2.0763E-3,
     * 2.1187E-3, 2.8878E-3, 2.9113E-3, 2.9304E-3, 2.9391E-3, 2.9467E-3,
     * 2.9512E-3, 2.9537E-3, 2.9551E-3, 2.9567E-3, 2.9577E-3, 2.9585E-3,
     * 2.9587E-3, 2.9589E-3, 2.9622E-3, 2.9715E-3, 3.0044E-3, 3.0587E-3,
     * 3.0953E-3, 3.1293E-3, 3.1509E-3, 3.2028E-3, 3.2491E-3, 3.2934E-3,
     * 3.3759E-3, 3.4147E-3, 3.4520E-3, 3.4974E-3, 3.2223E-3, 3.2461E-3,
     * 3.2654E-3, 3.2742E-3, 3.2818E-3, 3.2864E-3, 3.2889E-3, 3.2904E-3,
     * 3.2920E-3, 3.2929E-3, 3.2937E-3, 3.2940E-3, 3.2942E-3, 3.2975E-3,
     * 3.3070E-3, 3.3402E-3, 3.3950E-3, 3.4321E-3, 3.4664E-3, 3.4882E-3,
     * 3.5407E-3, 3.5875E-3, 3.6322E-3, 3.7156E-3, 3.7548E-3, 3.7925E-3,
     * 3.8383E-3, 4.0568E-3, 4.0812E-3, 4.1008E-3, 4.1098E-3, 4.1176E-3,
     * 4.1223E-3, 4.1249E-3, 4.1264E-3, 4.1280E-3, 4.1290E-3, 4.1298E-3,
     * 4.1300E-3, 4.1303E-3, 4.1337E-3, 4.1433E-3, 4.1772E-3/
      DATA X5801/ 4.2333E-3, 4.2711E-3, 4.3062E-3, 4.3284E-3, 4.3820E-3,
     * 4.4298E-3, 4.4756E-3, 4.5607E-3, 4.6007E-3, 4.6393E-3, 4.6861E-3,
     * 5.3669E-5, 6.7066E-5, 8.2373E-5, 8.7032E-5, 9.1035E-5, 9.3398E-5,
     * 9.4742E-5, 9.5495E-5, 9.6330E-5, 9.6830E-5, 9.7247E-5, 9.7371E-5,
     * 9.7488E-5, 9.9238E-5, 1.0417E-4, 1.2170E-4, 1.5170E-4, 1.7286E-4,
     * 1.9306E-4, 2.0604E-4, 2.3704E-4, 2.6621E-4, 2.9383E-4, 3.4514E-4,
     * 3.6913E-4, 3.9216E-4, 4.1994E-4, 5.3669E-5, 6.7066E-5, 8.2373E-5,
     * 8.7032E-5, 9.1036E-5, 9.3399E-5, 9.4742E-5, 9.5495E-5, 9.6330E-5,
     * 9.6831E-5, 9.7247E-5, 9.7372E-5, 9.7488E-5, 9.9238E-5, 1.0417E-4,
     * 1.2170E-4, 1.5170E-4, 1.7286E-4, 1.9306E-4, 2.0604E-4, 2.3704E-4,
     * 2.6621E-4, 2.9383E-4, 3.4514E-4, 3.6913E-4, 3.9216E-4, 4.1994E-4,
     * 5.3672E-5, 6.7069E-5, 8.2376E-5, 8.7035E-5, 9.1038E-5, 9.3401E-5,
     * 9.4745E-5, 9.5498E-5, 9.6333E-5, 9.6833E-5, 9.7249E-5, 9.7374E-5,
     * 9.7491E-5, 9.9240E-5, 1.0417E-4, 1.2171E-4, 1.5170E-4, 1.7287E-4,
     * 1.9306E-4, 2.0605E-4, 2.3704E-4, 2.6622E-4, 2.9383E-4, 3.4514E-4,
     * 3.6913E-4, 3.9216E-4, 4.1994E-4, 4.6507E-5, 7.5331E-5, 9.0639E-5,
     * 9.5298E-5, 9.9301E-5, 1.0166E-4, 1.0301E-4, 1.0376E-4/
      DATA X5901/ 1.0460E-4, 1.0510E-4, 1.0551E-4, 1.0564E-4, 1.0575E-4,
     * 1.0750E-4, 1.1243E-4, 1.2997E-4, 1.5997E-4, 1.8113E-4, 2.0132E-4,
     * 2.1431E-4, 2.4531E-4, 2.7448E-4, 3.0209E-4, 3.5341E-4, 3.7739E-4,
     * 4.0042E-4, 4.2820E-4, 7.9347E-5, 9.2350E-5, 1.0257E-4, 1.0723E-4,
     * 1.1123E-4, 1.1360E-4, 1.1494E-4, 1.1569E-4, 1.1653E-4, 1.1703E-4,
     * 1.1744E-4, 1.1757E-4, 1.1769E-4, 1.1944E-4, 1.2437E-4, 1.4190E-4,
     * 1.7190E-4, 1.9306E-4, 2.1326E-4, 2.2624E-4, 2.5724E-4, 2.8641E-4,
     * 3.1403E-4, 3.6534E-4, 3.8933E-4, 4.1235E-4, 4.4013E-4, 8.9429E-5,
     * 1.0240E-4, 1.1261E-4, 1.1727E-4, 1.2127E-4, 1.2363E-4, 1.2498E-4,
     * 1.2573E-4, 1.2657E-4, 1.2707E-4, 1.2748E-4, 1.2761E-4, 1.2772E-4,
     * 1.2947E-4, 1.3440E-4, 1.5194E-4, 1.8194E-4, 2.0310E-4, 2.2329E-4,
     * 2.3628E-4, 2.6728E-4, 2.9645E-4, 3.2406E-4, 3.7538E-4, 3.9936E-4,
     * 4.2239E-4, 4.5017E-4, 1.0309E-4, 1.1602E-4, 1.2622E-4, 1.3087E-4,
     * 1.3488E-4, 1.3724E-4, 1.3858E-4, 1.3934E-4, 1.4017E-4, 1.4067E-4,
     * 1.4109E-4, 1.4121E-4, 1.4133E-4, 1.4308E-4, 1.4801E-4, 1.6554E-4,
     * 1.9554E-4, 2.1670E-4, 2.3690E-4, 2.4988E-4, 2.8088E-4, 3.1005E-4,
     * 3.3767E-4, 3.8898E-4, 4.1297E-4, 4.3600E-4, 4.6378E-4/
      DATA X6001/ 1.1694E-4, 1.2987E-4, 1.4006E-4, 1.4472E-4, 1.4873E-4,
     * 1.5109E-4, 1.5243E-4, 1.5319E-4, 1.5402E-4, 1.5452E-4, 1.5494E-4,
     * 1.5506E-4, 1.5518E-4, 1.5693E-4, 1.6186E-4, 1.7939E-4, 2.0939E-4,
     * 2.3055E-4, 2.5075E-4, 2.6373E-4, 2.9473E-4, 3.2390E-4, 3.5152E-4,
     * 4.0283E-4, 4.2682E-4, 4.4985E-4, 4.7763E-4, 1.3030E-4, 1.4317E-4,
     * 1.5334E-4, 1.5800E-4, 1.6200E-4, 1.6436E-4, 1.6570E-4, 1.6646E-4,
     * 1.6729E-4, 1.6779E-4, 1.6821E-4, 1.6833E-4, 1.6845E-4, 1.7020E-4,
     * 1.7513E-4, 1.9266E-4, 2.2266E-4, 2.4383E-4, 2.6402E-4, 2.7701E-4,
     * 3.0800E-4, 3.3718E-4, 3.6479E-4, 4.1610E-4, 4.4009E-4, 4.6312E-4,
     * 4.9090E-4, 1.3870E-4, 1.5157E-4, 1.6184E-4, 1.6650E-4, 1.7049E-4,
     * 1.7285E-4, 1.7419E-4, 1.7495E-4, 1.7578E-4, 1.7628E-4, 1.7670E-4,
     * 1.7682E-4, 1.7694E-4, 1.7869E-4, 1.8362E-4, 2.0115E-4, 2.3115E-4,
     * 2.5231E-4, 2.7251E-4, 2.8550E-4, 3.1649E-4, 3.4567E-4, 3.7328E-4,
     * 4.2459E-4, 4.4858E-4, 4.7161E-4, 4.9939E-4, 1.5432E-4, 1.6719E-4,
     * 1.7744E-4, 1.8219E-4, 1.8610E-4, 1.8847E-4, 1.8982E-4, 1.9057E-4,
     * 1.9141E-4, 1.9191E-4, 1.9233E-4, 1.9245E-4, 1.9257E-4, 1.9432E-4,
     * 1.9925E-4, 2.1678E-4, 2.4678E-4, 2.6794E-4, 2.8814E-4/
      DATA X6101/ 3.0112E-4, 3.3212E-4, 3.6129E-4, 3.8891E-4, 4.4022E-4,
     * 4.6421E-4, 4.8723E-4, 5.1502E-4, 1.7166E-4, 1.8787E-4, 1.9550E-4,
     * 2.0051E-4, 2.0462E-4, 2.0688E-4, 2.0821E-4, 2.0897E-4, 2.0980E-4,
     * 2.1030E-4, 2.1071E-4, 2.1084E-4, 2.1096E-4, 2.1271E-4, 2.1764E-4,
     * 2.3517E-4, 2.6517E-4, 2.8633E-4, 3.0653E-4, 3.1951E-4, 3.5051E-4,
     * 3.7968E-4, 4.0729E-4, 4.5861E-4, 4.8260E-4, 5.0562E-4, 5.3340E-4,
     * 1.9836E-4, 2.0218E-4, 2.1267E-4, 2.1917E-4, 2.2197E-4, 2.2459E-4,
     * 2.2594E-4, 2.2662E-4, 2.2747E-4, 2.2797E-4, 2.2839E-4, 2.2851E-4,
     * 2.2863E-4, 2.3038E-4, 2.3531E-4, 2.5284E-4, 2.8284E-4, 3.0400E-4,
     * 3.2420E-4, 3.3718E-4, 3.6818E-4, 3.9735E-4, 4.2497E-4, 4.7628E-4,
     * 5.0027E-4, 5.2330E-4, 5.5108E-4, 2.0373E-4, 2.1600E-4, 2.2620E-4,
     * 2.3077E-4, 2.3476E-4, 2.3712E-4, 2.3847E-4, 2.3921E-4, 2.4005E-4,
     * 2.4055E-4, 2.4096E-4, 2.4109E-4, 2.4121E-4, 2.4296E-4, 2.4789E-4,
     * 2.6542E-4, 2.9542E-4, 3.1658E-4, 3.3678E-4, 3.4976E-4, 3.8076E-4,
     * 4.0993E-4, 4.3754E-4, 4.8886E-4, 5.1285E-4, 5.3587E-4, 5.6365E-4,
     * 2.2041E-4, 2.3329E-4, 2.4347E-4, 2.4810E-4, 2.5210E-4, 2.5446E-4,
     * 2.5581E-4, 2.5656E-4, 2.5739E-4, 2.5789E-4, 2.5831E-4/
      DATA X6201/ 2.5843E-4, 2.5855E-4, 2.6030E-4, 2.6523E-4, 2.8277E-4,
     * 3.1276E-4, 3.3393E-4, 3.5412E-4, 3.6711E-4, 3.9811E-4, 4.2728E-4,
     * 4.5489E-4, 5.0620E-4, 5.3019E-4, 5.5322E-4, 5.8100E-4, 3.1112E-4,
     * 3.2396E-4, 3.3413E-4, 3.3877E-4, 3.4277E-4, 3.4513E-4, 3.4647E-4,
     * 3.4722E-4, 3.4806E-4, 3.4856E-4, 3.4898E-4, 3.4910E-4, 3.4922E-4,
     * 3.5097E-4, 3.5590E-4, 3.7343E-4, 4.0343E-4, 4.2459E-4, 4.4479E-4,
     * 4.5777E-4, 4.8877E-4, 5.1794E-4, 5.4556E-4, 5.9687E-4, 6.2086E-4,
     * 6.4389E-4, 6.7167E-4, 3.3820E-4, 3.5077E-4, 3.6057E-4, 3.6512E-4,
     * 3.6905E-4, 3.7140E-4, 3.7274E-4, 3.7349E-4, 3.7432E-4, 3.7482E-4,
     * 3.7524E-4, 3.7537E-4, 3.7548E-4, 3.7723E-4, 3.8216E-4, 3.9970E-4,
     * 4.2969E-4, 4.5086E-4, 4.7105E-4, 4.8404E-4, 5.1504E-4, 5.4421E-4,
     * 5.7182E-4, 6.2313E-4, 6.4712E-4, 6.7015E-4, 6.9793E-4, 3.6621E-4,
     * 3.7479E-4, 3.8433E-4, 3.8910E-4, 3.9327E-4, 3.9542E-4, 3.9655E-4,
     * 3.9738E-4, 3.9820E-4, 3.9871E-4, 3.9912E-4, 3.9925E-4, 3.9937E-4,
     * 4.0112E-4, 4.0605E-4, 4.2358E-4, 4.5358E-4, 4.7474E-4, 4.9494E-4,
     * 5.0792E-4, 5.3892E-4, 5.6809E-4, 5.9570E-4, 6.4702E-4, 6.7101E-4,
     * 6.9403E-4, 7.2181E-4, 4.1199E-4, 4.0913E-4, 4.1199E-4/
      DATA X6301/ 4.1866E-4, 4.2242E-4, 4.2498E-4, 4.2611E-4, 4.2692E-4,
     * 4.2774E-4, 4.2824E-4, 4.2865E-4, 4.2878E-4, 4.2890E-4, 4.3065E-4,
     * 4.3558E-4, 4.5311E-4, 4.8311E-4, 5.0427E-4, 5.2447E-4, 5.3745E-4,
     * 5.6845E-4, 5.9762E-4, 6.2523E-4, 6.7655E-4, 7.0054E-4, 7.2356E-4,
     * 7.5134E-4, 4.3201E-4, 4.4477E-4, 4.5455E-4, 4.5919E-4, 4.6321E-4,
     * 4.6553E-4, 4.6689E-4, 4.6763E-4, 4.6847E-4, 4.6897E-4, 4.6938E-4,
     * 4.6951E-4, 4.6962E-4, 4.7137E-4, 4.7630E-4, 4.9384E-4, 5.2384E-4,
     * 5.4500E-4, 5.6519E-4, 5.7818E-4, 6.0918E-4, 6.3835E-4, 6.6596E-4,
     * 7.1728E-4, 7.4126E-4, 7.6429E-4, 7.9207E-4, 4.8059E-4, 4.9311E-4,
     * 5.0354E-4, 5.0832E-4, 5.1226E-4, 5.1463E-4, 5.1597E-4, 5.1672E-4,
     * 5.1756E-4, 5.1806E-4, 5.1847E-4, 5.1860E-4, 5.1872E-4, 5.2047E-4,
     * 5.2540E-4, 5.4293E-4, 5.7293E-4, 5.9409E-4, 6.1429E-4, 6.2727E-4,
     * 6.5827E-4, 6.8744E-4, 7.1505E-4, 7.6637E-4, 7.9036E-4, 8.1338E-4,
     * 8.4116E-4, 5.1230E-4, 5.2494E-4, 5.3507E-4, 5.3975E-4, 5.4375E-4,
     * 5.4612E-4, 5.4746E-4, 5.4822E-4, 5.4905E-4, 5.4955E-4, 5.4997E-4,
     * 5.5009E-4, 5.5021E-4, 5.5196E-4, 5.5689E-4, 5.7442E-4, 6.0442E-4,
     * 6.2558E-4, 6.4578E-4, 6.5876E-4, 6.8976E-4, 7.1893E-4/
      DATA X6401/ 7.4655E-4, 7.9786E-4, 8.2185E-4, 8.4488E-4, 8.7266E-4,
     * 5.6243E-4, 5.7501E-4, 5.8537E-4, 5.9000E-4, 5.9401E-4, 5.9637E-4,
     * 5.9771E-4, 5.9847E-4, 5.9930E-4, 5.9980E-4, 6.0022E-4, 6.0034E-4,
     * 6.0046E-4, 6.0221E-4, 6.0714E-4, 6.2468E-4, 6.5467E-4, 6.7584E-4,
     * 6.9603E-4, 7.0902E-4, 7.4001E-4, 7.6919E-4, 7.9680E-4, 8.4811E-4,
     * 8.7210E-4, 8.9513E-4, 9.2291E-4, 6.3515E-4, 6.4809E-4, 6.5828E-4,
     * 6.6293E-4, 6.6693E-4, 6.6930E-4, 6.7064E-4, 6.7139E-4, 6.7223E-4,
     * 6.7273E-4, 6.7314E-4, 6.7327E-4, 6.7339E-4, 6.7514E-4, 6.8007E-4,
     * 6.9760E-4, 7.2760E-4, 7.4876E-4, 7.6896E-4, 7.8194E-4, 8.1294E-4,
     * 8.4211E-4, 8.6973E-4, 9.2104E-4, 9.4503E-4, 9.6805E-4, 9.9583E-4,
     * 7.5085E-4, 7.6383E-4, 7.7405E-4, 7.7870E-4, 7.8270E-4, 7.8507E-4,
     * 7.8641E-4, 7.8716E-4, 7.8800E-4, 7.8850E-4, 7.8891E-4, 7.8904E-4,
     * 7.8916E-4, 7.9091E-4, 7.9584E-4, 8.1337E-4, 8.4337E-4, 8.6453E-4,
     * 8.8473E-4, 8.9771E-4, 9.2871E-4, 9.5788E-4, 9.8549E-4, 1.0368E-3,
     * 1.0608E-3, 1.0838E-3, 1.1116E-3, 8.7427E-4, 8.8729E-4, 8.9751E-4,
     * 9.0217E-4, 9.0617E-4, 9.0854E-4, 9.0988E-4, 9.1063E-4, 9.1147E-4,
     * 9.1197E-4, 9.1238E-4, 9.1251E-4, 9.1263E-4, 9.1438E-4/
      DATA X6501/ 9.1931E-4, 9.3684E-4, 9.6684E-4, 9.8800E-4, 1.0082E-3,
     * 1.0212E-3, 1.0522E-3, 1.0814E-3, 1.1090E-3, 1.1603E-3, 1.1843E-3,
     * 1.2073E-3, 1.2351E-3, 1.0874E-3, 1.1162E-3, 1.1316E-3, 1.1362E-3,
     * 1.1402E-3, 1.1426E-3, 1.1439E-3, 1.1447E-3, 1.1455E-3, 1.1460E-3,
     * 1.1464E-3, 1.1466E-3, 1.1467E-3, 1.1484E-3, 1.1534E-3, 1.1709E-3,
     * 1.2009E-3, 1.2220E-3, 1.2422E-3, 1.2552E-3, 1.2862E-3, 1.3154E-3,
     * 1.3430E-3, 1.3943E-3, 1.4183E-3, 1.4413E-3, 1.4691E-3, 1.3835E-3,
     * 1.3969E-3, 1.4122E-3, 1.4169E-3, 1.4209E-3, 1.4233E-3, 1.4246E-3,
     * 1.4254E-3, 1.4262E-3, 1.4267E-3, 1.4271E-3, 1.4272E-3, 1.4274E-3,
     * 1.4291E-3, 1.4340E-3, 1.4516E-3, 1.4816E-3, 1.5027E-3, 1.5229E-3,
     * 1.5359E-3, 1.5669E-3, 1.5961E-3, 1.6237E-3, 1.6750E-3, 1.6990E-3,
     * 1.7220E-3, 1.7498E-3, 1.4313E-3, 1.4447E-3, 1.4600E-3, 1.4646E-3,
     * 1.4686E-3, 1.4710E-3, 1.4723E-3, 1.4731E-3, 1.4739E-3, 1.4744E-3,
     * 1.4749E-3, 1.4750E-3, 1.4751E-3, 1.4768E-3, 1.4818E-3, 1.4993E-3,
     * 1.5293E-3, 1.5505E-3, 1.5707E-3, 1.5837E-3, 1.6146E-3, 1.6438E-3,
     * 1.6714E-3, 1.7227E-3, 1.7467E-3, 1.7698E-3, 1.7975E-3, 1.5306E-3,
     * 1.5440E-3, 1.5593E-3, 1.5640E-3, 1.5680E-3, 1.5704E-3/
      DATA X6601/ 1.5717E-3, 1.5725E-3, 1.5733E-3, 1.5738E-3, 1.5742E-3,
     * 1.5743E-3, 1.5744E-3, 1.5762E-3, 1.5811E-3, 1.5987E-3, 1.6287E-3,
     * 1.6498E-3, 1.6700E-3, 1.6830E-3, 1.7140E-3, 1.7432E-3, 1.7708E-3,
     * 1.8221E-3, 1.8461E-3, 1.8691E-3, 1.8969E-3, 5.6200E-1, 5.7000E-1,
     * 5.8000E-1, 6.0000E-1, 6.2000E-1, 6.5000E-1, 6.8000E-1, 6.9000E-1,
     * 7.4000E-1, 7.8000E-1, 8.2000E-1, 8.6000E-1, 8.7000E-1, 8.9000E-1,
     * 9.0000E-1, 9.2000E-1, 9.3000E-1, 9.4000E-1, 9.5000E-1, 9.6000E-1,
     * 9.7000E-1, 9.8000E-1, 9.8500E-1, 9.8600E-1, 9.8900E-1, 9.9100E-1,
     * 9.9200E-1, 9.9400E-1, 9.9500E-1, 9.9600E-1, 9.9700E-1, 9.9800E-1,
     * 9.9860E-1, 9.9890E-1, 1.0000E+0, 1.5721E-2, 1.7985E-2, 2.1157E-2,
     * 2.8762E-2, 3.8272E-2, 5.6711E-2, 8.1021E-2, 9.0601E-2, 1.5129E-1,
     * 2.1756E-1, 3.0245E-1, 4.0885E-1, 4.3917E-1, 5.0466E-1, 5.3994E-1,
     * 6.1583E-1, 6.5657E-1, 6.9926E-1, 7.4396E-1, 7.9073E-1, 8.3965E-1,
     * 8.9077E-1, 9.1719E-1, 9.2254E-1, 9.3873E-1, 9.4965E-1, 9.5514E-1,
     * 9.6620E-1, 9.7176E-1, 9.7735E-1, 9.8296E-1, 9.8859E-1, 9.9199E-1,
     * 9.9369E-1, 1.0000E+0, 2.6508E+0, 2.6376E+0, 2.6208E+0, 2.5863E+0,
     * 2.5507E+0, 2.4953E+0, 2.4374E+0, 2.4175E+0, 2.3135E+0/
      DATA X6701/ 2.2235E+0, 2.1255E+0, 2.0160E+0, 1.9862E+0, 1.9228E+0,
     * 1.8889E+0, 1.8148E+0, 1.7739E+0, 1.7295E+0, 1.6806E+0, 1.6255E+0,
     * 1.5613E+0, 1.4820E+0, 1.4324E+0, 1.4212E+0, 1.3843E+0, 1.3557E+0,
     * 1.3399E+0, 1.3037E+0, 1.2825E+0, 1.2583E+0, 1.2297E+0, 1.1939E+0,
     * 1.1663E+0, 1.1495E+0, 1.0000E+0, 8.3978E-3, 9.4999E-3, 1.1026E-2,
     * 1.4617E-2, 1.9012E-2, 2.7350E-2, 3.8141E-2, 4.2360E-2, 6.9006E-2,
     * 9.8469E-2, 1.3754E-1, 1.8975E-1, 2.0549E-1, 2.4117E-1, 2.6149E-1,
     * 3.0856E-1, 3.3618E-1, 3.6739E-1, 4.0326E-1, 4.4544E-1, 4.9693E-1,
     * 5.6391E-1, 6.0758E-1, 6.1760E-1, 6.5126E-1, 6.7771E-1, 6.9259E-1,
     * 7.2699E-1, 7.4739E-1, 7.7091E-1, 7.9890E-1, 8.3392E-1, 8.6046E-1,
     * 8.7613E-1, 1.0000E+0, 9.3113E+0, 9.3954E+0, 9.4982E+0, 9.6967E+0,
     * 9.8866E+0, 1.0158E+1, 1.0414E+1, 1.0497E+1, 1.0895E+1, 1.1197E+1,
     * 1.1492E+1, 1.1789E+1, 1.1866E+1, 1.2024E+1, 1.2106E+1, 1.2279E+1,
     * 1.2373E+1, 1.2472E+1, 1.2579E+1, 1.2697E+1, 1.2829E+1, 1.2986E+1,
     * 1.3079E+1, 1.3100E+1, 1.3166E+1, 1.3216E+1, 1.3244E+1, 1.3304E+1,
     * 1.3339E+1, 1.3378E+1, 1.3423E+1, 1.3478E+1, 1.3519E+1, 1.3544E+1,
     * 1.3770E+1, 1.8623E+1, 1.8518E+1, 1.8392E+1, 1.8155E+1/
      DATA X6801/ 1.7933E+1, 1.7626E+1, 1.7344E+1, 1.7255E+1, 1.6835E+1,
     * 1.6521E+1, 1.6217E+1, 1.5910E+1, 1.5831E+1, 1.5669E+1, 1.5584E+1,
     * 1.5406E+1, 1.5310E+1, 1.5207E+1, 1.5097E+1, 1.4974E+1, 1.4833E+1,
     * 1.4663E+1, 1.4558E+1, 1.4534E+1, 1.4457E+1, 1.4398E+1, 1.4365E+1,
     * 1.4291E+1, 1.4248E+1, 1.4200E+1, 1.4143E+1, 1.4074E+1, 1.4023E+1,
     * 1.3993E+1, 1.3770E+1, 5.2329E+0, 5.2808E+0, 5.3403E+0, 5.4582E+0,
     * 5.5751E+0, 5.7493E+0, 5.9230E+0, 5.9809E+0, 6.2724E+0, 6.5105E+0,
     * 6.7579E+0, 7.0229E+0, 7.0935E+0, 7.2421E+0, 7.3210E+0, 7.4911E+0,
     * 7.5842E+0, 7.6842E+0, 7.7930E+0, 7.9135E+0, 8.0504E+0, 8.2129E+0,
     * 8.3099E+0, 8.3312E+0, 8.4004E+0, 8.4522E+0, 8.4804E+0, 8.5431E+0,
     * 8.5789E+0, 8.6188E+0, 8.6649E+0, 8.7210E+0, 8.7630E+0, 8.7883E+0,
     * 9.0158E+0, 1.0466E+1, 1.0481E+1, 1.0499E+1, 1.0533E+1, 1.0564E+1,
     * 1.0604E+1, 1.0635E+1, 1.0644E+1, 1.0668E+1, 1.0664E+1, 1.0632E+1,
     * 1.0567E+1, 1.0543E+1, 1.0486E+1, 1.0452E+1, 1.0367E+1, 1.0315E+1,
     * 1.0255E+1, 1.0185E+1, 1.0100E+1, 9.9944E+0, 9.8562E+0, 9.7662E+0,
     * 9.7456E+0, 9.6767E+0, 9.6230E+0, 9.5929E+0, 9.5240E+0, 9.4835E+0,
     * 9.4374E+0, 9.3831E+0, 9.3162E+0, 9.2664E+0, 9.2373E+0/
      DATA X6901/ 9.0158E+0, 2.0813E-1, 1.5070E+2, 4.8650E+0, 5.3100E-1,
     * 1.0000E-3, 2.0000E-3, 1.0000E-3, 1.0000E-3/

      CALL FLUID0(G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,M)
      RETURN

      END
      SUBROUTINE CH4
C.....METHANE TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 0.51825 JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 190.77 DEG. K                   C(2)
C       PCRIT = 4.627 MEGA-NEWTONS / METER**2   C(3)
C       DCRIT = 0.162   GRAMS / CENTIMETER**3   C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)

      DIMENSION G(19,4),TT(21),DD(28),GG(21,28,8),SAT(40,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(100),X1601(100),X1701(100),X1801(100),X1901(100),
     *          X2001(100),X2101(100),X2201(100),X2301(100),X2401(100),
     *          X2501(100),X2601(100),X2701(100),X2801(100),X2901(100),
     *          X3001(100),X3101(100),X3201(100),X3301(100),X3401(100),
     *          X3501(100),X3601(100),X3701(100),X3801(100),X3901(100),
     *          X4001(100),X4101(100),X4201(100),X4301(100),X4401(100),
     *          X4501(100),X4601(100),X4701(100),X4801(100),X4901(100),
     *          X5001(100),X5101(57)

      DIMENSION Z(5157)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501)), (X1601,Z(1601)), (X1701,Z(1701)),
     *            (X1801,Z(1801)), (X1901,Z(1901)), (X2001,Z(2001)),
     *            (X2101,Z(2101)), (X2201,Z(2201)), (X2301,Z(2301)),
     *            (X2401,Z(2401)), (X2501,Z(2501)), (X2601,Z(2601)),
     *            (X2701,Z(2701)), (X2801,Z(2801)), (X2901,Z(2901)),
     *            (X3001,Z(3001)), (X3101,Z(3101)), (X3201,Z(3201)),
     *            (X3301,Z(3301)), (X3401,Z(3401)), (X3501,Z(3501)),
     *            (X3601,Z(3601)), (X3701,Z(3701)), (X3801,Z(3801)),
     *            (X3901,Z(3901)), (X4001,Z(4001)), (X4101,Z(4101)),
     *            (X4201,Z(4201)), (X4301,Z(4301)), (X4401,Z(4401)),
     *            (X4501,Z(4501)), (X4601,Z(4601)), (X4701,Z(4701)),
     *            (X4801,Z(4801)), (X4901,Z(4901)), (X5001,Z(5001)),
     *            (X5101,Z(5101))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0077)),(DD,Z(0098)),(GG,Z(0126)),
     1            (SAT,Z(4830)),(C,Z(5150))
      DATA NG,N1,N2,N3,NS/19,21,28,8,40/

      DATA X0001/ 4.8000E-1, 5.0000E-1, 6.0000E-1, 7.0000E-1, 8.0000E-1,
     * 9.0000E-1, 9.5000E-1, 1.0000E+0, 1.0500E+0, 1.1000E+0, 1.2000E+0,
     * 1.4000E+0, 1.8000E+0, 2.0000E+0, 2.4000E+0, 2.6000E+0, 2.8000E+0,
     * 3.0000E+0, 3.1450E+0, 1.5203E+1, 1.5327E+1, 1.5879E+1, 1.6343E+1,
     * 1.6745E+1, 1.7099E+1, 1.7262E+1, 1.7416E+1, 1.7564E+1, 1.7705E+1,
     * 1.7970E+1, 1.8451E+1, 1.9287E+1, 1.9671E+1, 2.0405E+1, 2.0758E+1,
     * 2.1101E+1, 2.1431E+1, 2.1657E+1, 7.0763E+0, 7.1310E+0, 7.4039E+0,
     * 7.6756E+0, 7.9466E+0, 8.2173E+0, 8.3528E+0, 8.4886E+0, 8.6248E+0,
     * 8.7615E+0, 9.0371E+0, 9.6012E+0, 1.0816E+1, 1.1486E+1, 1.2979E+1,
     * 1.3803E+1, 1.4670E+1, 1.5564E+1, 1.6217E+1, 3.0358E+0, 3.0333E+0,
     * 3.0208E+0, 3.0105E+0, 3.0052E+0, 3.0069E+0, 3.0110E+0, 3.0175E+0,
     * 3.0267E+0, 3.0386E+0, 3.0712E+0, 3.1740E+0, 3.5292E+0, 3.7685E+0,
     * 4.2950E+0, 4.5346E+0, 4.7173E+0, 4.8050E+0, 4.7845E+0, 4.8000E-1,
     * 5.5100E-1, 6.3300E-1, 7.1400E-1, 8.3500E-1, 8.7300E-1, 9.0700E-1,
     * 9.4200E-1, 9.6300E-1, 9.8200E-1, 9.9500E-1, 9.9800E-1, 1.0300E+0,
     * 1.0800E+0, 1.1000E+0, 1.4000E+0, 1.8000E+0, 2.2000E+0, 2.4000E+0,
     * 2.8000E+0, 3.1450E+0, 1.0070E-4, 1.5000E-3, 6.0000E-3/
      DATA X0101/ 2.0000E-2, 5.0000E-2, 1.5000E-1, 2.0000E-1, 2.7000E-1,
     * 3.7000E-1, 4.5000E-1, 5.7000E-1, 7.4000E-1, 8.2500E-1, 1.1900E+0,
     * 1.3000E+0, 1.5000E+0, 1.6500E+0, 1.7200E+0, 1.9000E+0, 2.0000E+0,
     * 2.1500E+0, 2.4500E+0, 2.6000E+0, 2.7000E+0, 2.7500E+0, 2.8500E+0,
     * 2.9000E+0, 2.9500E+0, 1.2976E+0, 1.2977E+0, 1.2978E+0, 1.2979E+0,
     * 1.2979E+0, 1.2980E+0, 1.2980E+0, 1.2980E+0, 1.2980E+0, 1.2980E+0,
     * 1.2980E+0, 1.2980E+0, 1.2980E+0, 1.2980E+0, 1.2980E+0, 1.2980E+0,
     * 1.2980E+0, 1.2981E+0, 1.2981E+0, 1.2981E+0, 1.2981E+0, 1.2911E+0,
     * 1.2930E+0, 1.2945E+0, 1.2954E+0, 1.2962E+0, 1.2964E+0, 1.2966E+0,
     * 1.2967E+0, 1.2968E+0, 1.2968E+0, 1.2969E+0, 1.2969E+0, 1.2970E+0,
     * 1.2971E+0, 1.2971E+0, 1.2976E+0, 1.2978E+0, 1.2980E+0, 1.2980E+0,
     * 1.2981E+0, 1.2981E+0, 1.2715E+0, 1.2781E+0, 1.2837E+0, 1.2873E+0,
     * 1.2907E+0, 1.2915E+0, 1.2920E+0, 1.2926E+0, 1.2929E+0, 1.2931E+0,
     * 1.2933E+0, 1.2933E+0, 1.2936E+0, 1.2941E+0, 1.2943E+0, 1.2960E+0,
     * 1.2971E+0, 1.2977E+0, 1.2979E+0, 1.2982E+0, 1.2983E+0, 1.2187E+0,
     * 1.2352E+0, 1.2508E+0, 1.2627E+0, 1.2738E+0, 1.2763E+0, 1.2782E+0,
     * 1.2799E+0, 1.2809E+0, 1.2817E+0, 1.2822E+0, 1.2823E+0/
      DATA X0201/ 1.2835E+0, 1.2851E+0, 1.2856E+0, 1.2913E+0, 1.2949E+0,
     * 1.2968E+0, 1.2974E+0, 1.2983E+0, 1.2989E+0, 1.1253E+0, 1.1563E+0,
     * 1.1870E+0, 1.2118E+0, 1.2389E+0, 1.2449E+0, 1.2496E+0, 1.2538E+0,
     * 1.2561E+0, 1.2580E+0, 1.2593E+0, 1.2596E+0, 1.2624E+0, 1.2663E+0,
     * 1.2677E+0, 1.2816E+0, 1.2903E+0, 1.2948E+0, 1.2964E+0, 1.2987E+0,
     * 1.3001E+0, 8.6906E-1, 9.3794E-1, 1.0076E+0, 1.0661E+0, 1.1341E+0,
     * 1.1507E+0, 1.1636E+0, 1.1753E+0, 1.1817E+0, 1.1871E+0, 1.1905E+0,
     * 1.1913E+0, 1.1992E+0, 1.2099E+0, 1.2138E+0, 1.2522E+0, 1.2762E+0,
     * 1.2888E+0, 1.2932E+0, 1.2996E+0, 1.3036E+0, 7.7805E-1, 8.5715E-1,
     * 9.3800E-1, 1.0067E+0, 1.0889E+0, 1.1096E+0, 1.1261E+0, 1.1410E+0,
     * 1.1492E+0, 1.1560E+0, 1.1604E+0, 1.1614E+0, 1.1715E+0, 1.1852E+0,
     * 1.1901E+0, 1.2393E+0, 1.2700E+0, 1.2862E+0, 1.2918E+0, 1.3001E+0,
     * 1.3053E+0, 6.6977E-1, 7.6089E-1, 8.5477E-1, 9.3552E-1, 1.0338E+0,
     * 1.0592E+0, 1.0797E+0, 1.0985E+0, 1.1088E+0, 1.1174E+0, 1.1230E+0,
     * 1.1243E+0, 1.1370E+0, 1.1544E+0, 1.1606E+0, 1.2231E+0, 1.2623E+0,
     * 1.2831E+0, 1.2903E+0, 1.3011E+0, 1.3079E+0, 5.7080E-1, 6.6919E-1,
     * 7.7197E-1, 8.6159E-1, 9.7260E-1, 1.0020E+0, 1.0262E+0/
      DATA X0301/ 1.0489E+0, 1.0614E+0, 1.0721E+0, 1.0790E+0, 1.0806E+0,
     * 1.0962E+0, 1.1178E+0, 1.1256E+0, 1.2036E+0, 1.2532E+0, 1.2800E+0,
     * 1.2893E+0, 1.3033E+0, 1.3122E+0, 4.9780E-1, 6.0449E-1, 7.1606E-1,
     * 8.1348E-1, 9.3475E-1, 9.6698E-1, 9.9349E-1, 1.0184E+0, 1.0322E+0,
     * 1.0440E+0, 1.0516E+0, 1.0533E+0, 1.0707E+0, 1.0946E+0, 1.1033E+0,
     * 1.1908E+0, 1.2476E+0, 1.2786E+0, 1.2894E+0, 1.3059E+0, 1.3165E+0,
     * 4.6484E-1, 5.7349E-1, 6.7871E-1, 7.7686E-1, 9.0112E-1, 9.3384E-1,
     * 9.6129E-1, 9.8738E-1, 1.0020E+0, 1.0145E+0, 1.0226E+0, 1.0245E+0,
     * 1.0431E+0, 1.0691E+0, 1.0785E+0, 1.1759E+0, 1.2415E+0, 1.2784E+0,
     * 1.2915E+0, 1.3116E+0, 1.3246E+0, 4.9556E-1, 5.8829E-1, 6.8700E-1,
     * 7.7423E-1, 8.8655E-1, 9.1768E-1, 9.4348E-1, 9.6823E-1, 9.8224E-1,
     * 9.9436E-1, 1.0023E+0, 1.0042E+0, 1.0226E+0, 1.0487E+0, 1.0583E+0,
     * 1.1621E+0, 1.2374E+0, 1.2819E+0, 1.2981E+0, 1.3232E+0, 1.3396E+0,
     * 5.5070E-1, 6.3043E-1, 7.1541E-1, 7.9184E-1, 8.9197E-1, 9.1996E-1,
     * 9.4361E-1, 9.6657E-1, 9.7968E-1, 9.9110E-1, 9.9868E-1, 1.0004E+0,
     * 1.0181E+0, 1.0435E+0, 1.0529E+0, 1.1577E+0, 1.2371E+0, 1.2852E+0,
     * 1.3029E+0, 1.3305E+0, 1.3487E+0, 7.0018E-1, 7.4736E-1/
      DATA X0401/ 7.9941E-1, 8.4813E-1, 9.1590E-1, 9.3595E-1, 9.5338E-1,
     * 9.7085E-1, 9.8108E-1, 9.9019E-1, 9.9633E-1, 9.9774E-1, 1.0125E+0,
     * 1.0348E+0, 1.0434E+0, 1.1509E+0, 1.2457E+0, 1.3081E+0, 1.3318E+0,
     * 1.3696E+0, 1.3949E+0, 7.0966E-1, 7.5313E-1, 8.0240E-1, 8.4850E-1,
     * 9.1357E-1, 9.3352E-1, 9.5065E-1, 9.6789E-1, 9.7809E-1, 9.8720E-1,
     * 9.9336E-1, 9.9477E-1, 1.0097E+0, 1.0323E+0, 1.0410E+0, 1.1515E+0,
     * 1.2506E+0, 1.3164E+0, 1.3416E+0, 1.3818E+0, 1.4088E+0, 6.5625E-1,
     * 7.0923E-1, 7.6465E-1, 8.1909E-1, 8.9551E-1, 9.1797E-1, 9.3709E-1,
     * 9.5651E-1, 9.6787E-1, 9.7796E-1, 9.8477E-1, 9.8633E-1, 1.0027E+0,
     * 1.0272E+0, 1.0367E+0, 1.1545E+0, 1.2594E+0, 1.3295E+0, 1.3565E+0,
     * 1.3997E+0, 1.4288E+0, 5.8203E-1, 6.4868E-1, 7.2144E-1, 7.8847E-1,
     * 8.7798E-1, 9.0382E-1, 9.2605E-1, 9.4795E-1, 9.6064E-1, 9.7183E-1,
     * 9.7932E-1, 9.8103E-1, 9.9884E-1, 1.0252E+0, 1.0352E+0, 1.1572E+0,
     * 1.2635E+0, 1.3343E+0, 1.3616E+0, 1.4054E+0, 1.4350E+0, 5.4932E-1,
     * 6.2305E-1, 7.0239E-1, 7.7539E-1, 8.7155E-1, 8.9900E-1, 9.2245E-1,
     * 9.4543E-1, 9.5867E-1, 9.7029E-1, 9.7805E-1, 9.7982E-1, 9.9817E-1,
     * 1.0251E+0, 1.0353E+0, 1.1580E+0, 1.2637E+0, 1.3339E+0/
      DATA X0501/ 1.3610E+0, 1.4046E+0, 1.4340E+0, 4.7536E-1, 5.6772E-1,
     * 6.6539E-1, 7.5229E-1, 8.6413E-1, 8.9484E-1, 9.2053E-1, 9.4520E-1,
     * 9.5915E-1, 9.7125E-1, 9.7927E-1, 9.8109E-1, 9.9986E-1, 1.0270E+0,
     * 1.0372E+0, 1.1559E+0, 1.2552E+0, 1.3209E+0, 1.3463E+0, 1.3874E+0,
     * 1.4152E+0, 4.4830E-1, 5.5020E-1, 6.5662E-1, 7.4975E-1, 8.6679E-1,
     * 8.9809E-1, 9.2389E-1, 9.4826E-1, 9.6194E-1, 9.7376E-1, 9.8157E-1,
     * 9.8334E-1, 1.0015E+0, 1.0276E+0, 1.0374E+0, 1.1495E+0, 1.2421E+0,
     * 1.3034E+0, 1.3271E+0, 1.3656E+0, 1.3918E+0, 4.4910E-1, 5.5681E-1,
     * 6.6743E-1, 7.6227E-1, 8.7701E-1, 9.0642E-1, 9.3004E-1, 9.5211E-1,
     * 9.6440E-1, 9.7496E-1, 9.8191E-1, 9.8348E-1, 9.9958E-1, 1.0225E+0,
     * 1.0310E+0, 1.1271E+0, 1.2055E+0, 1.2576E+0, 1.2779E+0, 1.3109E+0,
     * 1.3335E+0, 5.4843E-1, 6.3422E-1, 7.1912E-1, 7.8808E-1, 8.6349E-1,
     * 8.8035E-1, 8.9357E-1, 9.0567E-1, 9.1230E-1, 9.1795E-1, 9.2163E-1,
     * 9.2246E-1, 9.3090E-1, 9.4273E-1, 9.4707E-1, 9.9487E-1, 1.0338E+0,
     * 1.0607E+0, 1.0715E+0, 1.0895E+0, 1.1022E+0, 5.5753E-1, 6.2986E-1,
     * 6.9723E-1, 7.4677E-1, 7.8927E-1, 7.9820E-1, 8.0503E-1, 8.1115E-1,
     * 8.1445E-1, 8.1723E-1, 8.1902E-1, 8.1943E-1, 8.2349E-1/
      DATA X0601/ 8.2910E-1, 8.3113E-1, 8.5297E-1, 8.7123E-1, 8.8480E-1,
     * 8.9054E-1, 9.0048E-1, 9.0774E-1, 5.2194E-1, 5.8695E-1, 6.3982E-1,
     * 6.6866E-1, 6.9088E-1, 6.9507E-1, 6.9813E-1, 7.0074E-1, 7.0210E-1,
     * 7.0321E-1, 7.0392E-1, 7.0408E-1, 7.0563E-1, 7.0767E-1, 7.0839E-1,
     * 7.1561E-1, 7.2221E-1, 7.2813E-1, 7.3090E-1, 7.3603E-1, 7.4000E-1,
     * 5.0218E-1, 5.5042E-1, 5.8880E-1, 6.0848E-1, 6.2204E-1, 6.2426E-1,
     * 6.2576E-1, 6.2694E-1, 6.2751E-1, 6.2795E-1, 6.2821E-1, 6.2827E-1,
     * 6.2881E-1, 6.2943E-1, 6.2963E-1, 6.3106E-1, 6.3301E-1, 6.3581E-1,
     * 6.3735E-1, 6.4044E-1, 6.4300E-1, 3.8676E-1, 4.1436E-1, 4.2903E-1,
     * 4.3449E-1, 4.3547E-1, 4.3497E-1, 4.3437E-1, 4.3365E-1, 4.3319E-1,
     * 4.3276E-1, 4.3246E-1, 4.3239E-1, 4.3164E-1, 4.3047E-1, 4.3002E-1,
     * 4.2438E-1, 4.2050E-1, 4.1912E-1, 4.1893E-1, 4.1909E-1, 4.1953E-1,
     * 2.9350E-1, 3.0802E-1, 3.1447E-1, 3.1560E-1, 3.1344E-1, 3.1240E-1,
     * 3.1141E-1, 3.1037E-1, 3.0975E-1, 3.0919E-1, 3.0881E-1, 3.0873E-1,
     * 3.0781E-1, 3.0643E-1, 3.0591E-1, 2.9962E-1, 2.9506E-1, 2.9294E-1,
     * 2.9238E-1, 2.9182E-1, 2.9168E-1, 1.6612E-1, 1.7122E-1, 1.7260E-1,
     * 1.7177E-1, 1.6914E-1, 1.6822E-1, 1.6740E-1, 1.6658E-1/
      DATA X0701/ 1.6609E-1, 1.6566E-1, 1.6538E-1, 1.6531E-1, 1.6462E-1,
     * 1.6360E-1, 1.6321E-1, 1.5867E-1, 1.5531E-1, 1.5359E-1, 1.5307E-1,
     * 1.5241E-1, 1.5210E-1, 1.0000E+0, 1.0000E+0, 9.9998E-1, 9.9999E-1,
     * 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9970E-1,
     * 9.9980E-1, 9.9982E-1, 9.9988E-1, 9.9991E-1, 9.9993E-1, 9.9994E-1,
     * 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9996E-1,
     * 9.9996E-1, 9.9996E-1, 9.9998E-1, 9.9998E-1, 9.9997E-1, 9.9999E-1,
     * 9.9999E-1, 9.9999E-1, 9.9880E-1, 9.9905E-1, 9.9929E-1, 9.9948E-1,
     * 9.9965E-1, 9.9970E-1, 9.9972E-1, 9.9975E-1, 9.9976E-1, 9.9977E-1,
     * 9.9978E-1, 9.9978E-1, 9.9980E-1, 9.9982E-1, 9.9983E-1, 9.9990E-1,
     * 9.9993E-1, 9.9993E-1, 9.9995E-1, 9.9995E-1, 9.9995E-1, 9.9572E-1,
     * 9.9665E-1, 9.9753E-1, 9.9818E-1, 9.9878E-1, 9.9892E-1, 9.9902E-1,
     * 9.9911E-1, 9.9915E-1, 9.9919E-1, 9.9922E-1, 9.9922E-1, 9.9928E-1,
     * 9.9936E-1, 9.9938E-1, 9.9963E-1, 9.9975E-1, 9.9978E-1, 9.9981E-1,
     * 9.9983E-1, 9.9984E-1, 9.9043E-1, 9.9217E-1, 9.9389E-1/
      DATA X0801/ 9.9530E-1, 9.9684E-1, 9.9719E-1, 9.9745E-1, 9.9768E-1,
     * 9.9780E-1, 9.9790E-1, 9.9797E-1, 9.9798E-1, 9.9813E-1, 9.9833E-1,
     * 9.9840E-1, 9.9903E-1, 9.9935E-1, 9.9946E-1, 9.9952E-1, 9.9956E-1,
     * 9.9959E-1, 9.7227E-1, 9.7704E-1, 9.8183E-1, 9.8580E-1, 9.9024E-1,
     * 9.9129E-1, 9.9208E-1, 9.9280E-1, 9.9318E-1, 9.9350E-1, 9.9370E-1,
     * 9.9375E-1, 9.9421E-1, 9.9482E-1, 9.9504E-1, 9.9702E-1, 9.9801E-1,
     * 9.9838E-1, 9.9851E-1, 9.9865E-1, 9.9873E-1, 9.6645E-1, 9.7173E-1,
     * 9.7710E-1, 9.8164E-1, 9.8701E-1, 9.8835E-1, 9.8941E-1, 9.9037E-1,
     * 9.9087E-1, 9.9130E-1, 9.9158E-1, 9.9164E-1, 9.9225E-1, 9.9308E-1,
     * 9.9337E-1, 9.9602E-1, 9.9734E-1, 9.9784E-1, 9.9801E-1, 9.9819E-1,
     * 9.9829E-1, 9.5651E-1, 9.6295E-1, 9.6974E-1, 9.7560E-1, 9.8257E-1,
     * 9.8434E-1, 9.8574E-1, 9.8702E-1, 9.8770E-1, 9.8828E-1, 9.8865E-1,
     * 9.8873E-1, 9.8956E-1, 9.9067E-1, 9.9106E-1, 9.9464E-1, 9.9641E-1,
     * 9.9709E-1, 9.9730E-1, 9.9755E-1, 9.9768E-1, 9.4531E-1, 9.5337E-1,
     * 9.6118E-1, 9.6854E-1, 9.7675E-1, 9.7896E-1, 9.8077E-1, 9.8243E-1,
     * 9.8335E-1, 9.8412E-1, 9.8462E-1, 9.8473E-1, 9.8584E-1, 9.8734E-1,
     * 9.8787E-1, 9.9271E-1, 9.9509E-1, 9.9600E-1, 9.9628E-1/
      DATA X0901/ 9.9661E-1, 9.9679E-1, 9.3555E-1, 9.4458E-1, 9.5410E-1,
     * 9.6251E-1, 9.7226E-1, 9.7487E-1, 9.7701E-1, 9.7898E-1, 9.8007E-1,
     * 9.8099E-1, 9.8158E-1, 9.8171E-1, 9.8303E-1, 9.8481E-1, 9.8544E-1,
     * 9.9120E-1, 9.9404E-1, 9.9513E-1, 9.9546E-1, 9.9585E-1, 9.9605E-1,
     * 9.1406E-1, 9.2969E-1, 9.3799E-1, 9.5020E-1, 9.6558E-1, 9.6875E-1,
     * 9.7163E-1, 9.7421E-1, 9.7558E-1, 9.7670E-1, 9.7741E-1, 9.7757E-1,
     * 9.7915E-1, 9.8129E-1, 9.8205E-1, 9.8902E-1, 9.9246E-1, 9.9378E-1,
     * 9.9417E-1, 9.9465E-1, 9.9490E-1, 9.1982E-1, 9.2897E-1, 9.4008E-1,
     * 9.4881E-1, 9.6039E-1, 9.6391E-1, 9.6653E-1, 9.6901E-1, 9.7045E-1,
     * 9.7167E-1, 9.7247E-1, 9.7265E-1, 9.7449E-1, 9.7699E-1, 9.7787E-1,
     * 9.8607E-1, 9.9017E-1, 9.9175E-1, 9.9222E-1, 9.9280E-1, 9.9311E-1,
     * 9.1292E-1, 9.2377E-1, 9.3520E-1, 9.4525E-1, 9.5793E-1, 9.6134E-1,
     * 9.6417E-1, 9.6684E-1, 9.6834E-1, 9.6962E-1, 9.7046E-1, 9.7065E-1,
     * 9.7255E-1, 9.7514E-1, 9.7606E-1, 9.8465E-1, 9.8898E-1, 9.9067E-1,
     * 9.9117E-1, 9.9179E-1, 9.9213E-1, 8.3893E-1, 8.6565E-1, 8.9278E-1,
     * 9.1560E-1, 9.4223E-1, 9.4876E-1, 9.5387E-1, 9.5840E-1, 9.6075E-1,
     * 9.6266E-1, 9.6383E-1, 9.6409E-1, 9.6649E-1, 9.6900E-1/
      DATA X1001/ 9.6990E-1, 9.7867E-1, 9.8338E-1, 9.8533E-1, 9.8593E-1,
     * 9.8670E-1, 9.8714E-1, 9.6695E-2, 3.0759E-1, 5.1500E-1, 6.8109E-1,
     * 8.5847E-1, 8.9665E-1, 9.2359E-1, 9.4431E-1, 9.5334E-1, 9.5931E-1,
     * 9.6217E-1, 9.6269E-1, 9.6500E-1, 9.6739E-1, 9.6825E-1, 9.7678E-1,
     * 9.8148E-1, 9.8346E-1, 9.8408E-1, 9.8489E-1, 9.8537E-1, 2.0352E+0,
     * 1.7493E+0, 1.4709E+0, 1.2576E+0, 1.0459E+0, 1.0049E+0, 9.7926E-1,
     * 9.6333E-1, 9.5887E-1, 9.5813E-1, 9.5943E-1, 9.5994E-1, 9.6208E-1,
     * 9.6425E-1, 9.6504E-1, 9.7310E-1, 9.7773E-1, 9.7976E-1, 9.8041E-1,
     * 9.8130E-1, 9.8183E-1, 1.5693E+0, 1.4043E+0, 1.2456E+0, 1.1228E+0,
     * 1.0016E+0, 9.7911E-1, 9.6527E-1, 9.5720E-1, 9.5536E-1, 9.5565E-1,
     * 9.5692E-1, 9.5742E-1, 9.5947E-1, 9.6153E-1, 9.6228E-1, 9.7009E-1,
     * 9.7470E-1, 9.7676E-1, 9.7744E-1, 9.7838E-1, 9.7895E-1, 1.5728E+0,
     * 1.4063E+0, 1.2463E+0, 1.1231E+0, 1.0008E+0, 9.7810E-1, 9.6410E-1,
     * 9.5592E-1, 9.5405E-1, 9.5432E-1, 9.5557E-1, 9.5608E-1, 9.5811E-1,
     * 9.6013E-1, 9.6087E-1, 9.6863E-1, 9.7324E-1, 9.7532E-1, 9.7601E-1,
     * 9.7697E-1, 9.7756E-1, 8.8040E-1, 9.0042E-1, 9.1946E-1, 9.3390E-1,
     * 9.4706E-1, 9.4915E-1, 9.5018E-1, 9.5042E-1, 9.5017E-1/
      DATA X1101/ 9.5042E-1, 9.5168E-1, 9.5219E-1, 9.5422E-1, 9.5625E-1,
     * 9.5699E-1, 9.6479E-1, 9.6946E-1, 9.7158E-1, 9.7229E-1, 9.7331E-1,
     * 9.7395E-1, 8.3533E-1, 8.6798E-1, 8.9879E-1, 9.2189E-1, 9.4292E-1,
     * 9.4619E-1, 9.4776E-1, 9.4804E-1, 9.4780E-1, 9.4807E-1, 9.4935E-1,
     * 9.4987E-1, 9.5194E-1, 9.5401E-1, 9.5477E-1, 9.6271E-1, 9.6743E-1,
     * 9.6957E-1, 9.7029E-1, 9.7133E-1, 9.7199E-1, 8.5535E-1, 8.8014E-1,
     * 9.0381E-1, 9.2197E-1, 9.3928E-1, 9.4232E-1, 9.4406E-1, 9.4447E-1,
     * 9.4429E-1, 9.4462E-1, 9.4595E-1, 9.4648E-1, 9.4866E-1, 9.5085E-1,
     * 9.5165E-1, 9.5990E-1, 9.6471E-1, 9.6687E-1, 9.6759E-1, 9.6865E-1,
     * 9.6933E-1, 8.8927E-1, 8.9934E-1, 9.1018E-1, 9.2007E-1, 9.3334E-1,
     * 9.3713E-1, 9.3940E-1, 9.4022E-1, 9.4024E-1, 9.4074E-1, 9.4222E-1,
     * 9.4279E-1, 9.4526E-1, 9.4779E-1, 9.4870E-1, 9.5774E-1, 9.6259E-1,
     * 9.6460E-1, 9.6526E-1, 9.6621E-1, 9.6684E-1, 8.8350E-1, 8.9522E-1,
     * 9.0786E-1, 9.1939E-1, 9.3487E-1, 9.3910E-1, 9.4167E-1, 9.4271E-1,
     * 9.4283E-1, 9.4342E-1, 9.4498E-1, 9.4558E-1, 9.4820E-1, 9.5089E-1,
     * 9.5186E-1, 9.6115E-1, 9.6580E-1, 9.6753E-1, 9.6807E-1, 9.6880E-1,
     * 9.6928E-1, 8.8091E-1, 8.9505E-1, 9.1000E-1, 9.2333E-1/
      DATA X1201/ 9.4029E-1, 9.4481E-1, 9.4756E-1, 9.4872E-1, 9.4889E-1,
     * 9.4952E-1, 9.5114E-1, 9.5175E-1, 9.5446E-1, 9.5724E-1, 9.5824E-1,
     * 9.6753E-1, 9.7181E-1, 9.7318E-1, 9.7355E-1, 9.7401E-1, 9.7428E-1,
     * 8.8124E-1, 8.9714E-1, 9.1358E-1, 9.2779E-1, 9.4548E-1, 9.5013E-1,
     * 9.5297E-1, 9.5417E-1, 9.5435E-1, 9.5500E-1, 9.5664E-1, 9.5726E-1,
     * 9.6001E-1, 9.6281E-1, 9.6381E-1, 9.7299E-1, 9.7699E-1, 9.7807E-1,
     * 9.7832E-1, 9.7855E-1, 9.7866E-1, 9.0665E-1, 9.1184E-1, 9.3118E-1,
     * 9.4710E-1, 9.6610E-1, 9.7098E-1, 9.7392E-1, 9.7514E-1, 9.7530E-1,
     * 9.7594E-1, 9.7762E-1, 9.7826E-1, 9.8104E-1, 9.8382E-1, 9.8480E-1,
     * 9.9335E-1, 9.9626E-1, 9.9635E-1, 9.9615E-1, 9.9560E-1, 9.9514E-1,
     * 9.2436E-1, 9.3092E-1, 9.5162E-1, 9.6828E-1, 9.8777E-1, 9.9270E-1,
     * 9.9564E-1, 9.9679E-1, 9.9688E-1, 9.9748E-1, 9.9916E-1, 9.9981E-1,
     * 1.0026E+0, 1.0052E+0, 1.0062E+0, 1.0139E+0, 1.0157E+0, 1.0148E+0,
     * 1.0142E+0, 1.0129E+0, 1.0118E+0, 9.6784E-1, 9.7508E-1, 9.9684E-1,
     * 1.0140E+0, 1.0335E+0, 1.0383E+0, 1.0411E+0, 1.0420E+0, 1.0419E+0,
     * 1.0424E+0, 1.0440E+0, 1.0447E+0, 1.0473E+0, 1.0497E+0, 1.0505E+0,
     * 1.0563E+0, 1.0557E+0, 1.0528E+0, 1.0513E+0, 1.0483E+0/
      DATA X1301/ 1.0461E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9995E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9944E-1,
     * 9.9956E-1, 9.9966E-1, 9.9973E-1, 9.9981E-1, 9.9983E-1, 9.9984E-1,
     * 9.9986E-1, 9.9986E-1, 9.9987E-1, 9.9987E-1, 9.9987E-1, 9.9988E-1,
     * 9.9989E-1, 9.9990E-1, 9.9994E-1, 9.9996E-1, 9.9992E-1, 9.9997E-1,
     * 9.9997E-1, 9.9997E-1, 9.9766E-1, 9.9813E-1, 9.9857E-1, 9.9888E-1,
     * 9.9920E-1, 9.9927E-1, 9.9933E-1, 9.9939E-1, 9.9942E-1, 9.9944E-1,
     * 9.9946E-1, 9.9946E-1, 9.9950E-1, 9.9955E-1, 9.9957E-1, 9.9974E-1,
     * 9.9983E-1, 9.9981E-1, 9.9988E-1, 9.9988E-1, 9.9988E-1, 9.9245E-1,
     * 9.9383E-1, 9.9516E-1, 9.9621E-1, 9.9729E-1, 9.9755E-1, 9.9775E-1,
     * 9.9793E-1, 9.9803E-1, 9.9812E-1, 9.9817E-1, 9.9818E-1, 9.9831E-1,
     * 9.9848E-1, 9.9854E-1, 9.9913E-1, 9.9944E-1, 9.9950E-1, 9.9958E-1,
     * 9.9960E-1, 9.9961E-1, 9.8226E-1, 9.8517E-1, 9.8808E-1, 9.9048E-1,
     * 9.9320E-1, 9.9384E-1, 9.9435E-1, 9.9481E-1, 9.9506E-1, 9.9527E-1,
     * 9.9541E-1, 9.9544E-1, 9.9576E-1, 9.9619E-1, 9.9634E-1/
      DATA X1401/ 9.9783E-1, 9.9860E-1, 9.9882E-1, 9.9894E-1, 9.9900E-1,
     * 9.9902E-1, 9.4960E-1, 9.5723E-1, 9.6504E-1, 9.7166E-1, 9.7946E-1,
     * 9.8141E-1, 9.8295E-1, 9.8436E-1, 9.8513E-1, 9.8578E-1, 9.8620E-1,
     * 9.8629E-1, 9.8725E-1, 9.8857E-1, 9.8904E-1, 9.9354E-1, 9.9584E-1,
     * 9.9660E-1, 9.9683E-1, 9.9700E-1, 9.9704E-1, 9.3497E-1, 9.4444E-1,
     * 9.5419E-1, 9.6254E-1, 9.7260E-1, 9.7517E-1, 9.7723E-1, 9.7912E-1,
     * 9.8015E-1, 9.8103E-1, 9.8160E-1, 9.8172E-1, 9.8301E-1, 9.8477E-1,
     * 9.8540E-1, 9.9142E-1, 9.9447E-1, 9.9548E-1, 9.9577E-1, 9.9598E-1,
     * 9.9602E-1, 9.1489E-1, 9.2679E-1, 9.3916E-1, 9.4992E-1, 9.6306E-1,
     * 9.6648E-1, 9.6925E-1, 9.7182E-1, 9.7322E-1, 9.7441E-1, 9.7518E-1,
     * 9.7535E-1, 9.7709E-1, 9.7948E-1, 9.8034E-1, 9.8848E-1, 9.9256E-1,
     * 9.9390E-1, 9.9425E-1, 9.9451E-1, 9.9455E-1, 8.8843E-1, 9.0356E-1,
     * 9.1895E-1, 9.3315E-1, 9.4989E-1, 9.5438E-1, 9.5808E-1, 9.6154E-1,
     * 9.6346E-1, 9.6509E-1, 9.6614E-1, 9.6638E-1, 9.6877E-1, 9.7205E-1,
     * 9.7322E-1, 9.8431E-1, 9.8979E-1, 9.9154E-1, 9.9197E-1, 9.9228E-1,
     * 9.9230E-1, 8.6548E-1, 8.8354E-1, 9.0234E-1, 9.1934E-1, 9.3950E-1,
     * 9.4492E-1, 9.4940E-1, 9.5357E-1, 9.5589E-1, 9.5786E-1/
      DATA X1501/ 9.5914E-1, 9.5942E-1, 9.6231E-1, 9.6627E-1, 9.6768E-1,
     * 9.8101E-1, 9.8751E-1, 9.8955E-1, 9.9002E-1, 9.9034E-1, 9.9034E-1,
     * 8.2813E-1, 8.5596E-1, 8.7695E-1, 8.9819E-1, 9.2505E-1, 9.3164E-1,
     * 9.3710E-1, 9.4232E-1, 9.4520E-1, 9.4763E-1, 9.4921E-1, 9.4956E-1,
     * 9.5313E-1, 9.5801E-1, 9.5975E-1, 9.7611E-1, 9.8393E-1, 9.8630E-1,
     * 9.8681E-1, 9.8712E-1, 9.8707E-1, 8.0617E-1, 8.3061E-1, 8.5690E-1,
     * 8.7968E-1, 9.0831E-1, 9.1627E-1, 9.2264E-1, 9.2866E-1, 9.3205E-1,
     * 9.3496E-1, 9.3685E-1, 9.3728E-1, 9.4158E-1, 9.4747E-1, 9.4957E-1,
     * 9.6922E-1, 9.7836E-1, 9.8097E-1, 9.8148E-1, 9.8172E-1, 9.8159E-1,
     * 7.9724E-1, 8.2246E-1, 8.4900E-1, 8.7238E-1, 9.0202E-1, 9.1003E-1,
     * 9.1667E-1, 9.2299E-1, 9.2653E-1, 9.2956E-1, 9.3155E-1, 9.3201E-1,
     * 9.3655E-1, 9.4278E-1, 9.4500E-1, 9.6575E-1, 9.7527E-1, 9.7791E-1,
     * 9.7840E-1, 9.7858E-1, 9.7842E-1, 6.0437E-1, 6.7024E-1, 7.3709E-1,
     * 7.9333E-1, 8.5916E-1, 8.7533E-1, 8.8799E-1, 8.9923E-1, 9.0510E-1,
     * 9.0985E-1, 9.1279E-1, 9.1343E-1, 9.1946E-1, 9.2582E-1, 9.2810E-1,
     * 9.4941E-1, 9.5876E-1, 9.6099E-1, 9.6132E-1, 9.6133E-1, 9.6109E-1,
     *-1.2110E+0,-6.9525E-1,-1.8764E-1, 2.1890E-1, 6.5286E-1/
      DATA X1601/ 7.4655E-1, 8.1268E-1, 8.6359E-1, 8.8580E-1, 9.0048E-1,
     * 9.0757E-1, 9.0887E-1, 9.1472E-1, 9.2082E-1, 9.2301E-1, 9.4354E-1,
     * 9.5248E-1, 9.5455E-1, 9.5485E-1, 9.5488E-1, 9.5467E-1, 3.5313E+0,
     * 2.8306E+0, 2.1543E+0, 1.6301E+0, 1.1086E+0, 1.0089E+0, 9.4583E-1,
     * 9.0692E-1, 8.9615E-1, 8.9452E-1, 8.9785E-1, 8.9913E-1, 9.0461E-1,
     * 9.1017E-1, 9.1217E-1, 9.3109E-1, 9.3932E-1, 9.4125E-1, 9.4159E-1,
     * 9.4178E-1, 9.4175E-1, 2.3789E+0, 1.9758E+0, 1.5890E+0, 1.2898E+0,
     * 9.9547E-1, 9.4092E-1, 9.0749E-1, 8.8819E-1, 8.8399E-1, 8.8494E-1,
     * 8.8820E-1, 8.8948E-1, 8.9476E-1, 9.0003E-1, 9.0193E-1, 9.2004E-1,
     * 9.2805E-1, 9.3009E-1, 9.3054E-1, 9.3100E-1, 9.3118E-1, 2.3860E+0,
     * 1.9800E+0, 1.5899E+0, 1.2881E+0, 9.9130E-1, 9.3626E-1, 9.0249E-1,
     * 8.8295E-1, 8.7866E-1, 8.7957E-1, 8.8282E-1, 8.8409E-1, 8.8933E-1,
     * 8.9454E-1, 8.9642E-1, 9.1439E-1, 9.2244E-1, 9.2460E-1, 9.2513E-1,
     * 9.2575E-1, 9.2607E-1, 6.8130E-1, 7.3221E-1, 7.8056E-1, 8.1740E-1,
     * 8.5204E-1, 8.5789E-1, 8.6108E-1, 8.6236E-1, 8.6215E-1, 8.6311E-1,
     * 8.6641E-1, 8.6770E-1, 8.7302E-1, 8.7833E-1, 8.8025E-1, 8.9866E-1,
     * 9.0723E-1, 9.0994E-1, 9.1073E-1, 9.1186E-1, 9.1257E-1/
      DATA X1701/ 5.5901E-1, 6.4224E-1, 7.2110E-1, 7.8077E-1, 8.3620E-1,
     * 8.4528E-1, 8.5003E-1, 8.5159E-1, 8.5154E-1, 8.5263E-1, 8.5600E-1,
     * 8.5729E-1, 8.6277E-1, 8.6830E-1, 8.7029E-1, 8.8942E-1, 8.9850E-1,
     * 9.0161E-1, 9.0259E-1, 9.0405E-1, 9.0499E-1, 5.8815E-1, 6.5512E-1,
     * 7.1936E-1, 7.6906E-1, 8.1771E-1, 8.2668E-1, 8.3214E-1, 8.3439E-1,
     * 8.3472E-1, 8.3611E-1, 8.3960E-1, 8.4091E-1, 8.4670E-1, 8.5269E-1,
     * 8.5484E-1, 8.7541E-1, 8.8543E-1, 8.8921E-1, 8.9047E-1, 8.9244E-1,
     * 8.9374E-1, 6.1693E-1, 6.5924E-1, 7.0228E-1, 7.3869E-1, 7.8176E-1,
     * 7.9248E-1, 7.9939E-1, 8.0316E-1, 8.0439E-1, 8.0640E-1, 8.1000E-1,
     * 8.1128E-1, 8.1753E-1, 8.2431E-1, 8.2674E-1, 8.4968E-1, 8.6124E-1,
     * 8.6616E-1, 8.6790E-1, 8.7074E-1, 8.7266E-1, 5.8077E-1, 6.3292E-1,
     * 6.8430E-1, 7.2574E-1, 7.7041E-1, 7.8131E-1, 7.8845E-1, 7.9264E-1,
     * 7.9416E-1, 7.9632E-1, 7.9981E-1, 8.0102E-1, 8.0719E-1, 8.1400E-1,
     * 8.1643E-1, 8.3939E-1, 8.5109E-1, 8.5625E-1, 8.5811E-1, 8.6119E-1,
     * 8.6331E-1, 5.5423E-1, 6.2111E-1, 6.8113E-1, 7.2231E-1, 7.6624E-1,
     * 7.7688E-1, 7.8393E-1, 7.8820E-1, 7.8981E-1, 7.9198E-1, 7.9533E-1,
     * 7.9648E-1, 8.0244E-1, 8.0908E-1, 8.1145E-1, 8.3383E-1/
      DATA X1801/ 8.4529E-1, 8.5043E-1, 8.5232E-1, 8.5546E-1, 8.5765E-1,
     * 5.5752E-1, 6.2291E-1, 6.8168E-1, 7.2210E-1, 7.6517E-1, 7.7560E-1,
     * 7.8253E-1, 7.8677E-1, 7.8839E-1, 7.9055E-1, 7.9380E-1, 7.9491E-1,
     * 8.0073E-1, 8.0724E-1, 8.0956E-1, 8.3147E-1, 8.4271E-1, 8.4778E-1,
     * 8.4966E-1, 8.5281E-1, 8.5501E-1, 5.8013E-1, 6.3185E-1, 6.8640E-1,
     * 7.2437E-1, 7.6494E-1, 7.7477E-1, 7.8134E-1, 7.8543E-1, 7.8703E-1,
     * 7.8908E-1, 7.9212E-1, 7.9316E-1, 7.9862E-1, 8.0476E-1, 8.0695E-1,
     * 8.2760E-1, 8.3820E-1, 8.4304E-1, 8.4485E-1, 8.4794E-1, 8.5012E-1,
     * 5.8975E-1, 6.3839E-1, 6.9029E-1, 7.2669E-1, 7.6570E-1, 7.7516E-1,
     * 7.8150E-1, 7.8547E-1, 7.8703E-1, 7.8902E-1, 7.9194E-1, 7.9293E-1,
     * 7.9819E-1, 8.0410E-1, 8.0621E-1, 8.2609E-1, 8.3628E-1, 8.4094E-1,
     * 8.4271E-1, 8.4573E-1, 8.4789E-1, 6.0063E-1, 6.4595E-1, 6.9498E-1,
     * 7.2966E-1, 7.6697E-1, 7.7604E-1, 7.8212E-1, 7.8595E-1, 7.8745E-1,
     * 7.8936E-1, 7.9216E-1, 7.9310E-1, 7.9814E-1, 8.0381E-1, 8.0583E-1,
     * 8.2486E-1, 8.3458E-1, 8.3904E-1, 8.4074E-1, 8.4368E-1, 8.4579E-1,
     * 1.0000E+0, 1.0000E+0, 9.9999E-1, 9.9999E-1, 9.9999E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0/
      DATA X1901/ 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9976E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0048E+0,
     * 1.0039E+0, 1.0029E+0, 1.0022E+0, 1.0015E+0, 1.0013E+0, 1.0012E+0,
     * 1.0011E+0, 1.0010E+0, 1.0010E+0, 1.0009E+0, 1.0009E+0, 1.0009E+0,
     * 1.0007E+0, 1.0007E+0, 1.0003E+0, 1.0001E+0, 9.9983E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0203E+0, 1.0161E+0, 1.0121E+0, 1.0092E+0,
     * 1.0063E+0, 1.0056E+0, 1.0051E+0, 1.0046E+0, 1.0043E+0, 1.0041E+0,
     * 1.0039E+0, 1.0039E+0, 1.0036E+0, 1.0031E+0, 1.0030E+0, 1.0014E+0,
     * 1.0006E+0, 1.0000E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0649E+0,
     * 1.0526E+0, 1.0405E+0, 1.0310E+0, 1.0211E+0, 1.0188E+0, 1.0170E+0,
     * 1.0154E+0, 1.0145E+0, 1.0137E+0, 1.0132E+0, 1.0131E+0, 1.0120E+0,
     * 1.0105E+0, 1.0100E+0, 1.0048E+0, 1.0020E+0, 1.0007E+0, 1.0006E+0,
     * 1.0003E+0, 1.0002E+0, 1.1489E+0, 1.1233E+0, 1.0976E+0, 1.0764E+0,
     * 1.0525E+0, 1.0468E+0, 1.0424E+0, 1.0383E+0, 1.0361E+0, 1.0342E+0,
     * 1.0330E+0, 1.0327E+0, 1.0300E+0, 1.0262E+0, 1.0249E+0, 1.0119E+0,
     * 1.0050E+0, 1.0020E+0, 1.0016E+0, 1.0009E+0, 1.0006E+0, 1.3869E+0,
     * 1.3274E+0, 1.2666E+0, 1.2147E+0, 1.1524E+0, 1.1366E+0/
      DATA X2001/ 1.1240E+0, 1.1123E+0, 1.1059E+0, 1.1005E+0, 1.0970E+0,
     * 1.0962E+0, 1.0882E+0, 1.0772E+0, 1.0732E+0, 1.0349E+0, 1.0144E+0,
     * 1.0063E+0, 1.0046E+0, 1.0024E+0, 1.0015E+0, 1.4860E+0, 1.4145E+0,
     * 1.3407E+0, 1.2771E+0, 1.1993E+0, 1.1791E+0, 1.1628E+0, 1.1477E+0,
     * 1.1394E+0, 1.1323E+0, 1.1277E+0, 1.1266E+0, 1.1162E+0, 1.1017E+0,
     * 1.0965E+0, 1.0459E+0, 1.0189E+0, 1.0083E+0, 1.0059E+0, 1.0031E+0,
     * 1.0020E+0, 1.6101E+0, 1.5241E+0, 1.4350E+0, 1.3575E+0, 1.2610E+0,
     * 1.2354E+0, 1.2145E+0, 1.1949E+0, 1.1841E+0, 1.1748E+0, 1.1688E+0,
     * 1.1675E+0, 1.1537E+0, 1.1347E+0, 1.1278E+0, 1.0608E+0, 1.0249E+0,
     * 1.0109E+0, 1.0077E+0, 1.0040E+0, 1.0025E+0, 1.7556E+0, 1.6550E+0,
     * 1.5493E+0, 1.4571E+0, 1.3394E+0, 1.3077E+0, 1.2815E+0, 1.2565E+0,
     * 1.2426E+0, 1.2307E+0, 1.2228E+0, 1.2211E+0, 1.2031E+0, 1.1782E+0,
     * 1.1692E+0, 1.0805E+0, 1.0327E+0, 1.0142E+0, 1.0099E+0, 1.0051E+0,
     * 1.0031E+0, 1.8618E+0, 1.7490E+0, 1.6309E+0, 1.5272E+0, 1.3941E+0,
     * 1.3581E+0, 1.3282E+0, 1.2997E+0, 1.2837E+0, 1.2699E+0, 1.2609E+0,
     * 1.2589E+0, 1.2381E+0, 1.2092E+0, 1.1987E+0, 1.0947E+0, 1.0383E+0,
     * 1.0165E+0, 1.0115E+0, 1.0058E+0, 1.0035E+0, 1.9609E+0/
      DATA X2101/ 1.8477E+0, 1.7144E+0, 1.6016E+0, 1.4573E+0, 1.4172E+0,
     * 1.3836E+0, 1.3515E+0, 1.3334E+0, 1.3177E+0, 1.3074E+0, 1.3050E+0,
     * 1.2811E+0, 1.2476E+0, 1.2353E+0, 1.1126E+0, 1.0453E+0, 1.0194E+0,
     * 1.0133E+0, 1.0066E+0, 1.0039E+0, 2.0220E+0, 1.8999E+0, 1.7717E+0,
     * 1.6558E+0, 1.5053E+0, 1.4638E+0, 1.4286E+0, 1.3946E+0, 1.3753E+0,
     * 1.3585E+0, 1.3474E+0, 1.3449E+0, 1.3190E+0, 1.2822E+0, 1.2687E+0,
     * 1.1302E+0, 1.0523E+0, 1.0221E+0, 1.0150E+0, 1.0071E+0, 1.0040E+0,
     * 2.0022E+0, 1.8872E+0, 1.7647E+0, 1.6546E+0, 1.5100E+0, 1.4695E+0,
     * 1.4352E+0, 1.4020E+0, 1.3830E+0, 1.3664E+0, 1.3554E+0, 1.3529E+0,
     * 1.3272E+0, 1.2904E+0, 1.2767E+0, 1.1353E+0, 1.0545E+0, 1.0229E+0,
     * 1.0155E+0, 1.0072E+0, 1.0040E+0, 1.6895E+0, 1.6302E+0, 1.5650E+0,
     * 1.5039E+0, 1.4186E+0, 1.3933E+0, 1.3713E+0, 1.3492E+0, 1.3363E+0,
     * 1.3248E+0, 1.3170E+0, 1.3152E+0, 1.2965E+0, 1.2682E+0, 1.2574E+0,
     * 1.1340E+0, 1.0550E+0, 1.0225E+0, 1.0147E+0, 1.0061E+0, 1.0027E+0,
     * 1.5251E+0, 1.4946E+0, 1.4599E+0, 1.4236E+0, 1.3683E+0, 1.3511E+0,
     * 1.3348E+0, 1.3180E+0, 1.3079E+0, 1.2988E+0, 1.2924E+0, 1.2910E+0,
     * 1.2753E+0, 1.2511E+0, 1.2416E+0, 1.1289E+0, 1.0532E+0/
      DATA X2201/ 1.0215E+0, 1.0138E+0, 1.0054E+0, 1.0020E+0, 1.2656E+0,
     * 1.2813E+0, 1.2888E+0, 1.2927E+0, 1.2854E+0, 1.2793E+0, 1.2723E+0,
     * 1.2641E+0, 1.2585E+0, 1.2530E+0, 1.2490E+0, 1.2481E+0, 1.2375E+0,
     * 1.2199E+0, 1.2127E+0, 1.1184E+0, 1.0491E+0, 1.0190E+0, 1.0117E+0,
     * 1.0037E+0, 1.0005E+0, 1.1182E+0, 1.1592E+0, 1.1963E+0, 1.2221E+0,
     * 1.2393E+0, 1.2397E+0, 1.2380E+0, 1.2342E+0, 1.2310E+0, 1.2274E+0,
     * 1.2246E+0, 1.2239E+0, 1.2160E+0, 1.2019E+0, 1.1960E+0, 1.1117E+0,
     * 1.0458E+0, 1.0168E+0, 1.0098E+0, 1.0022E+0, 9.9919E-1, 1.0825E+0,
     * 1.1289E+0, 1.1719E+0, 1.2025E+0, 1.2259E+0, 1.2279E+0, 1.2275E+0,
     * 1.2249E+0, 1.2223E+0, 1.2193E+0, 1.2168E+0, 1.2162E+0, 1.2091E+0,
     * 1.1961E+0, 1.1905E+0, 1.1091E+0, 1.0443E+0, 1.0157E+0, 1.0089E+0,
     * 1.0014E+0, 9.9848E-1, 9.4176E-1, 1.0229E+0, 1.0988E+0, 1.1553E+0,
     * 1.2051E+0, 1.2123E+0, 1.2152E+0, 1.2148E+0, 1.2128E+0, 1.2103E+0,
     * 1.2081E+0, 1.2076E+0, 1.2011E+0, 1.1890E+0, 1.1837E+0, 1.1046E+0,
     * 1.0406E+0, 1.0127E+0, 1.0061E+0, 9.9917E-1, 9.9645E-1, 8.8049E-1,
     * 9.8180E-1, 1.0764E+0, 1.1463E+0, 1.2072E+0, 1.2155E+0, 1.2186E+0,
     * 1.2174E+0, 1.2151E+0, 1.2123E+0, 1.2099E+0, 1.2094E+0/
      DATA X2301/ 1.2025E+0, 1.1898E+0, 1.1842E+0, 1.1033E+0, 1.0387E+0,
     * 1.0109E+0, 1.0045E+0, 9.9775E-1, 9.9518E-1, 8.6130E-1, 9.7891E-1,
     * 1.0871E+0, 1.1650E+0, 1.2275E+0, 1.2338E+0, 1.2340E+0, 1.2304E+0,
     * 1.2268E+0, 1.2229E+0, 1.2198E+0, 1.2191E+0, 1.2107E+0, 1.1959E+0,
     * 1.1897E+0, 1.1025E+0, 1.0357E+0, 1.0079E+0, 1.0017E+0, 9.9542E-1,
     * 9.9308E-1, 9.7252E-1, 1.0942E+0, 1.2001E+0, 1.2683E+0, 1.3028E+0,
     * 1.2970E+0, 1.2880E+0, 1.2762E+0, 1.2683E+0, 1.2607E+0, 1.2553E+0,
     * 1.2540E+0, 1.2404E+0, 1.2188E+0, 1.2102E+0, 1.1024E+0, 1.0287E+0,
     * 1.0007E+0, 9.9506E-1, 9.8988E-1, 9.8815E-1, 1.5237E+0, 1.4333E+0,
     * 1.3752E+0, 1.3666E+0, 1.4442E+0, 1.3572E+0, 1.1829E+0, 9.8304E-1,
     * 9.8606E-1, 1.3030E+0, 2.8298E+0, 2.2466E+0, 1.2573E+0, 1.2315E+0,
     * 1.2214E+0, 1.1016E+0, 1.0243E+0, 9.9643E-1, 9.9111E-1, 9.8664E-1,
     * 9.8530E-1, 9.0304E-1, 1.2542E+0, 1.4483E+0, 1.4176E+0, 1.4734E+0,
     * 1.3815E+0, 1.2034E+0, 1.0003E+0, 1.0015E+0, 1.3170E+0, 2.8428E+0,
     * 2.2593E+0, 1.2680E+0, 1.2394E+0, 1.2284E+0, 1.1005E+0, 1.0209E+0,
     * 9.9324E-1, 9.8823E-1, 9.8430E-1, 9.8325E-1, 9.6916E-1, 1.3047E+0,
     * 1.4843E+0, 1.4427E+0, 1.4876E+0, 1.3934E+0, 1.2134E+0/
      DATA X2401/ 1.0086E+0, 1.0089E+0, 1.3237E+0, 2.8490E+0, 2.2654E+0,
     * 1.2731E+0, 1.2431E+0, 1.2315E+0, 1.0997E+0, 1.0190E+0, 9.9155E-1,
     * 9.8670E-1, 9.8308E-1, 9.8218E-1, 6.2449E-1, 1.4024E+0, 1.5543E+0,
     * 1.4916E+0, 1.5152E+0, 1.4161E+0, 1.2324E+0, 1.0243E+0, 1.0229E+0,
     * 1.3361E+0, 2.8606E+0, 2.2768E+0, 1.2824E+0, 1.2496E+0, 1.2371E+0,
     * 1.0975E+0, 1.0149E+0, 9.8796E-1, 9.8349E-1, 9.8051E-1, 9.7995E-1,
     * 6.8195E-1, 1.4493E+0, 1.5882E+0, 1.5152E+0, 1.5283E+0, 1.4268E+0,
     * 1.2414E+0, 1.0316E+0, 1.0293E+0, 1.3419E+0, 2.8659E+0, 2.2819E+0,
     * 1.2865E+0, 1.2524E+0, 1.2395E+0, 1.0962E+0, 1.0128E+0, 9.8606E-1,
     * 9.8180E-1, 9.7918E-1, 9.7880E-1, 7.3704E-1, 1.4949E+0, 1.6213E+0,
     * 1.5382E+0, 1.5409E+0, 1.4372E+0, 1.2499E+0, 1.0386E+0, 1.0354E+0,
     * 1.3473E+0, 2.8708E+0, 2.2868E+0, 1.2904E+0, 1.2550E+0, 1.2416E+0,
     * 1.0946E+0, 1.0104E+0, 9.8409E-1, 9.8006E-1, 9.7780E-1, 9.7761E-1,
     * 1.0004E+0, 1.0003E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0060E+0, 1.0043E+0/
      DATA X2501/ 1.0030E+0, 1.0022E+0, 1.0015E+0, 1.0013E+0, 1.0012E+0,
     * 1.0011E+0, 1.0010E+0, 1.0010E+0, 1.0009E+0, 1.0009E+0, 1.0009E+0,
     * 1.0008E+0, 1.0007E+0, 1.0004E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0239E+0, 1.0178E+0, 1.0125E+0, 1.0091E+0,
     * 1.0060E+0, 1.0053E+0, 1.0048E+0, 1.0044E+0, 1.0041E+0, 1.0039E+0,
     * 1.0038E+0, 1.0037E+0, 1.0034E+0, 1.0030E+0, 1.0029E+0, 1.0015E+0,
     * 1.0008E+0, 1.0004E+0, 1.0004E+0, 1.0003E+0, 1.0002E+0, 1.0796E+0,
     * 1.0616E+0, 1.0447E+0, 1.0321E+0, 1.0209E+0, 1.0185E+0, 1.0166E+0,
     * 1.0150E+0, 1.0141E+0, 1.0134E+0, 1.0129E+0, 1.0128E+0, 1.0117E+0,
     * 1.0103E+0, 1.0098E+0, 1.0050E+0, 1.0025E+0, 1.0015E+0, 1.0012E+0,
     * 1.0008E+0, 1.0007E+0, 1.2116E+0, 1.1680E+0, 1.1255E+0, 1.0920E+0,
     * 1.0572E+0, 1.0501E+0, 1.0448E+0, 1.0400E+0, 1.0375E+0, 1.0354E+0,
     * 1.0341E+0, 1.0338E+0, 1.0308E+0, 1.0269E+0, 1.0255E+0, 1.0128E+0,
     * 1.0063E+0, 1.0036E+0, 1.0029E+0, 1.0020E+0, 1.0017E+0, 2.1402E+0,
     * 1.8914E+0, 1.6482E+0, 1.4545E+0, 1.2511E+0, 1.2084E+0, 1.1789E+0,
     * 1.1545E+0, 1.1422E+0, 1.1323E+0, 1.1260E+0, 1.1246E+0, 1.1112E+0,
     * 1.0940E+0, 1.0882E+0, 1.0397E+0, 1.0183E+0, 1.0103E+0/
      DATA X2601/ 1.0081E+0, 1.0057E+0, 1.0046E+0, 3.0191E+0, 2.5787E+0,
     * 2.1454E+0, 1.7967E+0, 1.4227E+0, 1.3416E+0, 1.2836E+0, 1.2385E+0,
     * 1.2165E+0, 1.1992E+0, 1.1885E+0, 1.1861E+0, 1.1636E+0, 1.1357E+0,
     * 1.1264E+0, 1.0535E+0, 1.0238E+0, 1.0132E+0, 1.0104E+0, 1.0072E+0,
     * 1.0059E+0, 5.4535E+0, 4.4581E+0, 3.4770E+0, 2.6858E+0, 1.8328E+0,
     * 1.6462E+0, 1.5122E+0, 1.4068E+0, 1.3594E+0, 1.3236E+0, 1.3023E+0,
     * 1.2977E+0, 1.2546E+0, 1.2042E+0, 1.1882E+0, 1.0726E+0, 1.0308E+0,
     * 1.0167E+0, 1.0132E+0, 1.0091E+0, 1.0075E+0, 1.2010E+1, 9.5586E+0,
     * 7.1289E+0, 5.1514E+0, 2.9779E+0, 2.4886E+0, 2.1291E+0, 1.8363E+0,
     * 1.6982E+0, 1.5976E+0, 1.5420E+0, 1.5304E+0, 1.4285E+0, 1.3224E+0,
     * 1.2913E+0, 1.0975E+0, 1.0391E+0, 1.0208E+0, 1.0164E+0, 1.0113E+0,
     * 1.0093E+0, 3.7047E+1, 2.8495E+1, 2.0089E+1, 1.3334E+1, 6.1107E+0,
     * 4.5508E+0, 3.4423E+0, 2.5845E+0, 2.2078E+0, 1.9560E+0, 1.8326E+0,
     * 1.8081E+0, 1.6087E+0, 1.4277E+0, 1.3791E+0, 1.1134E+0, 1.0442E+0,
     * 1.0234E+0, 1.0184E+0, 1.0128E+0, 1.0106E+0, 1.8658E+2, 1.4113E+2,
     * 9.6629E+1, 6.1080E+1, 2.3543E+1, 1.5603E+1, 1.0057E+1, 5.8867E+0,
     * 4.1335E+0, 3.0312E+0, 2.5420E+0, 2.4597E+0, 1.9191E+0/
      DATA X2701/ 1.5657E+0, 1.4860E+0, 1.1275E+0, 1.0492E+0, 1.0264E+0,
     * 1.0209E+0, 1.0147E+0, 1.0123E+0, 1.5287E+3, 1.1536E+3, 7.8614E+2,
     * 4.9222E+2, 1.8107E+2, 1.1497E+2, 6.8643E+1, 3.3589E+1, 1.8710E+1,
     * 9.2257E+0, 4.9134E+0, 4.1694E+0, 2.0948E+0, 1.5629E+0, 1.4727E+0,
     * 1.1265E+0, 1.0532E+0, 1.0304E+0, 1.0247E+0, 1.0181E+0, 1.0154E+0,
     * 4.8788E+2, 3.7552E+2, 2.6405E+2, 1.7321E+2, 7.3174E+1, 5.0573E+1,
     * 3.3922E+1, 2.0306E+1, 1.3852E+1, 9.1215E+0, 6.4919E+0, 5.9551E+0,
     * 1.8635E+0, 1.4526E+0, 1.3872E+0, 1.1208E+0, 1.0552E+0, 1.0331E+0,
     * 1.0273E+0, 1.0204E+0, 1.0177E+0, 3.5814E+2, 2.7572E+2, 1.9395E+2,
     * 1.2731E+2, 5.3930E+1, 3.7351E+1, 2.5138E+1, 1.5151E+1, 1.0417E+1,
     * 6.9477E+0, 5.0192E+0, 4.6256E+0, 1.6254E+0, 1.3262E+0, 1.2834E+0,
     * 1.1246E+0, 1.0773E+0, 1.0555E+0, 1.0487E+0, 1.0398E+0, 1.0363E+0,
     * 7.7055E+2, 5.8214E+2, 3.9744E+2, 2.4960E+2, 9.2836E+1, 5.9444E+1,
     * 3.5985E+1, 1.8167E+1, 1.0560E+1, 5.6689E+0, 3.4133E+0, 3.0186E+0,
     * 1.7449E+0, 1.3942E+0, 1.3376E+0, 1.1387E+0, 1.0892E+0, 1.0662E+0,
     * 1.0587E+0, 1.0489E+0, 1.0451E+0, 1.0626E+2, 8.0555E+1, 5.5367E+1,
     * 3.5239E+1, 1.3960E+1, 9.4500E+0, 6.2949E+0, 3.9149E+0/
      DATA X2801/ 2.9100E+0, 2.2741E+0, 1.9886E+0, 1.9399E+0, 1.6186E+0,
     * 1.4113E+0, 1.3656E+0, 1.1676E+0, 1.1145E+0, 1.0890E+0, 1.0803E+0,
     * 1.0687E+0, 1.0643E+0, 2.6255E+1, 2.0252E+1, 1.4357E+1, 9.6272E+0,
     * 4.5817E+0, 3.4971E+0, 2.7292E+0, 2.1385E+0, 1.8814E+0, 1.7116E+0,
     * 1.6299E+0, 1.6137E+0, 1.4849E+0, 1.3720E+0, 1.3425E+0, 1.1850E+0,
     * 1.1337E+0, 1.1074E+0, 1.0981E+0, 1.0854E+0, 1.0808E+0, 1.3377E+1,
     * 1.0547E+1, 7.7542E+0, 5.4982E+0, 3.0552E+0, 2.5176E+0, 2.1296E+0,
     * 1.8219E+0, 1.6819E+0, 1.5842E+0, 1.5331E+0, 1.5227E+0, 1.4350E+0,
     * 1.3506E+0, 1.3272E+0, 1.1910E+0, 1.1422E+0, 1.1160E+0, 1.1065E+0,
     * 1.0934E+0, 1.0889E+0, 5.9092E+0, 4.7963E+0, 3.7058E+0, 2.8340E+0,
     * 1.9112E+0, 1.7152E+0, 1.5779E+0, 1.4741E+0, 1.4301E+0, 1.3981E+0,
     * 1.3794E+0, 1.3754E+0, 1.3390E+0, 1.2983E+0, 1.2858E+0, 1.1994E+0,
     * 1.1610E+0, 1.1370E+0, 1.1276E+0, 1.1143E+0, 1.1103E+0, 4.1587E+0,
     * 3.4448E+0, 2.7501E+0, 2.2003E+0, 1.6320E+0, 1.5160E+0, 1.4376E+0,
     * 1.3818E+0, 1.3563E+0, 1.3369E+0, 1.3253E+0, 1.3228E+0, 1.2993E+0,
     * 1.2719E+0, 1.2632E+0, 1.2000E+0, 1.1691E+0, 1.1474E+0, 1.1384E+0,
     * 1.1256E+0, 1.1221E+0, 2.6374E+0, 2.2831E+0, 1.9409E+0/
      DATA X2901/ 1.6734E+0, 1.4042E+0, 1.3519E+0, 1.3182E+0, 1.2921E+0,
     * 1.2795E+0, 1.2697E+0, 1.2637E+0, 1.2624E+0, 1.2501E+0, 1.2353E+0,
     * 1.2305E+0, 1.1961E+0, 1.1779E+0, 1.1609E+0, 1.1530E+0, 1.1415E+0,
     * 1.1391E+0, 1.6616E+0, 1.5228E+0, 1.3924E+0, 1.2951E+0, 1.2079E+0,
     * 1.1949E+0, 1.1865E+0, 1.1801E+0, 1.1772E+0, 1.1751E+0, 1.1739E+0,
     * 1.1736E+0, 1.1714E+0, 1.1694E+0, 1.1691E+0, 1.1753E+0, 1.1828E+0,
     * 1.1783E+0, 1.1741E+0, 1.1672E+0, 1.1686E+0, 1.4510E+0, 1.3519E+0,
     * 1.2608E+0, 1.1953E+0, 1.1430E+0, 1.1427E+0, 1.1534E+0, 1.1715E+0,
     * 1.1691E+0, 1.1359E+0, 1.0707E+0, 1.0864E+0, 1.1378E+0, 1.1393E+0,
     * 1.1402E+0, 1.1602E+0, 1.1792E+0, 1.1817E+0, 1.1797E+0, 1.1762E+0,
     * 1.1800E+0, 1.4810E+0, 1.3132E+0, 1.1919E+0, 1.1483E+0, 1.1133E+0,
     * 1.1146E+0, 1.1246E+0, 1.1411E+0, 1.1402E+0, 1.1134E+0, 1.0592E+0,
     * 1.0724E+0, 1.1168E+0, 1.1199E+0, 1.1214E+0, 1.1487E+0, 1.1746E+0,
     * 1.1818E+0, 1.1815E+0, 1.1804E+0, 1.1860E+0, 1.3991E+0, 1.2626E+0,
     * 1.1638E+0, 1.1281E+0, 1.0997E+0, 1.1016E+0, 1.1111E+0, 1.1266E+0,
     * 1.1263E+0, 1.1026E+0, 1.0537E+0, 1.0657E+0, 1.1066E+0, 1.1104E+0,
     * 1.1121E+0, 1.1425E+0, 1.1717E+0, 1.1813E+0, 1.1818E+0/
      DATA X3001/ 1.1820E+0, 1.1884E+0, 1.4756E+0, 1.1828E+0, 1.1165E+0,
     * 1.0924E+0, 1.0746E+0, 1.0771E+0, 1.0855E+0, 1.0989E+0, 1.0996E+0,
     * 1.0816E+0, 1.0430E+0, 1.0526E+0, 1.0865E+0, 1.0914E+0, 1.0936E+0,
     * 1.1293E+0, 1.1646E+0, 1.1788E+0, 1.1811E+0, 1.1839E+0, 1.1923E+0,
     * 1.3805E+0, 1.1506E+0, 1.0962E+0, 1.0764E+0, 1.0628E+0, 1.0655E+0,
     * 1.0733E+0, 1.0855E+0, 1.0866E+0, 1.0713E+0, 1.0377E+0, 1.0462E+0,
     * 1.0766E+0, 1.0819E+0, 1.0842E+0, 1.1222E+0, 1.1604E+0, 1.1769E+0,
     * 1.1800E+0, 1.1843E+0, 1.1936E+0, 1.3022E+0, 1.1221E+0, 1.0776E+0,
     * 1.0614E+0, 1.0514E+0, 1.0541E+0, 1.0612E+0, 1.0722E+0, 1.0737E+0,
     * 1.0611E+0, 1.0325E+0, 1.0398E+0, 1.0667E+0, 1.0724E+0, 1.0748E+0,
     * 1.1148E+0, 1.1557E+0, 1.1745E+0, 1.1786E+0, 1.1843E+0, 1.1946E+0,
     * 9.9969E-1, 9.9979E-1, 9.9986E-1, 9.9990E-1, 9.9994E-1, 9.9994E-1,
     * 9.9995E-1, 9.9996E-1, 9.9996E-1, 9.9996E-1, 9.9996E-1, 9.9996E-1,
     * 9.9997E-1, 9.9997E-1, 9.9998E-1, 9.9999E-1, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9539E-1, 9.9681E-1, 9.9783E-1,
     * 9.9846E-1, 9.9904E-1, 9.9917E-1, 9.9926E-1, 9.9935E-1, 9.9939E-1,
     * 9.9943E-1, 9.9946E-1, 9.9946E-1, 9.9952E-1, 9.9960E-1/
      DATA X3101/ 9.9962E-1, 9.9988E-1, 1.0000E+0, 1.0001E+0, 1.0001E+0,
     * 1.0002E+0, 1.0002E+0, 9.8219E-1, 9.8705E-1, 9.9121E-1, 9.9380E-1,
     * 9.9614E-1, 9.9664E-1, 9.9703E-1, 9.9738E-1, 9.9757E-1, 9.9772E-1,
     * 9.9782E-1, 9.9785E-1, 9.9807E-1, 9.9838E-1, 9.9849E-1, 9.9953E-1,
     * 1.0001E+0, 1.0004E+0, 1.0005E+0, 1.0006E+0, 1.0007E+0, 9.4419E-1,
     * 9.5726E-1, 9.6953E-1, 9.7868E-1, 9.8686E-1, 9.8861E-1, 9.8995E-1,
     * 9.9115E-1, 9.9179E-1, 9.9233E-1, 9.9268E-1, 9.9275E-1, 9.9353E-1,
     * 9.9458E-1, 9.9495E-1, 9.9846E-1, 1.0004E+0, 1.0013E+0, 1.0016E+0,
     * 1.0021E+0, 1.0023E+0, 8.6579E-1, 8.9373E-1, 9.2104E-1, 9.4279E-1,
     * 9.6561E-1, 9.7038E-1, 9.7401E-1, 9.7722E-1, 9.7894E-1, 9.8037E-1,
     * 9.8129E-1, 9.8149E-1, 9.8354E-1, 9.8629E-1, 9.8726E-1, 9.9627E-1,
     * 1.0011E+0, 1.0034E+0, 1.0041E+0, 1.0051E+0, 1.0057E+0, 4.9625E-1,
     * 5.9973E-1, 7.0212E-1, 7.8529E-1, 8.7607E-1, 8.9634E-1, 9.1113E-1,
     * 9.2381E-1, 9.3041E-1, 9.3583E-1, 9.3926E-1, 9.4002E-1, 9.4755E-1,
     * 9.5737E-1, 9.6076E-1, 9.9035E-1, 1.0047E+0, 1.0108E+0, 1.0126E+0,
     * 1.0151E+0, 1.0166E+0, 2.5363E-1, 4.0465E-1, 5.5518E-1, 6.7869E-1,
     * 8.1656E-1, 8.4833E-1, 8.7210E-1, 8.9196E-1, 9.0211E-1/
      DATA X3201/ 9.1035E-1, 9.1553E-1, 9.1667E-1, 9.2789E-1, 9.4229E-1,
     * 9.4718E-1, 9.8844E-1, 1.0072E+0, 1.0149E+0, 1.0172E+0, 1.0204E+0,
     * 1.0221E+0,-2.4446E-1, 1.0010E-2, 2.6418E-1, 4.7353E-1, 7.0881E-1,
     * 7.6357E-1, 8.0482E-1, 8.3963E-1, 8.5680E-1, 8.7043E-1, 8.7887E-1,
     * 8.8073E-1, 8.9861E-1, 9.2090E-1, 9.2831E-1, 9.8728E-1, 1.0119E+0,
     * 1.0215E+0, 1.0243E+0, 1.0281E+0, 1.0303E+0,-1.2246E+0,-7.6929E-1,
     *-3.1274E-1, 6.5796E-2, 4.9661E-1, 5.9872E-1, 6.7664E-1, 7.4356E-1,
     * 7.7725E-1, 8.0355E-1, 8.1925E-1, 8.2265E-1, 8.5440E-1, 8.9166E-1,
     * 9.0352E-1, 9.8932E-1, 1.0209E+0, 1.0325E+0, 1.0358E+0, 1.0403E+0,
     * 1.0429E+0,-3.5154E+0,-2.5264E+0,-1.5426E+0,-7.3814E-1, 1.5424E-1,
     * 3.5808E-1, 5.0947E-1, 6.3478E-1, 6.9508E-1, 7.4003E-1, 7.6551E-1,
     * 7.7090E-1, 8.1936E-1, 8.7227E-1, 8.8831E-1, 9.9453E-1, 1.0299E+0,
     * 1.0426E+0, 1.0462E+0, 1.0511E+0, 1.0539E+0,-1.1936E+1,-8.9333E+0,
     *-5.9690E+0,-3.5688E+0,-9.6436E-1,-3.8899E-1, 2.7725E-2, 3.5983E-1,
     * 5.1192E-1, 6.1903E-1, 6.7563E-1, 6.8676E-1, 7.7666E-1, 8.5869E-1,
     * 8.8103E-1, 1.0084E+0, 1.0458E+0, 1.0593E+0, 1.0633E+0, 1.0686E+0,
     * 1.0718E+0,-6.4749E+1,-4.8924E+1,-3.3364E+1,-2.0853E+1/
      DATA X3301/-7.4583E+0,-4.5601E+0,-2.4972E+0,-8.9672E-1,-1.9111E-1,
     * 2.8270E-1, 5.1679E-1, 5.6041E-1, 7.8317E-1, 8.9750E-1, 9.2182E-1,
     * 1.0366E+0, 1.0705E+0, 1.0843E+0, 1.0886E+0, 1.0947E+0, 1.0984E+0,
     *-3.8291E+1,-2.9319E+1,-2.0403E+1,-1.3117E+1,-5.0508E+0,-3.2142E+0,
     *-1.8531E+0,-7.3033E-1,-1.9223E-1, 2.0701E-1, 4.3223E-1, 4.7867E-1,
     * 8.4491E-1, 9.4455E-1, 9.6296E-1, 1.0511E+0, 1.0823E+0, 1.0962E+0,
     * 1.1007E+0, 1.1072E+0, 1.1112E+0,-3.6729E+1,-2.8118E+1,-1.9558E+1,
     *-1.2563E+1,-4.8144E+0,-3.0488E+0,-1.7397E+0,-6.5908E-1,-1.4067E-1,
     * 2.4435E-1, 4.6181E-1, 5.0669E-1, 8.6157E-1, 9.6289E-1, 9.8182E-1,
     * 1.0747E+0, 1.1103E+0, 1.1275E+0, 1.1332E+0, 1.1417E+0, 1.1471E+0,
     *-5.1409E+1,-3.8854E+1,-2.6498E+1,-1.6550E+1,-5.8693E+0,-3.5478E+0,
     *-1.8893E+0,-5.9490E-1,-1.9311E-2, 3.7151E-1, 5.6779E-1, 6.0488E-1,
     * 8.0901E-1, 9.2218E-1, 9.4694E-1, 1.0683E+0, 1.1084E+0, 1.1267E+0,
     * 1.1328E+0, 1.1418E+0, 1.1475E+0,-1.1106E+1,-8.2939E+0,-5.5161E+0,
     *-3.2661E+0,-8.2080E-1,-2.8014E-1, 1.1206E-1, 4.2523E-1, 5.6899E-1,
     * 6.7057E-1, 7.2446E-1, 7.3510E-1, 8.2123E-1, 9.0010E-1, 9.2163E-1,
     * 1.0475E+0, 1.0903E+0, 1.1092E+0, 1.1155E+0, 1.1250E+0/
      DATA X3401/ 1.1310E+0,-3.6782E+0,-2.6360E+0,-1.6015E+0,-7.5694E-1,
     * 1.7558E-1, 3.8721E-1, 5.4363E-1, 6.7217E-1, 7.3347E-1, 7.7871E-1,
     * 8.0406E-1, 8.0940E-1, 8.5693E-1, 9.0796E-1, 9.2327E-1, 1.0250E+0,
     * 1.0636E+0, 1.0813E+0, 1.0873E+0, 1.0964E+0, 1.1024E+0,-1.9497E+0,
     *-1.3159E+0,-6.8417E-1,-1.6451E-1, 4.1771E-1, 5.5272E-1, 6.5411E-1,
     * 7.3934E-1, 7.8116E-1, 8.1297E-1, 8.3144E-1, 8.3539E-1, 8.7143E-1,
     * 9.1194E-1, 9.2447E-1, 1.0120E+0, 1.0471E+0, 1.0636E+0, 1.0694E+0,
     * 1.0781E+0, 1.0839E+0,-4.1641E-1,-1.1646E-1, 1.8117E-1, 4.2384E-1,
     * 6.9113E-1, 7.5156E-1, 7.9610E-1, 8.3255E-1, 8.4984E-1, 8.6326E-1,
     * 8.7142E-1, 8.7320E-1, 8.9011E-1, 9.1054E-1, 9.1718E-1, 9.6839E-1,
     * 9.9201E-1, 1.0043E+0, 1.0088E+0, 1.0159E+0, 1.0208E+0, 5.3909E-2,
     * 2.5002E-1, 4.4324E-1, 5.9911E-1, 7.6709E-1, 8.0383E-1, 8.3021E-1,
     * 8.5096E-1, 8.6111E-1, 8.6913E-1, 8.7406E-1, 8.7515E-1, 8.8553E-1,
     * 8.9833E-1, 9.0255E-1, 9.3618E-1, 9.5277E-1, 9.6208E-1, 9.6566E-1,
     * 9.7155E-1, 9.7568E-1, 5.0659E-1, 5.9244E-1, 6.7609E-1, 7.4238E-1,
     * 8.1113E-1, 8.2525E-1, 8.3486E-1, 8.4257E-1, 8.4639E-1, 8.4942E-1,
     * 8.5128E-1, 8.5169E-1, 8.5562E-1, 8.6045E-1, 8.6203E-1/
      DATA X3501/ 8.7432E-1, 8.8078E-1, 8.8532E-1, 8.8731E-1, 8.9090E-1,
     * 8.9361E-1, 7.2664E-1, 7.2631E-1, 7.2482E-1, 7.2221E-1, 7.1618E-1,
     * 7.1376E-1, 7.1156E-1, 7.0931E-1, 7.0799E-1, 7.0680E-1, 7.0601E-1,
     * 7.0583E-1, 7.0392E-1, 7.0111E-1, 7.0004E-1, 6.8769E-1, 6.7904E-1,
     * 6.7497E-1, 6.7383E-1, 6.7253E-1, 6.7204E-1, 6.4782E-1, 6.3553E-1,
     * 6.2241E-1, 6.1058E-1, 5.9499E-1, 5.9068E-1, 5.8706E-1, 5.8356E-1,
     * 5.8157E-1, 5.7983E-1, 5.7867E-1, 5.7841E-1, 5.7570E-1, 5.7178E-1,
     * 5.7031E-1, 5.5370E-1, 5.4151E-1, 5.3488E-1, 5.3269E-1, 5.2963E-1,
     * 5.2789E-1, 5.4834E-1, 5.3249E-1, 5.1647E-1, 5.0306E-1, 4.8664E-1,
     * 4.8225E-1, 4.7860E-1, 4.7508E-1, 4.7309E-1, 4.7135E-1, 4.7020E-1,
     * 4.6994E-1, 4.6724E-1, 4.6334E-1, 4.6189E-1, 4.4530E-1, 4.3273E-1,
     * 4.2554E-1, 4.2305E-1, 4.1942E-1, 4.1724E-1, 4.8353E-1, 4.6775E-1,
     * 4.5201E-1, 4.3909E-1, 4.2350E-1, 4.1936E-1, 4.1592E-1, 4.1261E-1,
     * 4.1073E-1, 4.0910E-1, 4.0802E-1, 4.0777E-1, 4.0524E-1, 4.0157E-1,
     * 4.0020E-1, 3.8453E-1, 3.7249E-1, 3.6545E-1, 3.6298E-1, 3.5932E-1,
     * 3.5708E-1, 3.2429E-1, 3.1110E-1, 2.9890E-1, 2.8907E-1, 2.7736E-1,
     * 2.7427E-1, 2.7170E-1, 2.6924E-1, 2.6784E-1, 2.6662E-1/
      DATA X3601/ 2.6581E-1, 2.6563E-1, 2.6374E-1, 2.6100E-1, 2.5997E-1,
     * 2.4814E-1, 2.3881E-1, 2.3318E-1, 2.3116E-1, 2.2809E-1, 2.2617E-1,
     * 2.2817E-1, 2.1833E-1, 2.0927E-1, 2.0198E-1, 1.9334E-1, 1.9106E-1,
     * 1.8916E-1, 1.8734E-1, 1.8631E-1, 1.8541E-1, 1.8482E-1, 1.8468E-1,
     * 1.8328E-1, 1.8126E-1, 1.8050E-1, 1.7171E-1, 1.6471E-1, 1.6043E-1,
     * 1.5887E-1, 1.5650E-1, 1.5499E-1, 1.2046E-1, 1.1499E-1, 1.0995E-1,
     * 1.0592E-1, 1.0115E-1, 9.9892E-2, 9.8847E-2, 9.7843E-2, 9.7273E-2,
     * 9.6777E-2, 9.6447E-2, 9.6373E-2, 9.5600E-2, 9.4480E-2, 9.4060E-2,
     * 8.9179E-2, 8.5250E-2, 8.2821E-2, 8.1932E-2, 8.0567E-2, 7.9692E-2,
     * 3.7870E-5, 4.3245E-5, 4.9480E-5, 5.5616E-5, 6.4653E-5, 6.7446E-5,
     * 6.9922E-5, 7.2449E-5, 7.3952E-5, 7.5305E-5, 7.6227E-5, 7.6439E-5,
     * 7.8689E-5, 8.2159E-5, 8.3532E-5, 1.0302E-4, 1.2610E-4, 1.4675E-4,
     * 1.5651E-4, 1.7550E-4, 1.8988E-4, 3.7900E-5, 4.3275E-5, 4.9510E-5,
     * 5.5646E-5, 6.4683E-5, 6.7476E-5, 6.9952E-5, 7.2479E-5, 7.3982E-5,
     * 7.5335E-5, 7.6257E-5, 7.6469E-5, 7.8719E-5, 8.2189E-5, 8.3562E-5,
     * 1.0305E-4, 1.2613E-4, 1.4678E-4, 1.5654E-4, 1.7553E-4, 1.8991E-4,
     * 3.7957E-5, 4.3373E-5, 4.9608E-5, 5.5744E-5, 6.4781E-5/
      DATA X3701/ 6.7574E-5, 7.0050E-5, 7.2577E-5, 7.4081E-5, 7.5433E-5,
     * 7.6355E-5, 7.6567E-5, 7.8817E-5, 8.2288E-5, 8.3660E-5, 1.0315E-4,
     * 1.2623E-4, 1.4688E-4, 1.5664E-4, 1.7562E-4, 1.9001E-4, 3.8150E-5,
     * 4.3647E-5, 4.9929E-5, 5.6064E-5, 6.5102E-5, 6.7895E-5, 7.0371E-5,
     * 7.2897E-5, 7.4401E-5, 7.5754E-5, 7.6676E-5, 7.6888E-5, 7.9138E-5,
     * 8.2608E-5, 8.3981E-5, 1.0347E-4, 1.2655E-4, 1.4720E-4, 1.5696E-4,
     * 1.7594E-4, 1.9033E-4, 3.8726E-5, 4.4308E-5, 5.0659E-5, 5.6832E-5,
     * 6.5870E-5, 6.8663E-5, 7.1139E-5, 7.3665E-5, 7.5169E-5, 7.6522E-5,
     * 7.7444E-5, 7.7656E-5, 7.9906E-5, 8.3376E-5, 8.4749E-5, 1.0424E-4,
     * 1.2732E-4, 1.4797E-4, 1.5772E-4, 1.7671E-4, 1.9109E-4, 4.1895E-5,
     * 4.7544E-5, 5.3955E-5, 6.0172E-5, 6.9237E-5, 7.2029E-5, 7.4506E-5,
     * 7.7032E-5, 7.8536E-5, 7.9889E-5, 8.0810E-5, 8.1022E-5, 8.3272E-5,
     * 8.6743E-5, 8.8115E-5, 1.0761E-4, 1.3068E-4, 1.5133E-4, 1.6109E-4,
     * 1.8008E-4, 1.9446E-4, 4.3955E-5, 4.9636E-5, 5.6083E-5, 6.2317E-5,
     * 7.1399E-5, 7.4194E-5, 7.6670E-5, 7.9196E-5, 8.0700E-5, 8.2053E-5,
     * 8.2974E-5, 8.3187E-5, 8.5437E-5, 8.8907E-5, 9.0280E-5, 1.0977E-4,
     * 1.3285E-4, 1.5350E-4, 1.6326E-4, 1.8224E-4, 1.9662E-4/
      DATA X3801/ 4.7464E-5, 5.3171E-5, 5.9634E-5, 6.5895E-5, 7.4993E-5,
     * 7.7790E-5, 8.0268E-5, 8.2794E-5, 8.4298E-5, 8.5651E-5, 8.6572E-5,
     * 8.6784E-5, 8.9034E-5, 9.2505E-5, 9.3877E-5, 1.1337E-4, 1.3645E-4,
     * 1.5710E-4, 1.6685E-4, 1.8584E-4, 2.0022E-4, 5.3760E-5, 5.9459E-5,
     * 6.5926E-5, 7.2230E-5, 8.1342E-5, 8.4141E-5, 8.6617E-5, 8.9145E-5,
     * 9.0650E-5, 9.2002E-5, 9.2924E-5, 9.3136E-5, 9.5386E-5, 9.8857E-5,
     * 1.0023E-4, 1.1972E-4, 1.4280E-4, 1.6345E-4, 1.7320E-4, 1.9219E-4,
     * 2.0657E-4, 5.9899E-5, 6.5636E-5, 7.2092E-5, 7.8399E-5, 8.7507E-5,
     * 9.0308E-5, 9.2785E-5, 9.5313E-5, 9.6817E-5, 9.8170E-5, 9.9091E-5,
     * 9.9303E-5, 1.0155E-4, 1.0502E-4, 1.0640E-4, 1.2589E-4, 1.4896E-4,
     * 1.6961E-4, 1.7937E-4, 1.9836E-4, 2.1274E-4, 7.0810E-5, 7.6830E-5,
     * 8.3089E-5, 8.9467E-5, 9.8720E-5, 1.0145E-4, 1.0393E-4, 1.0647E-4,
     * 1.0797E-4, 1.0932E-4, 1.1024E-4, 1.1046E-4, 1.1271E-4, 1.1618E-4,
     * 1.1755E-4, 1.3704E-4, 1.6012E-4, 1.8077E-4, 1.9052E-4, 2.0951E-4,
     * 2.2389E-4, 9.0789E-5, 9.6444E-5, 1.0309E-4, 1.0927E-4, 1.1844E-4,
     * 1.2126E-4, 1.2374E-4, 1.2626E-4, 1.2777E-4, 1.2912E-4, 1.3004E-4,
     * 1.3025E-4, 1.3250E-4, 1.3598E-4, 1.3735E-4, 1.5684E-4/
      DATA X3901/ 1.7992E-4, 2.0057E-4, 2.1032E-4, 2.2931E-4, 2.4369E-4,
     * 1.0233E-4, 1.0809E-4, 1.1462E-4, 1.2093E-4, 1.3008E-4, 1.3288E-4,
     * 1.3536E-4, 1.3790E-4, 1.3940E-4, 1.4075E-4, 1.4168E-4, 1.4189E-4,
     * 1.4414E-4, 1.4761E-4, 1.4898E-4, 1.6847E-4, 1.9155E-4, 2.1220E-4,
     * 2.2196E-4, 2.4094E-4, 2.5533E-4, 1.6415E-4, 1.6991E-4, 1.7644E-4,
     * 1.8275E-4, 1.9190E-4, 1.9470E-4, 1.9719E-4, 1.9972E-4, 2.0122E-4,
     * 2.0257E-4, 2.0350E-4, 2.0371E-4, 2.0596E-4, 2.0943E-4, 2.1080E-4,
     * 2.3029E-4, 2.5337E-4, 2.7402E-4, 2.8378E-4, 3.0276E-4, 3.1715E-4,
     * 1.8632E-4, 1.9196E-4, 1.9865E-4, 2.0485E-4, 2.1403E-4, 2.1683E-4,
     * 2.1931E-4, 2.2183E-4, 2.2333E-4, 2.2469E-4, 2.2561E-4, 2.2582E-4,
     * 2.2807E-4, 2.3154E-4, 2.3292E-4, 2.5241E-4, 2.7549E-4, 2.9614E-4,
     * 3.0589E-4, 3.2488E-4, 3.3926E-4, 2.3174E-4, 2.3842E-4, 2.4331E-4,
     * 2.4962E-4, 2.5898E-4, 2.6172E-4, 2.6419E-4, 2.6672E-4, 2.6823E-4,
     * 2.6958E-4, 2.7050E-4, 2.7071E-4, 2.7296E-4, 2.7643E-4, 2.7781E-4,
     * 2.9730E-4, 3.2037E-4, 3.4102E-4, 3.5078E-4, 3.6977E-4, 3.8415E-4,
     * 2.5761E-4, 2.6309E-4, 2.6935E-4, 2.7540E-4, 2.8405E-4, 2.8672E-4,
     * 2.8909E-4, 2.9150E-4, 2.9293E-4, 2.9422E-4, 2.9510E-4/
      DATA X4001/ 2.9530E-4, 2.9744E-4, 3.0075E-4, 3.0206E-4, 3.2063E-4,
     * 3.4262E-4, 3.6229E-4, 3.7159E-4, 3.8968E-4, 4.0339E-4, 2.7853E-4,
     * 2.8408E-4, 2.9033E-4, 2.9651E-4, 3.0519E-4, 3.0787E-4, 3.1026E-4,
     * 3.1268E-4, 3.1412E-4, 3.1542E-4, 3.1630E-4, 3.1650E-4, 3.1865E-4,
     * 3.2198E-4, 3.2329E-4, 3.4195E-4, 3.6404E-4, 3.8381E-4, 3.9315E-4,
     * 4.1133E-4, 4.2510E-4, 3.4440E-4, 3.4991E-4, 3.5612E-4, 3.6221E-4,
     * 3.7103E-4, 3.7374E-4, 3.7614E-4, 3.7859E-4, 3.8004E-4, 3.8135E-4,
     * 3.8225E-4, 3.8245E-4, 3.8463E-4, 3.8800E-4, 3.8933E-4, 4.0821E-4,
     * 4.3057E-4, 4.5058E-4, 4.6004E-4, 4.7844E-4, 4.9237E-4, 3.9123E-4,
     * 3.9673E-4, 4.0304E-4, 4.0912E-4, 4.1799E-4, 4.2071E-4, 4.2313E-4,
     * 4.2560E-4, 4.2706E-4, 4.2838E-4, 4.2928E-4, 4.2949E-4, 4.3168E-4,
     * 4.3507E-4, 4.3641E-4, 4.5543E-4, 4.7794E-4, 4.9808E-4, 5.0760E-4,
     * 5.2613E-4, 5.4016E-4, 4.8370E-4, 4.8926E-4, 4.9558E-4, 5.0171E-4,
     * 5.1065E-4, 5.1340E-4, 5.1584E-4, 5.1833E-4, 5.1981E-4, 5.2115E-4,
     * 5.2206E-4, 5.2226E-4, 5.2448E-4, 5.2790E-4, 5.2926E-4, 5.4847E-4,
     * 5.7122E-4, 5.9157E-4, 6.0119E-4, 6.1991E-4, 6.3408E-4, 8.2283E-4,
     * 8.2846E-4, 8.3485E-4, 8.4107E-4, 8.5016E-4, 8.5297E-4/
      DATA X4101/ 8.5547E-4, 8.5801E-4, 8.5952E-4, 8.6089E-4, 8.6181E-4,
     * 8.6203E-4, 8.6429E-4, 8.6778E-4, 8.6917E-4, 8.8879E-4, 9.1201E-4,
     * 9.3280E-4, 9.4262E-4, 9.6173E-4, 9.7621E-4, 1.1478E-3, 1.1534E-3,
     * 1.1598E-3, 1.1660E-3, 1.1752E-3, 1.1780E-3, 1.1806E-3, 1.1831E-3,
     * 1.1847E-3, 1.1860E-3, 1.1870E-3, 1.1872E-3, 1.1895E-3, 1.1930E-3,
     * 1.1944E-3, 1.2142E-3, 1.2377E-3, 1.2587E-3, 1.2686E-3, 1.2880E-3,
     * 1.3026E-3, 1.4729E-3, 1.4784E-3, 1.4848E-3, 1.4911E-3, 1.5004E-3,
     * 1.5032E-3, 1.5058E-3, 1.5084E-3, 1.5099E-3, 1.5113E-3, 1.5122E-3,
     * 1.5125E-3, 1.5148E-3, 1.5183E-3, 1.5197E-3, 1.5397E-3, 1.5633E-3,
     * 1.5845E-3, 1.5945E-3, 1.6139E-3, 1.6287E-3, 1.6824E-3, 1.6880E-3,
     * 1.6944E-3, 1.7007E-3, 1.7100E-3, 1.7129E-3, 1.7154E-3, 1.7180E-3,
     * 1.7196E-3, 1.7210E-3, 1.7219E-3, 1.7222E-3, 1.7245E-3, 1.7280E-3,
     * 1.7294E-3, 1.7495E-3, 1.7732E-3, 1.7944E-3, 1.8045E-3, 1.8240E-3,
     * 1.8388E-3, 2.2238E-3, 2.2294E-3, 2.2358E-3, 2.2421E-3, 2.2515E-3,
     * 2.2543E-3, 2.2569E-3, 2.2595E-3, 2.2611E-3, 2.2625E-3, 2.2634E-3,
     * 2.2636E-3, 2.2659E-3, 2.2695E-3, 2.2709E-3, 2.2911E-3, 2.3149E-3,
     * 2.3362E-3, 2.3463E-3, 2.3659E-3, 2.3807E-3, 2.5727E-3/
      DATA X4201/ 2.5783E-3, 2.5847E-3, 2.5910E-3, 2.6003E-3, 2.6032E-3,
     * 2.6058E-3, 2.6084E-3, 2.6099E-3, 2.6113E-3, 2.6123E-3, 2.6125E-3,
     * 2.6148E-3, 2.6184E-3, 2.6198E-3, 2.6399E-3, 2.6638E-3, 2.6851E-3,
     * 2.6951E-3, 2.7147E-3, 2.7296E-3, 2.9918E-3, 2.9973E-3, 3.0038E-3,
     * 3.0101E-3, 3.0194E-3, 3.0223E-3, 3.0249E-3, 3.0275E-3, 3.0290E-3,
     * 3.0304E-3, 3.0314E-3, 3.0316E-3, 3.0339E-3, 3.0375E-3, 3.0389E-3,
     * 3.0590E-3, 3.0828E-3, 3.1041E-3, 3.1142E-3, 3.1338E-3, 3.1487E-3,
     * 9.6957E-5, 1.1265E-4, 1.3012E-4, 1.4695E-4, 1.7181E-4, 1.7963E-4,
     * 1.8665E-4, 1.9392E-4, 1.9831E-4, 2.0229E-4, 2.0503E-4, 2.0566E-4,
     * 2.1244E-4, 2.2316E-4, 2.2749E-4, 2.9655E-4, 4.0403E-4, 5.2664E-4,
     * 5.9242E-4, 7.2995E-4, 8.5303E-4, 9.6957E-5, 1.1265E-4, 1.3012E-4,
     * 1.4695E-4, 1.7181E-4, 1.7963E-4, 1.8665E-4, 1.9392E-4, 1.9831E-4,
     * 2.0229E-4, 2.0503E-4, 2.0566E-4, 2.1244E-4, 2.2316E-4, 2.2749E-4,
     * 2.9655E-4, 4.0403E-4, 5.2664E-4, 5.9242E-4, 7.2996E-4, 8.5303E-4,
     * 9.7182E-5, 1.1265E-4, 1.3012E-4, 1.4695E-4, 1.7181E-4, 1.7963E-4,
     * 1.8665E-4, 1.9392E-4, 1.9831E-4, 2.0229E-4, 2.0503E-4, 2.0566E-4,
     * 2.1244E-4, 2.2316E-4, 2.2749E-4, 2.9655E-4, 4.0403E-4/
      DATA X4301/ 5.2664E-4, 5.9242E-4, 7.2996E-4, 8.5303E-4, 9.7912E-5,
     * 1.1293E-4, 1.3012E-4, 1.4696E-4, 1.7181E-4, 1.7963E-4, 1.8666E-4,
     * 1.9393E-4, 1.9832E-4, 2.0230E-4, 2.0504E-4, 2.0567E-4, 2.1245E-4,
     * 2.2317E-4, 2.2750E-4, 2.9655E-4, 4.0404E-4, 5.2665E-4, 5.9243E-4,
     * 7.2996E-4, 8.5304E-4, 9.9078E-5, 1.1358E-4, 1.3036E-4, 1.4697E-4,
     * 1.7183E-4, 1.7965E-4, 1.8667E-4, 1.9394E-4, 1.9833E-4, 2.0231E-4,
     * 2.0505E-4, 2.0568E-4, 2.1246E-4, 2.2318E-4, 2.2751E-4, 2.9657E-4,
     * 4.0405E-4, 5.2666E-4, 5.9244E-4, 7.2998E-4, 8.5305E-4, 1.3252E-4,
     * 1.4656E-4, 1.6294E-4, 1.7928E-4, 2.0396E-4, 2.1178E-4, 2.1880E-4,
     * 2.2607E-4, 2.3046E-4, 2.3444E-4, 2.3718E-4, 2.3781E-4, 2.4459E-4,
     * 2.5531E-4, 2.5964E-4, 3.2870E-4, 4.3618E-4, 5.5879E-4, 6.2457E-4,
     * 7.6211E-4, 8.8518E-4, 1.4435E-4, 1.5816E-4, 1.7433E-4, 1.9050E-4,
     * 2.1505E-4, 2.2286E-4, 2.2989E-4, 2.3716E-4, 2.4154E-4, 2.4553E-4,
     * 2.4827E-4, 2.4890E-4, 2.5568E-4, 2.6639E-4, 2.7073E-4, 3.3978E-4,
     * 4.4726E-4, 5.6988E-4, 6.3565E-4, 7.7319E-4, 8.9627E-4, 1.6227E-4,
     * 1.7587E-4, 1.9183E-4, 2.0788E-4, 2.3231E-4, 2.4010E-4, 2.4711E-4,
     * 2.5439E-4, 2.5877E-4, 2.6276E-4, 2.6549E-4, 2.6613E-4/
      DATA X4401/ 2.7291E-4, 2.8362E-4, 2.8795E-4, 3.5701E-4, 4.6449E-4,
     * 5.8710E-4, 6.5288E-4, 7.9042E-4, 9.1349E-4, 1.8907E-4, 2.0236E-4,
     * 2.1809E-4, 2.3400E-4, 2.5815E-4, 2.6590E-4, 2.7290E-4, 2.8016E-4,
     * 2.8454E-4, 2.8853E-4, 2.9127E-4, 2.9190E-4, 2.9868E-4, 3.0940E-4,
     * 3.1373E-4, 3.8278E-4, 4.9026E-4, 6.1288E-4, 6.7866E-4, 8.1619E-4,
     * 9.3927E-4, 2.1017E-4, 2.2346E-4, 2.3901E-4, 2.5497E-4, 2.7906E-4,
     * 2.8680E-4, 2.9379E-4, 3.0104E-4, 3.0543E-4, 3.0941E-4, 3.1215E-4,
     * 3.1278E-4, 3.1956E-4, 3.3028E-4, 3.3461E-4, 4.0367E-4, 5.1115E-4,
     * 6.3376E-4, 6.9954E-4, 8.3708E-4, 9.6015E-4, 2.4128E-4, 2.5654E-4,
     * 2.7132E-4, 2.8646E-4, 3.1084E-4, 3.1853E-4, 3.2549E-4, 3.3274E-4,
     * 3.3712E-4, 3.4110E-4, 3.4384E-4, 3.4447E-4, 3.5125E-4, 3.6197E-4,
     * 3.6630E-4, 4.3536E-4, 5.4284E-4, 6.6545E-4, 7.3123E-4, 8.6877E-4,
     * 9.9184E-4, 2.8914E-4, 3.0208E-4, 3.1789E-4, 3.3350E-4, 3.5762E-4,
     * 3.6537E-4, 3.7236E-4, 3.7960E-4, 3.8398E-4, 3.8797E-4, 3.9071E-4,
     * 3.9134E-4, 3.9812E-4, 4.0884E-4, 4.1317E-4, 4.8223E-4, 5.8971E-4,
     * 7.1232E-4, 7.7810E-4, 9.1563E-4, 1.0387E-3, 3.1512E-4, 3.2804E-4,
     * 3.4333E-4, 3.5886E-4, 3.8276E-4, 3.9045E-4, 3.9741E-4/
      DATA X4501/ 4.0463E-4, 4.0900E-4, 4.1298E-4, 4.1572E-4, 4.1635E-4,
     * 4.2313E-4, 4.3384E-4, 4.3818E-4, 5.0723E-4, 6.1471E-4, 7.3733E-4,
     * 8.0311E-4, 9.4064E-4, 1.0637E-3, 4.4387E-4, 4.5676E-4, 4.7208E-4,
     * 4.8761E-4, 5.1151E-4, 5.1920E-4, 5.2615E-4, 5.3338E-4, 5.3776E-4,
     * 5.4173E-4, 5.4447E-4, 5.4510E-4, 5.5188E-4, 5.6260E-4, 5.6693E-4,
     * 6.3599E-4, 7.4347E-4, 8.6608E-4, 9.3186E-4, 1.0694E-3, 1.1925E-3,
     * 4.9120E-4, 5.0509E-4, 5.2017E-4, 5.3569E-4, 5.5980E-4, 5.6766E-4,
     * 5.7457E-4, 5.8182E-4, 5.8621E-4, 5.9019E-4, 5.9293E-4, 5.9357E-4,
     * 6.0035E-4, 6.1106E-4, 6.1539E-4, 6.8445E-4, 7.9193E-4, 9.1455E-4,
     * 9.8032E-4, 1.1179E-3, 1.2409E-3, 5.9605E-4, 6.1035E-4, 6.2466E-4,
     * 6.3896E-4, 6.6423E-4, 6.7186E-4, 6.7878E-4, 6.8603E-4, 6.9042E-4,
     * 6.9439E-4, 6.9713E-4, 6.9776E-4, 7.0454E-4, 7.1526E-4, 7.1959E-4,
     * 7.8865E-4, 8.9613E-4, 1.0187E-3, 1.0845E-3, 1.2221E-3, 1.3451E-3,
     * 6.8992E-4, 7.0322E-4, 7.1877E-4, 7.3481E-4, 7.5898E-4, 7.6671E-4,
     * 7.7370E-4, 7.8096E-4, 7.8535E-4, 7.8933E-4, 7.9207E-4, 7.9270E-4,
     * 7.9948E-4, 8.1020E-4, 8.1453E-4, 8.8359E-4, 9.9107E-4, 1.1137E-3,
     * 1.1795E-3, 1.3170E-3, 1.4401E-3, 7.4011E-4, 7.5340E-4/
      DATA X4601/ 7.6902E-4, 7.8505E-4, 8.0923E-4, 8.1692E-4, 8.2391E-4,
     * 8.3117E-4, 8.3556E-4, 8.3954E-4, 8.4228E-4, 8.4291E-4, 8.4969E-4,
     * 8.6041E-4, 8.6474E-4, 9.3380E-4, 1.0413E-3, 1.1639E-3, 1.2297E-3,
     * 1.3672E-3, 1.4903E-3, 8.8859E-4, 9.0224E-4, 9.1815E-4, 9.3423E-4,
     * 9.5866E-4, 9.6646E-4, 9.7347E-4, 9.8074E-4, 9.8513E-4, 9.8911E-4,
     * 9.9185E-4, 9.9248E-4, 9.9926E-4, 1.0100E-3, 1.0143E-3, 1.0834E-3,
     * 1.1908E-3, 1.3135E-3, 1.3792E-3, 1.5168E-3, 1.6399E-3, 9.8574E-4,
     * 9.9956E-4, 1.0158E-3, 1.0319E-3, 1.0565E-3, 1.0643E-3, 1.0713E-3,
     * 1.0786E-3, 1.0830E-3, 1.0870E-3, 1.0897E-3, 1.0903E-3, 1.0971E-3,
     * 1.1078E-3, 1.1122E-3, 1.1812E-3, 1.2887E-3, 1.4113E-3, 1.4771E-3,
     * 1.6146E-3, 1.7377E-3, 1.1554E-3, 1.1695E-3, 1.1858E-3, 1.2022E-3,
     * 1.2268E-3, 1.2347E-3, 1.2417E-3, 1.2490E-3, 1.2533E-3, 1.2573E-3,
     * 1.2601E-3, 1.2607E-3, 1.2675E-3, 1.2782E-3, 1.2825E-3, 1.3516E-3,
     * 1.4591E-3, 1.5817E-3, 1.6475E-3, 1.7850E-3, 1.9081E-3, 1.6020E-3,
     * 1.6165E-3, 1.6332E-3, 1.6499E-3, 1.6747E-3, 1.6825E-3, 1.6896E-3,
     * 1.6968E-3, 1.7012E-3, 1.7052E-3, 1.7079E-3, 1.7086E-3, 1.7153E-3,
     * 1.7261E-3, 1.7304E-3, 1.7995E-3, 1.9069E-3, 2.0295E-3/
      DATA X4701/ 2.0953E-3, 2.2329E-3, 2.3559E-3, 1.8932E-3, 1.9083E-3,
     * 1.9255E-3, 1.9423E-3, 1.9671E-3, 1.9750E-3, 1.9820E-3, 1.9893E-3,
     * 1.9936E-3, 1.9976E-3, 2.0004E-3, 2.0010E-3, 2.0078E-3, 2.0185E-3,
     * 2.0228E-3, 2.0919E-3, 2.1994E-3, 2.3220E-3, 2.3878E-3, 2.5253E-3,
     * 2.6484E-3, 2.1191E-3, 2.1346E-3, 2.1520E-3, 2.1689E-3, 2.1937E-3,
     * 2.2015E-3, 2.2086E-3, 2.2158E-3, 2.2202E-3, 2.2242E-3, 2.2270E-3,
     * 2.2276E-3, 2.2344E-3, 2.2451E-3, 2.2494E-3, 2.3185E-3, 2.4260E-3,
     * 2.5486E-3, 2.6143E-3, 2.7519E-3, 2.8750E-3, 2.2431E-3, 2.2586E-3,
     * 2.2760E-3, 2.2929E-3, 2.3177E-3, 2.3256E-3, 2.3326E-3, 2.3399E-3,
     * 2.3442E-3, 2.3482E-3, 2.3510E-3, 2.3516E-3, 2.3584E-3, 2.3691E-3,
     * 2.3734E-3, 2.4425E-3, 2.5500E-3, 2.6726E-3, 2.7383E-3, 2.8759E-3,
     * 2.9990E-3, 2.5146E-3, 2.5303E-3, 2.5478E-3, 2.5646E-3, 2.5895E-3,
     * 2.5973E-3, 2.6043E-3, 2.6116E-3, 2.6160E-3, 2.6200E-3, 2.6227E-3,
     * 2.6233E-3, 2.6301E-3, 2.6408E-3, 2.6452E-3, 2.7142E-3, 2.8217E-3,
     * 2.9443E-3, 3.0101E-3, 3.1476E-3, 3.2707E-3, 2.6634E-3, 2.6790E-3,
     * 2.6965E-3, 2.7133E-3, 2.7382E-3, 2.7460E-3, 2.7531E-3, 2.7603E-3,
     * 2.7647E-3, 2.7687E-3, 2.7714E-3, 2.7721E-3, 2.7788E-3/
      DATA X4801/ 2.7896E-3, 2.7939E-3, 2.8629E-3, 2.9704E-3, 3.0930E-3,
     * 3.1588E-3, 3.2964E-3, 3.4194E-3, 2.8214E-3, 2.8371E-3, 2.8546E-3,
     * 2.8714E-3, 2.8962E-3, 2.9041E-3, 2.9111E-3, 2.9184E-3, 2.9227E-3,
     * 2.9267E-3, 2.9295E-3, 2.9301E-3, 2.9369E-3, 2.9476E-3, 2.9519E-3,
     * 3.0210E-3, 3.1285E-3, 3.2511E-3, 3.3169E-3, 3.4544E-3, 3.5775E-3,
     * 4.8000E-1, 5.0000E-1, 5.1000E-1, 5.2000E-1, 5.3000E-1, 5.4000E-1,
     * 5.5000E-1, 5.6000E-1, 5.7000E-1, 5.8000E-1, 5.9000E-1, 6.0000E-1,
     * 6.2000E-1, 6.4000E-1, 6.6000E-1, 6.8000E-1, 7.0000E-1, 7.2000E-1,
     * 7.4000E-1, 7.6000E-1, 7.8000E-1, 8.0000E-1, 8.2000E-1, 8.4000E-1,
     * 8.6000E-1, 8.8000E-1, 9.0000E-1, 9.2000E-1, 9.2500E-1, 9.3000E-1,
     * 9.3500E-1, 9.4000E-1, 9.4500E-1, 9.5000E-1, 9.6000E-1, 9.7000E-1,
     * 9.8000E-1, 9.8500E-1, 9.9000E-1, 1.0000E+0, 2.8276E-3, 4.4679E-3,
     * 5.5403E-3, 6.8118E-3, 8.3076E-3, 1.0054E-2, 1.2079E-2, 1.4412E-2,
     * 1.7082E-2, 2.0121E-2, 2.3561E-2, 2.7435E-2, 3.6623E-2, 4.7966E-2,
     * 6.1760E-2, 7.8310E-2, 9.7932E-2, 1.2095E-1, 1.4768E-1, 1.7847E-1,
     * 2.1362E-1, 2.5346E-1, 2.9831E-1, 3.4846E-1, 4.0426E-1, 4.6605E-1,
     * 5.3425E-1, 6.0942E-1, 6.2938E-1, 6.4983E-1, 6.7079E-1/
      DATA X4901/ 6.9228E-1, 7.1431E-1, 7.3690E-1, 7.8388E-1, 8.3340E-1,
     * 8.8570E-1, 9.1299E-1, 9.4108E-1, 1.0000E+0, 2.7882E+0, 2.7551E+0,
     * 2.7385E+0, 2.7217E+0, 2.7050E+0, 2.6881E+0, 2.6712E+0, 2.6542E+0,
     * 2.6371E+0, 2.6199E+0, 2.6025E+0, 2.5851E+0, 2.5497E+0, 2.5137E+0,
     * 2.4769E+0, 2.4392E+0, 2.4005E+0, 2.3605E+0, 2.3192E+0, 2.2763E+0,
     * 2.2314E+0, 2.1844E+0, 2.1348E+0, 2.0820E+0, 2.0254E+0, 1.9640E+0,
     * 1.8962E+0, 1.8198E+0, 1.7990E+0, 1.7773E+0, 1.7546E+0, 1.7308E+0,
     * 1.7058E+0, 1.6793E+0, 1.6210E+0, 1.5526E+0, 1.4676E+0, 1.4145E+0,
     * 1.3483E+0, 1.0000E+0, 1.7167E-3, 2.6132E-3, 3.1836E-3, 3.8479E-3,
     * 4.6163E-3, 5.4990E-3, 6.5067E-3, 7.6505E-3, 8.9419E-3, 1.0393E-2,
     * 1.2015E-2, 1.3821E-2, 1.8037E-2, 2.3152E-2, 2.9285E-2, 3.6567E-2,
     * 4.5146E-2, 5.5185E-2, 6.6872E-2, 8.0419E-2, 9.6077E-2, 1.1414E-1,
     * 1.3498E-1, 1.5905E-1, 1.8696E-1, 2.1956E-1, 2.5812E-1, 3.0469E-1,
     * 3.1796E-1, 3.3203E-1, 3.4699E-1, 3.6297E-1, 3.8011E-1, 3.9861E-1,
     * 4.4070E-1, 4.9236E-1, 5.5998E-1, 6.0421E-1, 6.6124E-1, 1.0000E+0,
     * 1.1330E+1, 1.1528E+1, 1.1635E+1, 1.1746E+1, 1.1861E+1, 1.1977E+1,
     * 1.2095E+1, 1.2214E+1, 1.2332E+1, 1.2451E+1, 1.2568E+1/
      DATA X5001/ 1.2684E+1, 1.2912E+1, 1.3133E+1, 1.3348E+1, 1.3555E+1,
     * 1.3758E+1, 1.3957E+1, 1.4153E+1, 1.4348E+1, 1.4543E+1, 1.4739E+1,
     * 1.4936E+1, 1.5134E+1, 1.5332E+1, 1.5531E+1, 1.5731E+1, 1.5933E+1,
     * 1.5984E+1, 1.6036E+1, 1.6089E+1, 1.6143E+1, 1.6198E+1, 1.6255E+1,
     * 1.6376E+1, 1.6512E+1, 1.6676E+1, 1.6777E+1, 1.6900E+1, 1.7538E+1,
     * 2.2660E+1, 2.2360E+1, 2.2221E+1, 2.2088E+1, 2.1961E+1, 2.1839E+1,
     * 2.1724E+1, 2.1613E+1, 2.1507E+1, 2.1405E+1, 2.1307E+1, 2.1214E+1,
     * 2.1037E+1, 2.0872E+1, 2.0717E+1, 2.0572E+1, 2.0434E+1, 2.0302E+1,
     * 2.0174E+1, 2.0051E+1, 1.9930E+1, 1.9811E+1, 1.9692E+1, 1.9573E+1,
     * 1.9451E+1, 1.9325E+1, 1.9191E+1, 1.9046E+1, 1.9006E+1, 1.8966E+1,
     * 1.8924E+1, 1.8880E+1, 1.8833E+1, 1.8784E+1, 1.8677E+1, 1.8550E+1,
     * 1.8393E+1, 1.8294E+1, 1.8170E+1, 1.7538E+1, 2.2486E+0, 2.3457E+0,
     * 2.4000E+0, 2.4574E+0, 2.5176E+0, 2.5802E+0, 2.6447E+0, 2.7107E+0,
     * 2.7780E+0, 2.8463E+0, 2.9154E+0, 2.9849E+0, 3.1250E+0, 3.2657E+0,
     * 3.4065E+0, 3.5477E+0, 3.6898E+0, 3.8336E+0, 3.9800E+0, 4.1302E+0,
     * 4.2849E+0, 4.4449E+0, 4.6104E+0, 4.7817E+0, 4.9584E+0, 5.1405E+0,
     * 5.3282E+0, 5.5236E+0, 5.5741E+0, 5.6257E+0, 5.6783E+0/
      DATA X5101/ 5.7323E+0, 5.7880E+0, 5.8458E+0, 5.9697E+0, 6.1104E+0,
     * 6.2806E+0, 6.3849E+0, 6.5126E+0, 7.1621E+0, 7.6870E+0, 7.7619E+0,
     * 7.7987E+0, 7.8349E+0, 7.8706E+0, 7.9058E+0, 7.9403E+0, 7.9742E+0,
     * 8.0074E+0, 8.0399E+0, 8.0717E+0, 8.1027E+0, 8.1622E+0, 8.2183E+0,
     * 8.2706E+0, 8.3189E+0, 8.3628E+0, 8.4020E+0, 8.4361E+0, 8.4646E+0,
     * 8.4870E+0, 8.5026E+0, 8.5108E+0, 8.5105E+0, 8.5005E+0, 8.4788E+0,
     * 8.4426E+0, 8.3874E+0, 8.3698E+0, 8.3504E+0, 8.3289E+0, 8.3050E+0,
     * 8.2786E+0, 8.2491E+0, 8.1787E+0, 8.0874E+0, 7.9625E+0, 7.8787E+0,
     * 7.7696E+0, 7.1621E+0, 5.1825E-1, 1.9077E+2, 4.6270E+0, 1.6200E-1,
     * 1.0000E-3, 2.0000E-3, 1.0000E-3, 1.0000E-3/

      CALL FLUID0(G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,M)
      RETURN

      END
      SUBROUTINE CO2
C.....CARBON DIOXIDE TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 0.18892 JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 304.21 DEG. K                   C(2)
C       PCRIT = 7.3835 MEGA-NEWTONS / METER**2  C(3)
C       DCRIT = 0.464   GRAMS / CENTIMETER**3   C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)

      DIMENSION G(21,4),TT(27),DD(30),GG(27,30,8),SAT(35,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(100),X1601(100),X1701(100),X1801(100),X1901(100),
     *          X2001(100),X2101(100),X2201(100),X2301(100),X2401(100),
     *          X2501(100),X2601(100),X2701(100),X2801(100),X2901(100),
     *          X3001(100),X3101(100),X3201(100),X3301(100),X3401(100),
     *          X3501(100),X3601(100),X3701(100),X3801(100),X3901(100),
     *          X4001(100),X4101(100),X4201(100),X4301(100),X4401(100),
     *          X4501(100),X4601(100),X4701(100),X4801(100),X4901(100),
     *          X5001(100),X5101(100),X5201(100),X5301(100),X5401(100),
     *          X5501(100),X5601(100),X5701(100),X5801(100),X5901(100),
     *          X6001(100),X6101(100),X6201(100),X6301(100),X6401(100),
     *          X6501(100),X6601(100),X6701(100),X6801(100),X6901(9)

      DIMENSION Z(6909)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501)), (X1601,Z(1601)), (X1701,Z(1701)),
     *            (X1801,Z(1801)), (X1901,Z(1901)), (X2001,Z(2001)),
     *            (X2101,Z(2101)), (X2201,Z(2201)), (X2301,Z(2301)),
     *            (X2401,Z(2401)), (X2501,Z(2501)), (X2601,Z(2601)),
     *            (X2701,Z(2701)), (X2801,Z(2801)), (X2901,Z(2901)),
     *            (X3001,Z(3001)), (X3101,Z(3101)), (X3201,Z(3201)),
     *            (X3301,Z(3301)), (X3401,Z(3401)), (X3501,Z(3501))
      EQUIVALENCE (X3601,Z(3601)), (X3701,Z(3701)), (X3801,Z(3801)),
     *            (X3901,Z(3901)), (X4001,Z(4001)), (X4101,Z(4101)),
     *            (X4201,Z(4201)), (X4301,Z(4301)), (X4401,Z(4401)),
     *            (X4501,Z(4501)), (X4601,Z(4601)), (X4701,Z(4701)),
     *            (X4801,Z(4801)), (X4901,Z(4901)), (X5001,Z(5001)),
     *            (X5101,Z(5101)), (X5201,Z(5201)), (X5301,Z(5301)),
     *            (X5401,Z(5401)), (X5501,Z(5501)), (X5601,Z(5601)),
     *            (X5701,Z(5701)), (X5801,Z(5801)), (X5901,Z(5901)),
     *            (X6001,Z(6001)), (X6101,Z(6101)), (X6201,Z(6201)),
     *            (X6301,Z(6301)), (X6401,Z(6401)), (X6501,Z(6501)),
     *            (X6601,Z(6601)), (X6701,Z(6701)), (X6801,Z(6801)),
     *            (X6901,Z(6901))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0085)),(DD,Z(0112)),(GG,Z(0142)),
     1            (SAT,Z(6622)),(C,Z(6902))
      DATA NG,N1,N2,N3,NS/21,27,30,8,35/

      DATA X0001/ 7.1850E-1, 7.5000E-1, 8.0000E-1, 9.0000E-1, 9.5000E-1,
     * 9.9000E-1, 1.0000E+0, 1.0500E+0, 1.1000E+0, 1.2000E+0, 1.3000E+0,
     * 1.4000E+0, 1.5000E+0, 1.6000E+0, 1.8000E+0, 2.0000E+0, 2.2000E+0,
     * 2.4000E+0, 2.6000E+0, 2.9000E+0, 3.2800E+0, 1.2406E+1, 1.2538E+1,
     * 1.2741E+1, 1.3126E+1, 1.3309E+1, 1.3451E+1, 1.3487E+1, 1.3659E+1,
     * 1.3828E+1, 1.4152E+1, 1.4461E+1, 1.4757E+1, 1.5042E+1, 1.5316E+1,
     * 1.5835E+1, 1.6321E+1, 1.6779E+1, 1.7211E+1, 1.7620E+1, 1.8195E+1,
     * 1.8867E+1, 1.1320E+1, 1.1406E+1, 1.1545E+1, 1.1837E+1, 1.1988E+1,
     * 1.2113E+1, 1.2144E+1, 1.2303E+1, 1.2467E+1, 1.2804E+1, 1.3155E+1,
     * 1.3519E+1, 1.3896E+1, 1.4285E+1, 1.5097E+1, 1.5949E+1, 1.6838E+1,
     * 1.7761E+1, 1.8712E+1, 2.0188E+1, 2.2126E+1, 3.0466E+0, 3.1009E+0,
     * 3.1854E+0, 3.3489E+0, 3.4279E+0, 3.4898E+0, 3.5051E+0, 3.5806E+0,
     * 3.6543E+0, 3.7967E+0, 3.9324E+0, 4.0616E+0, 4.1846E+0, 4.3015E+0,
     * 4.5180E+0, 4.7125E+0, 4.8866E+0, 5.0420E+0, 5.1803E+0, 5.3588E+0,
     * 5.5428E+0, 7.1850E-1, 8.2900E-1, 8.9100E-1, 9.1500E-1, 9.4400E-1,
     * 9.6100E-1, 9.7300E-1, 9.8100E-1, 9.9000E-1, 9.9500E-1, 9.9700E-1,
     * 9.9800E-1, 9.9900E-1, 1.0500E+0, 1.1000E+0, 1.2000E+0/
      DATA X0101/ 1.3000E+0, 1.4000E+0, 1.5000E+0, 1.6000E+0, 1.8000E+0,
     * 2.0000E+0, 2.2000E+0, 2.4000E+0, 2.6000E+0, 2.9000E+0, 3.2800E+0,
     * 1.9000E-5, 1.9000E-3, 2.5000E-2, 1.0000E-1, 1.8700E-1, 2.4000E-1,
     * 3.2500E-1, 3.9000E-1, 4.6000E-1, 5.2000E-1, 6.1000E-1, 7.0000E-1,
     * 7.6000E-1, 8.0000E-1, 8.6000E-1, 1.1800E+0, 1.2200E+0, 1.2400E+0,
     * 1.3200E+0, 1.4200E+0, 1.5300E+0, 1.6000E+0, 1.7000E+0, 1.8000E+0,
     * 1.9400E+0, 2.0400E+0, 2.2500E+0, 2.6000E+0, 2.6500E+0, 2.6900E+0,
     * 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3543E+0,
     * 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3543E+0,
     * 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3543E+0, 1.3544E+0,
     * 1.3544E+0, 1.3544E+0, 1.3544E+0, 1.3544E+0, 1.3544E+0, 1.3544E+0,
     * 1.3544E+0, 1.3544E+0, 1.3544E+0, 1.3497E+0, 1.3511E+0, 1.3517E+0,
     * 1.3519E+0, 1.3521E+0, 1.3522E+0, 1.3523E+0, 1.3523E+0, 1.3524E+0,
     * 1.3524E+0, 1.3524E+0, 1.3524E+0, 1.3524E+0, 1.3527E+0, 1.3529E+0,
     * 1.3532E+0, 1.3534E+0, 1.3536E+0, 1.3538E+0, 1.3539E+0, 1.3541E+0,
     * 1.3542E+0, 1.3543E+0, 1.3544E+0, 1.3545E+0, 1.3545E+0, 1.3546E+0,
     * 1.2933E+0, 1.3129E+0, 1.3202E+0, 1.3225E+0, 1.3251E+0/
      DATA X0201/ 1.3265E+0, 1.3274E+0, 1.3280E+0, 1.3287E+0, 1.3290E+0,
     * 1.3292E+0, 1.3292E+0, 1.3293E+0, 1.3325E+0, 1.3352E+0, 1.3394E+0,
     * 1.3426E+0, 1.3451E+0, 1.3470E+0, 1.3486E+0, 1.3510E+0, 1.3528E+0,
     * 1.3540E+0, 1.3550E+0, 1.3558E+0, 1.3566E+0, 1.3575E+0, 1.1300E+0,
     * 1.1985E+0, 1.2269E+0, 1.2360E+0, 1.2458E+0, 1.2511E+0, 1.2546E+0,
     * 1.2568E+0, 1.2593E+0, 1.2606E+0, 1.2611E+0, 1.2614E+0, 1.2616E+0,
     * 1.2737E+0, 1.2837E+0, 1.2996E+0, 1.3115E+0, 1.3208E+0, 1.3281E+0,
     * 1.3340E+0, 1.3430E+0, 1.3494E+0, 1.3541E+0, 1.3578E+0, 1.3606E+0,
     * 1.3639E+0, 1.3669E+0, 9.7147E-1, 1.0851E+0, 1.1342E+0, 1.1504E+0,
     * 1.1678E+0, 1.1770E+0, 1.1832E+0, 1.1871E+0, 1.1915E+0, 1.1938E+0,
     * 1.1947E+0, 1.1952E+0, 1.1956E+0, 1.2167E+0, 1.2341E+0, 1.2615E+0,
     * 1.2821E+0, 1.2980E+0, 1.3107E+0, 1.3210E+0, 1.3365E+0, 1.3475E+0,
     * 1.3558E+0, 1.3621E+0, 1.3671E+0, 1.3729E+0, 1.3782E+0, 8.9310E-1,
     * 1.0268E+0, 1.0857E+0, 1.1054E+0, 1.1269E+0, 1.1383E+0, 1.1459E+0,
     * 1.1507E+0, 1.1560E+0, 1.1589E+0, 1.1600E+0, 1.1606E+0, 1.1611E+0,
     * 1.1870E+0, 1.2083E+0, 1.2418E+0, 1.2670E+0, 1.2865E+0, 1.3020E+0,
     * 1.3146E+0, 1.3336E+0, 1.3472E+0, 1.3574E+0, 1.3652E+0/
      DATA X0301/ 1.3714E+0, 1.3785E+0, 1.3851E+0, 7.8720E-1, 9.4794E-1,
     * 1.0200E+0, 1.0443E+0, 1.0711E+0, 1.0854E+0, 1.0949E+0, 1.1010E+0,
     * 1.1077E+0, 1.1113E+0, 1.1127E+0, 1.1134E+0, 1.1141E+0, 1.1465E+0,
     * 1.1731E+0, 1.2150E+0, 1.2465E+0, 1.2709E+0, 1.2904E+0, 1.3063E+0,
     * 1.3304E+0, 1.3477E+0, 1.3607E+0, 1.3708E+0, 1.3787E+0, 1.3878E+0,
     * 1.3963E+0, 7.2705E-1, 9.0103E-1, 9.7975E-1, 1.0066E+0, 1.0363E+0,
     * 1.0523E+0, 1.0630E+0, 1.0699E+0, 1.0773E+0, 1.0813E+0, 1.0829E+0,
     * 1.0837E+0, 1.0845E+0, 1.1209E+0, 1.1507E+0, 1.1978E+0, 1.2334E+0,
     * 1.2610E+0, 1.2832E+0, 1.3012E+0, 1.3288E+0, 1.3488E+0, 1.3638E+0,
     * 1.3754E+0, 1.3846E+0, 1.3952E+0, 1.4051E+0, 6.7676E-1, 8.6186E-1,
     * 9.4550E-1, 9.7424E-1, 1.0062E+0, 1.0235E+0, 1.0351E+0, 1.0426E+0,
     * 1.0507E+0, 1.0550E+0, 1.0568E+0, 1.0576E+0, 1.0585E+0, 1.0981E+0,
     * 1.1306E+0, 1.1823E+0, 1.2214E+0, 1.2521E+0, 1.2767E+0, 1.2969E+0,
     * 1.3279E+0, 1.3505E+0, 1.3675E+0, 1.3807E+0, 1.3912E+0, 1.4034E+0,
     * 1.4147E+0, 6.5039E-1, 8.3813E-1, 9.2360E-1, 9.5328E-1, 9.8628E-1,
     * 1.0043E+0, 1.0163E+0, 1.0241E+0, 1.0325E+0, 1.0371E+0, 1.0389E+0,
     * 1.0398E+0, 1.0407E+0, 1.0822E+0, 1.1164E+0, 1.1710E+0/
      DATA X0401/ 1.2127E+0, 1.2456E+0, 1.2722E+0, 1.2940E+0, 1.3277E+0,
     * 1.3523E+0, 1.3710E+0, 1.3855E+0, 1.3971E+0, 1.4106E+0, 1.4232E+0,
     * 6.2891E-1, 8.1714E-1, 9.0283E-1, 9.3237E-1, 9.6556E-1, 9.8378E-1,
     * 9.9609E-1, 1.0040E+0, 1.0127E+0, 1.0174E+0, 1.0192E+0, 1.0201E+0,
     * 1.0211E+0, 1.0640E+0, 1.0997E+0, 1.1575E+0, 1.2022E+0, 1.2378E+0,
     * 1.2668E+0, 1.2909E+0, 1.3283E+0, 1.3558E+0, 1.3769E+0, 1.3933E+0,
     * 1.4065E+0, 1.4220E+0, 1.4365E+0, 6.2500E-1, 8.0078E-1, 8.9673E-1,
     * 9.2139E-1, 9.5459E-1, 9.7241E-1, 9.8450E-1, 9.9197E-1, 1.0005E+0,
     * 1.0052E+0, 1.0070E+0, 1.0079E+0, 1.0088E+0, 1.0517E+0, 1.0879E+0,
     * 1.1473E+0, 1.1942E+0, 1.2320E+0, 1.2631E+0, 1.2891E+0, 1.3299E+0,
     * 1.3602E+0, 1.3835E+0, 1.4019E+0, 1.4167E+0, 1.4342E+0, 1.4507E+0,
     * 7.0313E-1, 8.0859E-1, 8.8672E-1, 9.2261E-1, 9.5044E-1, 9.6777E-1,
     * 9.7949E-1, 9.8787E-1, 9.9582E-1, 1.0004E+0, 1.0022E+0, 1.0031E+0,
     * 1.0040E+0, 1.0461E+0, 1.0821E+0, 1.1421E+0, 1.1901E+0, 1.2291E+0,
     * 1.2615E+0, 1.2887E+0, 1.3316E+0, 1.3637E+0, 1.3885E+0, 1.4081E+0,
     * 1.4240E+0, 1.4428E+0, 1.4606E+0, 6.7101E-1, 8.2205E-1, 8.9536E-1,
     * 9.2103E-1, 9.5071E-1, 9.6724E-1, 9.7851E-1, 9.8585E-1/
      DATA X0501/ 9.9396E-1, 9.9838E-1, 1.0001E+0, 1.0010E+0, 1.0019E+0,
     * 1.0433E+0, 1.0791E+0, 1.1393E+0, 1.1878E+0, 1.2276E+0, 1.2608E+0,
     * 1.2887E+0, 1.3330E+0, 1.3663E+0, 1.3920E+0, 1.4125E+0, 1.4291E+0,
     * 1.4487E+0, 1.4675E+0, 7.0065E-1, 8.3435E-1, 9.0039E-1, 9.2423E-1,
     * 9.5175E-1, 9.6722E-1, 9.7785E-1, 9.8481E-1, 9.9250E-1, 9.9672E-1,
     * 9.9840E-1, 9.9923E-1, 1.0001E+0, 1.0403E+0, 1.0756E+0, 1.1358E+0,
     * 1.1851E+0, 1.2259E+0, 1.2602E+0, 1.2892E+0, 1.3355E+0, 1.3704E+0,
     * 1.3977E+0, 1.4193E+0, 1.4370E+0, 1.4580E+0, 1.4782E+0, 7.8023E-1,
     * 8.7090E-1, 9.1897E-1, 9.3704E-1, 9.5848E-1, 9.7084E-1, 9.7948E-1,
     * 9.8519E-1, 9.9158E-1, 9.9512E-1, 9.9653E-1, 9.9723E-1, 9.9794E-1,
     * 1.0331E+0, 1.0663E+0, 1.1272E+0, 1.1803E+0, 1.2262E+0, 1.2658E+0,
     * 1.3001E+0, 1.3562E+0, 1.3998E+0, 1.4346E+0, 1.4629E+0, 1.4864E+0,
     * 1.5150E+0, 1.5431E+0, 7.9327E-1, 8.7581E-1, 9.2083E-1, 9.3781E-1,
     * 9.5842E-1, 9.7041E-1, 9.7882E-1, 9.8442E-1, 9.9070E-1, 9.9418E-1,
     * 9.9557E-1, 9.9627E-1, 9.9696E-1, 1.0321E+0, 1.0654E+0, 1.1268E+0,
     * 1.1806E+0, 1.2272E+0, 1.2674E+0, 1.3024E+0, 1.3596E+0, 1.4042E+0,
     * 1.4399E+0, 1.4690E+0, 1.4932E+0, 1.5228E+0, 1.5520E+0/
      DATA X0601/ 7.9424E-1, 8.7566E-1, 9.2037E-1, 9.3731E-1, 9.5788E-1,
     * 9.6984E-1, 9.7823E-1, 9.8382E-1, 9.9010E-1, 9.9358E-1, 9.9497E-1,
     * 9.9566E-1, 9.9636E-1, 1.0316E+0, 1.0650E+0, 1.1267E+0, 1.1808E+0,
     * 1.2277E+0, 1.2683E+0, 1.3035E+0, 1.3613E+0, 1.4065E+0, 1.4426E+0,
     * 1.4721E+0, 1.4967E+0, 1.5267E+0, 1.5564E+0, 7.9297E-1, 8.6719E-1,
     * 9.2261E-1, 9.3433E-1, 9.5483E-1, 9.6680E-1, 9.7516E-1, 9.8055E-1,
     * 9.8690E-1, 9.9041E-1, 9.9182E-1, 9.9252E-1, 9.9323E-1, 1.0290E+0,
     * 1.0631E+0, 1.1263E+0, 1.1819E+0, 1.2302E+0, 1.2720E+0, 1.3085E+0,
     * 1.3685E+0, 1.4157E+0, 1.4536E+0, 1.4847E+0, 1.5107E+0, 1.5427E+0,
     * 1.5744E+0, 7.8125E-1, 8.6230E-1, 9.0820E-1, 9.2603E-1, 9.4730E-1,
     * 9.5990E-1, 9.6881E-1, 9.7473E-1, 9.8139E-1, 9.8509E-1, 9.8657E-1,
     * 9.8731E-1, 9.8805E-1, 1.0255E+0, 1.0609E+0, 1.1265E+0, 1.1840E+0,
     * 1.2340E+0, 1.2775E+0, 1.3154E+0, 1.3780E+0, 1.4274E+0, 1.4674E+0,
     * 1.5005E+0, 1.5282E+0, 1.5625E+0, 1.5967E+0, 7.4878E-1, 8.4326E-1,
     * 8.9436E-1, 9.1409E-1, 9.3767E-1, 9.5141E-1, 9.6104E-1, 9.6745E-1,
     * 9.7463E-1, 9.7862E-1, 9.8021E-1, 9.8100E-1, 9.8180E-1, 1.0217E+0,
     * 1.0591E+0, 1.1275E+0, 1.1872E+0, 1.2390E+0, 1.2839E+0/
      DATA X0701/ 1.3232E+0, 1.3884E+0, 1.4401E+0, 1.4822E+0, 1.5171E+0,
     * 1.5466E+0, 1.5832E+0, 1.6200E+0, 7.2363E-1, 8.2910E-1, 8.8493E-1,
     * 9.0625E-1, 9.3149E-1, 9.4611E-1, 9.5632E-1, 9.6309E-1, 9.7067E-1,
     * 9.7486E-1, 9.7653E-1, 9.7736E-1, 9.7820E-1, 1.0198E+0, 1.0585E+0,
     * 1.1287E+0, 1.1896E+0, 1.2423E+0, 1.2881E+0, 1.3282E+0, 1.3946E+0,
     * 1.4476E+0, 1.4908E+0, 1.5268E+0, 1.5573E+0, 1.5953E+0, 1.6336E+0,
     * 6.9189E-1, 8.1094E-1, 8.7331E-1, 8.9661E-1, 9.2413E-1, 9.3994E-1,
     * 9.5096E-1, 9.5824E-1, 9.6635E-1, 9.7083E-1, 9.7261E-1, 9.7350E-1,
     * 9.7439E-1, 1.0184E+0, 1.0587E+0, 1.1311E+0, 1.1933E+0, 1.2470E+0,
     * 1.2937E+0, 1.3344E+0, 1.4024E+0, 1.4567E+0, 1.5013E+0, 1.5385E+0,
     * 1.5702E+0, 1.6098E+0, 1.6499E+0, 6.5999E-1, 7.9521E-1, 8.6432E-1,
     * 8.8970E-1, 9.1940E-1, 9.3631E-1, 9.4802E-1, 9.5572E-1, 9.6428E-1,
     * 9.6899E-1, 9.7086E-1, 9.7180E-1, 9.7273E-1, 1.0185E+0, 1.0601E+0,
     * 1.1338E+0, 1.1967E+0, 1.2508E+0, 1.2978E+0, 1.3389E+0, 1.4076E+0,
     * 1.4628E+0, 1.5082E+0, 1.5464E+0, 1.5789E+0, 1.6197E+0, 1.6612E+0,
     * 6.2903E-1, 7.8294E-1, 8.5897E-1, 8.8642E-1, 9.1812E-1, 9.3594E-1,
     * 9.4820E-1, 9.5622E-1, 9.6511E-1, 9.6998E-1, 9.7192E-1/
      DATA X0801/ 9.7288E-1, 9.7385E-1, 1.0207E+0, 1.0627E+0, 1.1363E+0,
     * 1.1987E+0, 1.2522E+0, 1.2987E+0, 1.3394E+0, 1.4077E+0, 1.4628E+0,
     * 1.5085E+0, 1.5470E+0, 1.5800E+0, 1.6216E+0, 1.6641E+0, 6.1777E-1,
     * 7.8111E-1, 8.5992E-1, 8.8795E-1, 9.1997E-1, 9.3786E-1, 9.5011E-1,
     * 9.5811E-1, 9.6695E-1, 9.7180E-1, 9.7372E-1, 9.7468E-1, 9.7564E-1,
     * 1.0220E+0, 1.0632E+0, 1.1351E+0, 1.1958E+0, 1.2478E+0, 1.2930E+0,
     * 1.3327E+0, 1.3995E+0, 1.4537E+0, 1.4987E+0, 1.5368E+0, 1.5695E+0,
     * 1.6108E+0, 1.6532E+0, 6.2359E-1, 7.8835E-1, 8.6390E-1, 8.8989E-1,
     * 9.1923E-1, 9.3548E-1, 9.4655E-1, 9.5377E-1, 9.6172E-1, 9.6607E-1,
     * 9.6780E-1, 9.6866E-1, 9.6952E-1, 1.0109E+0, 1.0474E+0, 1.1107E+0,
     * 1.1641E+0, 1.2099E+0, 1.2499E+0, 1.2852E+0, 1.3449E+0, 1.3939E+0,
     * 1.4348E+0, 1.4698E+0, 1.4999E+0, 1.5381E+0, 1.5776E+0, 6.0746E-1,
     * 7.1554E-1, 7.5965E-1, 7.7460E-1, 7.9139E-1, 8.0066E-1, 8.0697E-1,
     * 8.1107E-1, 8.1560E-1, 8.1807E-1, 8.1905E-1, 8.1954E-1, 8.2003E-1,
     * 8.4351E-1, 8.6425E-1, 9.0044E-1, 9.3127E-1, 9.5810E-1, 9.8179E-1,
     * 1.0030E+0, 1.0394E+0, 1.0697E+0, 1.0955E+0, 1.1177E+0, 1.1371E+0,
     * 1.1618E+0, 1.1876E+0, 5.8454E-1, 6.7851E-1, 7.1671E-1/
      DATA X0901/ 7.2966E-1, 7.4421E-1, 7.5223E-1, 7.5769E-1, 7.6125E-1,
     * 7.6517E-1, 7.6731E-1, 7.6816E-1, 7.6858E-1, 7.6901E-1, 7.8937E-1,
     * 8.0737E-1, 8.3884E-1, 8.6572E-1, 8.8918E-1, 9.0994E-1, 9.2854E-1,
     * 9.6062E-1, 9.8745E-1, 1.0103E+0, 1.0300E+0, 1.0472E+0, 1.0693E+0,
     * 1.0923E+0, 5.5859E-1, 6.4099E-1, 6.7442E-1, 6.8574E-1, 6.9846E-1,
     * 7.0548E-1, 7.1026E-1, 7.1337E-1, 7.1680E-1, 7.1868E-1, 7.1942E-1,
     * 7.1979E-1, 7.2016E-1, 7.3799E-1, 7.5377E-1, 7.8141E-1, 8.0507E-1,
     * 8.2577E-1, 8.4414E-1, 8.6062E-1, 8.8911E-1, 9.1301E-1, 9.3339E-1,
     * 9.5101E-1, 9.6640E-1, 9.8617E-1, 1.0068E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9971E-1, 9.9981E-1, 9.9984E-1, 9.9985E-1, 9.9987E-1,
     * 9.9987E-1, 9.9988E-1, 9.9988E-1, 9.9988E-1, 9.9988E-1, 9.9988E-1,
     * 9.9988E-1, 9.9988E-1, 9.9990E-1, 9.9991E-1, 9.9992E-1, 9.9994E-1,
     * 9.9995E-1, 9.9995E-1, 9.9996E-1, 9.9996E-1, 9.9997E-1/
      DATA X1001/ 9.9997E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1,
     * 9.9553E-1, 9.9706E-1, 9.9760E-1, 9.9777E-1, 9.9795E-1, 9.9804E-1,
     * 9.9810E-1, 9.9814E-1, 9.9819E-1, 9.9821E-1, 9.9822E-1, 9.9822E-1,
     * 9.9823E-1, 9.9844E-1, 9.9860E-1, 9.9886E-1, 9.9904E-1, 9.9918E-1,
     * 9.9928E-1, 9.9936E-1, 9.9947E-1, 9.9954E-1, 9.9959E-1, 9.9963E-1,
     * 9.9966E-1, 9.9969E-1, 9.9972E-1, 9.8065E-1, 9.8702E-1, 9.8952E-1,
     * 9.9029E-1, 9.9111E-1, 9.9153E-1, 9.9181E-1, 9.9199E-1, 9.9219E-1,
     * 9.9229E-1, 9.9233E-1, 9.9235E-1, 9.9237E-1, 9.9330E-1, 9.9404E-1,
     * 9.9515E-1, 9.9593E-1, 9.9650E-1, 9.9693E-1, 9.9727E-1, 9.9774E-1,
     * 9.9805E-1, 9.9827E-1, 9.9843E-1, 9.9855E-1, 9.9868E-1, 9.9880E-1,
     * 9.6277E-1, 9.7460E-1, 9.7952E-1, 9.8110E-1, 9.8276E-1, 9.8362E-1,
     * 9.8419E-1, 9.8455E-1, 9.8494E-1, 9.8514E-1, 9.8523E-1, 9.8527E-1,
     * 9.8531E-1, 9.8715E-1, 9.8860E-1, 9.9075E-1, 9.9226E-1, 9.9335E-1,
     * 9.9416E-1, 9.9479E-1, 9.9568E-1, 9.9628E-1, 9.9669E-1, 9.9699E-1,
     * 9.9722E-1, 9.9747E-1, 9.9770E-1, 9.5186E-1, 9.6694E-1, 9.7330E-1,
     * 9.7538E-1, 9.7759E-1, 9.7874E-1, 9.7949E-1, 9.7996E-1, 9.8048E-1,
     * 9.8075E-1, 9.8086E-1, 9.8091E-1, 9.8097E-1, 9.8339E-1/
      DATA X1101/ 9.8528E-1, 9.8809E-1, 9.9003E-1, 9.9143E-1, 9.9248E-1,
     * 9.9328E-1, 9.9442E-1, 9.9518E-1, 9.9571E-1, 9.9610E-1, 9.9640E-1,
     * 9.9673E-1, 9.9702E-1, 9.3471E-1, 9.5468E-1, 9.6339E-1, 9.6623E-1,
     * 9.6931E-1, 9.7093E-1, 9.7198E-1, 9.7265E-1, 9.7337E-1, 9.7375E-1,
     * 9.7390E-1, 9.7398E-1, 9.7405E-1, 9.7742E-1, 9.8003E-1, 9.8386E-1,
     * 9.8649E-1, 9.8838E-1, 9.8978E-1, 9.9087E-1, 9.9240E-1, 9.9342E-1,
     * 9.9413E-1, 9.9466E-1, 9.9506E-1, 9.9551E-1, 9.9590E-1, 9.2188E-1,
     * 9.4566E-1, 9.5596E-1, 9.5938E-1, 9.6310E-1, 9.6507E-1, 9.6635E-1,
     * 9.6717E-1, 9.6804E-1, 9.6851E-1, 9.6869E-1, 9.6878E-1, 9.6887E-1,
     * 9.7295E-1, 9.7610E-1, 9.8069E-1, 9.8383E-1, 9.8607E-1, 9.8774E-1,
     * 9.8902E-1, 9.9084E-1, 9.9205E-1, 9.9291E-1, 9.9354E-1, 9.9402E-1,
     * 9.9455E-1, 9.9503E-1, 9.0747E-1, 9.3613E-1, 9.4810E-1, 9.5218E-1,
     * 9.5664E-1, 9.5896E-1, 9.6049E-1, 9.6145E-1, 9.6249E-1, 9.6304E-1,
     * 9.6326E-1, 9.6337E-1, 9.6347E-1, 9.6829E-1, 9.7199E-1, 9.7736E-1,
     * 9.8101E-1, 9.8362E-1, 9.8555E-1, 9.8704E-1, 9.8916E-1, 9.9057E-1,
     * 9.9157E-1, 9.9231E-1, 9.9287E-1, 9.9350E-1, 9.9407E-1, 8.9990E-1,
     * 9.2944E-1, 9.4218E-1, 9.4662E-1, 9.5142E-1, 9.5400E-1/
      DATA X1201/ 9.5569E-1, 9.5677E-1, 9.5793E-1, 9.5855E-1, 9.5880E-1,
     * 9.5892E-1, 9.5904E-1, 9.6444E-1, 9.6858E-1, 9.7457E-1, 9.7864E-1,
     * 9.8154E-1, 9.8369E-1, 9.8535E-1, 9.8770E-1, 9.8928E-1, 9.9040E-1,
     * 9.9123E-1, 9.9187E-1, 9.9258E-1, 9.9322E-1, 8.8281E-1, 9.1772E-1,
     * 9.3335E-1, 9.3848E-1, 9.4398E-1, 9.4698E-1, 9.4896E-1, 9.5020E-1,
     * 9.5153E-1, 9.5225E-1, 9.5253E-1, 9.5267E-1, 9.5281E-1, 9.5899E-1,
     * 9.6372E-1, 9.7054E-1, 9.7516E-1, 9.7846E-1, 9.8091E-1, 9.8280E-1,
     * 9.8550E-1, 9.8731E-1, 9.8861E-1, 9.8957E-1, 9.9031E-1, 9.9115E-1,
     * 9.9190E-1, 8.7109E-1, 9.0625E-1, 9.3042E-1, 9.3188E-1, 9.3799E-1,
     * 9.4116E-1, 9.4327E-1, 9.4431E-1, 9.4577E-1, 9.4654E-1, 9.4685E-1,
     * 9.4700E-1, 9.4716E-1, 9.5397E-1, 9.5918E-1, 9.6668E-1, 9.7177E-1,
     * 9.7542E-1, 9.7814E-1, 9.8024E-1, 9.8325E-1, 9.8530E-1, 9.8676E-1,
     * 9.8785E-1, 9.8870E-1, 9.8965E-1, 9.9051E-1, 9.1016E-1, 8.9844E-1,
     * 9.1406E-1, 9.2871E-1, 9.3311E-1, 9.3652E-1, 9.3896E-1, 9.4086E-1,
     * 9.4223E-1, 9.4308E-1, 9.4341E-1, 9.4357E-1, 9.4373E-1, 9.5087E-1,
     * 9.5633E-1, 9.6421E-1, 9.6956E-1, 9.7341E-1, 9.7629E-1, 9.7852E-1,
     * 9.8173E-1, 9.8391E-1, 9.8549E-1, 9.8667E-1, 9.8758E-1/
      DATA X1301/ 9.8861E-1, 9.8954E-1, 8.6523E-1, 9.0256E-1, 9.1942E-1,
     * 9.2514E-1, 9.3146E-1, 9.3485E-1, 9.3710E-1, 9.3853E-1, 9.4010E-1,
     * 9.4095E-1, 9.4127E-1, 9.4144E-1, 9.4160E-1, 9.4892E-1, 9.5451E-1,
     * 9.6260E-1, 9.6811E-1, 9.7207E-1, 9.7505E-1, 9.7736E-1, 9.8070E-1,
     * 9.8298E-1, 9.8462E-1, 9.8585E-1, 9.8681E-1, 9.8789E-1, 9.8887E-1,
     * 8.6761E-1, 9.0161E-1, 9.1725E-1, 9.2265E-1, 9.2868E-1, 9.3196E-1,
     * 9.3417E-1, 9.3559E-1, 9.3714E-1, 9.3798E-1, 9.3831E-1, 9.3847E-1,
     * 9.3864E-1, 9.4615E-1, 9.5190E-1, 9.6024E-1, 9.6595E-1, 9.7007E-1,
     * 9.7318E-1, 9.7561E-1, 9.7912E-1, 9.8154E-1, 9.8329E-1, 9.8460E-1,
     * 9.8562E-1, 9.8678E-1, 9.8783E-1, 8.8699E-1, 9.0420E-1, 9.1313E-1,
     * 9.1645E-1, 9.2037E-1, 9.2261E-1, 9.2417E-1, 9.2520E-1, 9.2635E-1,
     * 9.2699E-1, 9.2724E-1, 9.2737E-1, 9.2749E-1, 9.3375E-1, 9.3955E-1,
     * 9.4826E-1, 9.5448E-1, 9.5916E-1, 9.6279E-1, 9.6570E-1, 9.7004E-1,
     * 9.7310E-1, 9.7535E-1, 9.7707E-1, 9.7843E-1, 9.7998E-1, 9.8141E-1,
     * 9.7398E-1, 9.3878E-1, 9.2848E-1, 9.2602E-1, 9.2472E-1, 9.2461E-1,
     * 9.2483E-1, 9.2512E-1, 9.2559E-1, 9.2591E-1, 9.2605E-1, 9.2613E-1,
     * 9.2620E-1, 9.3234E-1, 9.3808E-1, 9.4676E-1, 9.5301E-1/
      DATA X1401/ 9.5773E-1, 9.6141E-1, 9.6437E-1, 9.6879E-1, 9.7193E-1,
     * 9.7424E-1, 9.7601E-1, 9.7740E-1, 9.7900E-1, 9.8048E-1, 9.7446E-1,
     * 9.3873E-1, 9.2810E-1, 9.2558E-1, 9.2419E-1, 9.2404E-1, 9.2423E-1,
     * 9.2452E-1, 9.2496E-1, 9.2528E-1, 9.2541E-1, 9.2549E-1, 9.2556E-1,
     * 9.3164E-1, 9.3735E-1, 9.4600E-1, 9.5226E-1, 9.5700E-1, 9.6071E-1,
     * 9.6369E-1, 9.6816E-1, 9.7133E-1, 9.7368E-1, 9.7547E-1, 9.7688E-1,
     * 9.7850E-1, 9.8001E-1,-6.2891E-1, 3.3984E-1, 6.8726E-1, 7.7686E-1,
     * 8.5815E-1, 8.9087E-1, 9.0691E-1, 9.1454E-1, 9.2037E-1, 9.2224E-1,
     * 9.2273E-1, 9.2291E-1, 9.2298E-1, 9.2880E-1, 9.3437E-1, 9.4293E-1,
     * 9.4922E-1, 9.5404E-1, 9.5784E-1, 9.6092E-1, 9.6556E-1, 9.6887E-1,
     * 9.7133E-1, 9.7322E-1, 9.7471E-1, 9.7643E-1, 9.7802E-1, 6.6406E-1,
     * 8.1079E-1, 8.6719E-1, 8.8403E-1, 9.0015E-1, 9.0784E-1, 9.1241E-1,
     * 9.1504E-1, 9.1764E-1, 9.1891E-1, 9.1938E-1, 9.1956E-1, 9.1961E-1,
     * 9.2510E-1, 9.3049E-1, 9.3893E-1, 9.4525E-1, 9.5016E-1, 9.5408E-1,
     * 9.5727E-1, 9.6212E-1, 9.6560E-1, 9.6820E-1, 9.7021E-1, 9.7179E-1,
     * 9.7363E-1, 9.7534E-1, 1.0171E+0, 9.3506E-1, 9.1252E-1, 9.0877E-1,
     * 9.0762E-1, 9.0874E-1, 9.1030E-1, 9.1171E-1, 9.1364E-1/
      DATA X1501/ 9.1487E-1, 9.1533E-1, 9.1550E-1, 9.1554E-1, 9.2070E-1,
     * 9.2593E-1, 9.3426E-1, 9.4063E-1, 9.4565E-1, 9.4969E-1, 9.5301E-1,
     * 9.5808E-1, 9.6175E-1, 9.6450E-1, 9.6662E-1, 9.6831E-1, 9.7028E-1,
     * 9.7213E-1, 1.0186E+0, 9.3384E-1, 9.1052E-1, 9.0651E-1, 9.0508E-1,
     * 9.0607E-1, 9.0755E-1, 9.0892E-1, 9.1081E-1, 9.1202E-1, 9.1247E-1,
     * 9.1264E-1, 9.1268E-1, 9.1767E-1, 9.2281E-1, 9.3111E-1, 9.3753E-1,
     * 9.4262E-1, 9.4675E-1, 9.5014E-1, 9.5536E-1, 9.5914E-1, 9.6198E-1,
     * 9.6418E-1, 9.6594E-1, 9.6799E-1, 9.6992E-1, 9.2969E-1, 9.0140E-1,
     * 8.9682E-1, 8.9721E-1, 8.9929E-1, 9.0132E-1, 9.0311E-1, 9.0447E-1,
     * 9.0632E-1, 9.0751E-1, 9.0795E-1, 9.0811E-1, 9.0815E-1, 9.1296E-1,
     * 9.1804E-1, 9.2635E-1, 9.3287E-1, 9.3808E-1, 9.4233E-1, 9.4584E-1,
     * 9.5125E-1, 9.5520E-1, 9.5817E-1, 9.6048E-1, 9.6233E-1, 9.6450E-1,
     * 9.6655E-1, 8.7598E-1, 8.8170E-1, 8.8756E-1, 8.9030E-1, 8.9399E-1,
     * 8.9635E-1, 8.9809E-1, 8.9943E-1, 9.0126E-1, 9.0245E-1, 9.0289E-1,
     * 9.0305E-1, 9.0308E-1, 9.0781E-1, 9.1288E-1, 9.2128E-1, 9.2792E-1,
     * 9.3328E-1, 9.3766E-1, 9.4128E-1, 9.4689E-1, 9.5099E-1, 9.5409E-1,
     * 9.5651E-1, 9.5845E-1, 9.6074E-1, 9.6293E-1, 8.3932E-1/
      DATA X1601/ 8.6589E-1, 8.7768E-1, 8.8166E-1, 8.8601E-1, 8.8834E-1,
     * 8.9008E-1, 8.9142E-1, 8.9326E-1, 8.9445E-1, 8.9489E-1, 8.9505E-1,
     * 8.9509E-1, 8.9985E-1, 9.0501E-1, 9.1365E-1, 9.2054E-1, 9.2612E-1,
     * 9.3069E-1, 9.3448E-1, 9.4036E-1, 9.4467E-1, 9.4795E-1, 9.5052E-1,
     * 9.5259E-1, 9.5505E-1, 9.5742E-1, 8.2718E-1, 8.5806E-1, 8.7101E-1,
     * 8.7518E-1, 8.7959E-1, 8.8196E-1, 8.8373E-1, 8.8509E-1, 8.8696E-1,
     * 8.8817E-1, 8.8862E-1, 8.8879E-1, 8.8882E-1, 8.9371E-1, 8.9901E-1,
     * 9.0789E-1, 9.1499E-1, 9.2073E-1, 9.2545E-1, 9.2936E-1, 9.3543E-1,
     * 9.3989E-1, 9.4329E-1, 9.4596E-1, 9.4812E-1, 9.5071E-1, 9.5322E-1,
     * 8.1424E-1, 8.4252E-1, 8.5556E-1, 8.6007E-1, 8.6485E-1, 8.6741E-1,
     * 8.6932E-1, 8.7078E-1, 8.7277E-1, 8.7405E-1, 8.7453E-1, 8.7470E-1,
     * 8.7475E-1, 8.8009E-1, 8.8581E-1, 8.9535E-1, 9.0294E-1, 9.0906E-1,
     * 9.1407E-1, 9.1821E-1, 9.2466E-1, 9.2940E-1, 9.3304E-1, 9.3592E-1,
     * 9.3828E-1, 9.4112E-1, 9.4392E-1, 7.7740E-1, 8.1569E-1, 8.3210E-1,
     * 8.3763E-1, 8.4345E-1, 8.4656E-1, 8.4883E-1, 8.5053E-1, 8.5281E-1,
     * 8.5426E-1, 8.5480E-1, 8.5501E-1, 8.5507E-1, 8.6145E-1, 8.6802E-1,
     * 8.7877E-1, 8.8712E-1, 8.9375E-1, 8.9912E-1, 9.0353E-1/
      DATA X1701/ 9.1034E-1, 9.1535E-1, 9.1922E-1, 9.2232E-1, 9.2488E-1,
     * 9.2803E-1, 9.3118E-1, 7.7343E-1, 8.1361E-1, 8.3060E-1, 8.3630E-1,
     * 8.4229E-1, 8.4548E-1, 8.4781E-1, 8.4955E-1, 8.5188E-1, 8.5335E-1,
     * 8.5391E-1, 8.5411E-1, 8.5418E-1, 8.6071E-1, 8.6739E-1, 8.7828E-1,
     * 8.8671E-1, 8.9337E-1, 8.9875E-1, 9.0316E-1, 9.0995E-1, 9.1495E-1,
     * 9.1880E-1, 9.2189E-1, 9.2444E-1, 9.2757E-1, 9.3073E-1, 7.7102E-1,
     * 8.1279E-1, 8.3026E-1, 8.3610E-1, 8.4223E-1, 8.4549E-1, 8.4786E-1,
     * 8.4963E-1, 8.5199E-1, 8.5349E-1, 8.5405E-1, 8.5426E-1, 8.5433E-1,
     * 8.6097E-1, 8.6774E-1, 8.7873E-1, 8.8720E-1, 8.9387E-1, 8.9924E-1,
     * 9.0363E-1, 9.1039E-1, 9.1534E-1, 9.1916E-1, 9.2222E-1, 9.2474E-1,
     * 9.2785E-1, 9.3098E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9961E-1,
     * 9.9972E-1, 9.9976E-1, 9.9978E-1, 9.9979E-1, 9.9980E-1, 9.9981E-1,
     * 9.9981E-1, 9.9981E-1, 9.9982E-1, 9.9982E-1, 9.9982E-1/
      DATA X1801/ 9.9982E-1, 9.9984E-1, 9.9985E-1, 9.9988E-1, 9.9990E-1,
     * 9.9991E-1, 9.9992E-1, 9.9993E-1, 9.9994E-1, 9.9995E-1, 9.9996E-1,
     * 9.9996E-1, 9.9996E-1, 9.9996E-1, 9.9997E-1, 9.9477E-1, 9.9626E-1,
     * 9.9684E-1, 9.9702E-1, 9.9723E-1, 9.9734E-1, 9.9741E-1, 9.9746E-1,
     * 9.9751E-1, 9.9753E-1, 9.9755E-1, 9.9755E-1, 9.9756E-1, 9.9781E-1,
     * 9.9802E-1, 9.9836E-1, 9.9861E-1, 9.9880E-1, 9.9895E-1, 9.9907E-1,
     * 9.9923E-1, 9.9934E-1, 9.9941E-1, 9.9946E-1, 9.9949E-1, 9.9952E-1,
     * 9.9954E-1, 9.7848E-1, 9.8455E-1, 9.8708E-1, 9.8789E-1, 9.8876E-1,
     * 9.8923E-1, 9.8954E-1, 9.8974E-1, 9.8996E-1, 9.9008E-1, 9.9012E-1,
     * 9.9015E-1, 9.9017E-1, 9.9124E-1, 9.9211E-1, 9.9349E-1, 9.9450E-1,
     * 9.9527E-1, 9.9585E-1, 9.9631E-1, 9.9696E-1, 9.9738E-1, 9.9766E-1,
     * 9.9784E-1, 9.9796E-1, 9.9807E-1, 9.9814E-1, 9.5854E-1, 9.7031E-1,
     * 9.7533E-1, 9.7698E-1, 9.7874E-1, 9.7967E-1, 9.8029E-1, 9.8069E-1,
     * 9.8112E-1, 9.8135E-1, 9.8144E-1, 9.8149E-1, 9.8153E-1, 9.8363E-1,
     * 9.8532E-1, 9.8794E-1, 9.8984E-1, 9.9126E-1, 9.9234E-1, 9.9318E-1,
     * 9.9437E-1, 9.9513E-1, 9.9563E-1, 9.9596E-1, 9.9618E-1, 9.9637E-1,
     * 9.9649E-1, 9.4656E-1, 9.6153E-1, 9.6804E-1, 9.7021E-1/
      DATA X1901/ 9.7256E-1, 9.7380E-1, 9.7463E-1, 9.7515E-1, 9.7572E-1,
     * 9.7602E-1, 9.7615E-1, 9.7621E-1, 9.7627E-1, 9.7901E-1, 9.8123E-1,
     * 9.8462E-1, 9.8706E-1, 9.8887E-1, 9.9025E-1, 9.9131E-1, 9.9280E-1,
     * 9.9375E-1, 9.9438E-1, 9.9479E-1, 9.9507E-1, 9.9531E-1, 9.9545E-1,
     * 9.2680E-1, 9.4720E-1, 9.5632E-1, 9.5934E-1, 9.6265E-1, 9.6440E-1,
     * 9.6557E-1, 9.6630E-1, 9.6710E-1, 9.6753E-1, 9.6770E-1, 9.6779E-1,
     * 9.6787E-1, 9.7171E-1, 9.7476E-1, 9.7939E-1, 9.8268E-1, 9.8510E-1,
     * 9.8692E-1, 9.8833E-1, 9.9029E-1, 9.9153E-1, 9.9234E-1, 9.9288E-1,
     * 9.9323E-1, 9.9354E-1, 9.9372E-1, 9.1089E-1, 9.3626E-1, 9.4737E-1,
     * 9.5109E-1, 9.5515E-1, 9.5731E-1, 9.5874E-1, 9.5964E-1, 9.6062E-1,
     * 9.6115E-1, 9.6135E-1, 9.6146E-1, 9.6156E-1, 9.6623E-1, 9.6993E-1,
     * 9.7549E-1, 9.7941E-1, 9.8227E-1, 9.8441E-1, 9.8606E-1, 9.8835E-1,
     * 9.8980E-1, 9.9074E-1, 9.9136E-1, 9.9177E-1, 9.9212E-1, 9.9232E-1,
     * 8.9526E-1, 9.2532E-1, 9.3808E-1, 9.4246E-1, 9.4731E-1, 9.4987E-1,
     * 9.5157E-1, 9.5265E-1, 9.5382E-1, 9.5445E-1, 9.5470E-1, 9.5482E-1,
     * 9.5494E-1, 9.6049E-1, 9.6486E-1, 9.7138E-1, 9.7594E-1, 9.7925E-1,
     * 9.8172E-1, 9.8361E-1, 9.8623E-1, 9.8788E-1, 9.8895E-1/
      DATA X2001/ 9.8965E-1, 9.9011E-1, 9.9050E-1, 9.9071E-1, 8.8477E-1,
     * 9.1699E-1, 9.3062E-1, 9.3552E-1, 9.4086E-1, 9.4375E-1, 9.4566E-1,
     * 9.4688E-1, 9.4820E-1, 9.4891E-1, 9.4919E-1, 9.4933E-1, 9.4947E-1,
     * 9.5574E-1, 9.6065E-1, 9.6795E-1, 9.7302E-1, 9.7669E-1, 9.7942E-1,
     * 9.8150E-1, 9.8437E-1, 9.8618E-1, 9.8735E-1, 9.8811E-1, 9.8861E-1,
     * 9.8903E-1, 9.8924E-1, 8.6328E-1, 9.0234E-1, 9.1968E-1, 9.2554E-1,
     * 9.3164E-1, 9.3501E-1, 9.3729E-1, 9.3871E-1, 9.4025E-1, 9.4107E-1,
     * 9.4140E-1, 9.4156E-1, 9.4172E-1, 9.4896E-1, 9.5461E-1, 9.6296E-1,
     * 9.6872E-1, 9.7287E-1, 9.7594E-1, 9.7828E-1, 9.8150E-1, 9.8351E-1,
     * 9.8481E-1, 9.8565E-1, 9.8619E-1, 9.8664E-1, 9.8686E-1, 8.4766E-1,
     * 8.8672E-1, 9.1431E-1, 9.1699E-1, 9.2407E-1, 9.2773E-1, 9.3004E-1,
     * 9.3127E-1, 9.3299E-1, 9.3389E-1, 9.3425E-1, 9.3443E-1, 9.3461E-1,
     * 9.4267E-1, 9.4894E-1, 9.5816E-1, 9.6450E-1, 9.6904E-1, 9.7241E-1,
     * 9.7496E-1, 9.7847E-1, 9.8066E-1, 9.8206E-1, 9.8296E-1, 9.8353E-1,
     * 9.8400E-1, 9.8420E-1, 9.0234E-1, 8.7891E-1, 8.9453E-1, 9.1406E-1,
     * 9.1797E-1, 9.2212E-1, 9.2480E-1, 9.2693E-1, 9.2851E-1, 9.2951E-1,
     * 9.2989E-1, 9.3008E-1, 9.3027E-1, 9.3876E-1, 9.4536E-1/
      DATA X2101/ 9.5505E-1, 9.6171E-1, 9.6647E-1, 9.7000E-1, 9.7267E-1,
     * 9.7635E-1, 9.7864E-1, 9.8010E-1, 9.8103E-1, 9.8161E-1, 9.8208E-1,
     * 9.8227E-1, 8.3958E-1, 8.8237E-1, 9.0196E-1, 9.0828E-1, 9.1565E-1,
     * 9.1962E-1, 9.2225E-1, 9.2394E-1, 9.2578E-1, 9.2677E-1, 9.2717E-1,
     * 9.2736E-1, 9.2755E-1, 9.3628E-1, 9.4306E-1, 9.5302E-1, 9.5985E-1,
     * 9.6475E-1, 9.6837E-1, 9.7111E-1, 9.7488E-1, 9.7723E-1, 9.7872E-1,
     * 9.7966E-1, 9.8026E-1, 9.8073E-1, 9.8090E-1, 8.4042E-1, 8.8010E-1,
     * 8.9845E-1, 9.0481E-1, 9.1193E-1, 9.1582E-1, 9.1844E-1, 9.2012E-1,
     * 9.2197E-1, 9.2297E-1, 9.2336E-1, 9.2356E-1, 9.2375E-1, 9.3276E-1,
     * 9.3975E-1, 9.5001E-1, 9.5707E-1, 9.6212E-1, 9.6586E-1, 9.6870E-1,
     * 9.7260E-1, 9.7501E-1, 9.7654E-1, 9.7751E-1, 9.7811E-1, 9.7857E-1,
     * 9.7872E-1, 8.6188E-1, 8.8175E-1, 8.9218E-1, 8.9609E-1, 9.0071E-1,
     * 9.0336E-1, 9.0521E-1, 9.0643E-1, 9.0780E-1, 9.0856E-1, 9.0886E-1,
     * 9.0901E-1, 9.0916E-1, 9.1664E-1, 9.2365E-1, 9.3411E-1, 9.4145E-1,
     * 9.4680E-1, 9.5081E-1, 9.5387E-1, 9.5809E-1, 9.6067E-1, 9.6226E-1,
     * 9.6322E-1, 9.6376E-1, 9.6411E-1, 9.6408E-1, 9.7211E-1, 9.2548E-1,
     * 9.1141E-1, 9.0816E-1, 9.0612E-1, 9.0581E-1, 9.0596E-1/
      DATA X2201/ 9.0624E-1, 9.0675E-1, 9.0710E-1, 9.0726E-1, 9.0735E-1,
     * 9.0743E-1, 9.1475E-1, 9.2166E-1, 9.3201E-1, 9.3931E-1, 9.4465E-1,
     * 9.4866E-1, 9.5172E-1, 9.5594E-1, 9.5852E-1, 9.6010E-1, 9.6105E-1,
     * 9.6158E-1, 9.6191E-1, 9.6186E-1, 9.7250E-1, 9.2517E-1, 9.1092E-1,
     * 9.0754E-1, 9.0541E-1, 9.0503E-1, 9.0516E-1, 9.0541E-1, 9.0590E-1,
     * 9.0625E-1, 9.0640E-1, 9.0648E-1, 9.0656E-1, 9.1380E-1, 9.2065E-1,
     * 9.3094E-1, 9.3822E-1, 9.4354E-1, 9.4755E-1, 9.5061E-1, 9.5484E-1,
     * 9.5742E-1, 9.5899E-1, 9.5993E-1, 9.6046E-1, 9.6077E-1, 9.6071E-1,
     *-1.0313E+0, 1.7578E-1, 6.0913E-1, 7.2144E-1, 8.2251E-1, 8.6304E-1,
     * 8.8316E-1, 8.9265E-1, 8.9985E-1, 9.0216E-1, 9.0275E-1, 9.0297E-1,
     * 9.0304E-1, 9.0989E-1, 9.1650E-1, 9.2651E-1, 9.3366E-1, 9.3894E-1,
     * 9.4292E-1, 9.4598E-1, 9.5020E-1, 9.5276E-1, 9.5432E-1, 9.5523E-1,
     * 9.5572E-1, 9.5599E-1, 9.5588E-1, 5.8203E-1, 7.6563E-1, 8.3447E-1,
     * 8.5474E-1, 8.7473E-1, 8.8406E-1, 8.8962E-1, 8.9281E-1, 8.9594E-1,
     * 8.9747E-1, 8.9804E-1, 8.9825E-1, 8.9831E-1, 9.0464E-1, 9.1090E-1,
     * 9.2053E-1, 9.2750E-1, 9.3269E-1, 9.3664E-1, 9.3968E-1, 9.4387E-1,
     * 9.4640E-1, 9.4792E-1, 9.4879E-1, 9.4925E-1, 9.4946E-1/
      DATA X2301/ 9.4930E-1, 1.0244E+0, 9.1919E-1, 8.9034E-1, 8.8519E-1,
     * 8.8327E-1, 8.8442E-1, 8.8618E-1, 8.8783E-1, 8.9011E-1, 8.9157E-1,
     * 8.9212E-1, 8.9232E-1, 8.9236E-1, 8.9812E-1, 9.0403E-1, 9.1324E-1,
     * 9.2002E-1, 9.2513E-1, 9.2903E-1, 9.3205E-1, 9.3619E-1, 9.3868E-1,
     * 9.4016E-1, 9.4099E-1, 9.4141E-1, 9.4157E-1, 9.4137E-1, 1.0256E+0,
     * 9.1724E-1, 8.8724E-1, 8.8174E-1, 8.7944E-1, 8.8039E-1, 8.8205E-1,
     * 8.8362E-1, 8.8583E-1, 8.8727E-1, 8.8780E-1, 8.8799E-1, 8.8802E-1,
     * 8.9347E-1, 8.9917E-1, 9.0816E-1, 9.1484E-1, 9.1990E-1, 9.2378E-1,
     * 9.2678E-1, 9.3090E-1, 9.3337E-1, 9.3481E-1, 9.3562E-1, 9.3602E-1,
     * 9.3617E-1, 9.3595E-1, 9.1187E-1, 8.7546E-1, 8.6880E-1, 8.6889E-1,
     * 8.7095E-1, 8.7316E-1, 8.7516E-1, 8.7670E-1, 8.7883E-1, 8.8023E-1,
     * 8.8074E-1, 8.8092E-1, 8.8095E-1, 8.8603E-1, 8.9151E-1, 9.0025E-1,
     * 9.0683E-1, 9.1185E-1, 9.1571E-1, 9.1869E-1, 9.2278E-1, 9.2522E-1,
     * 9.2664E-1, 9.2743E-1, 9.2782E-1, 9.2795E-1, 9.2774E-1, 8.4540E-1,
     * 8.4993E-1, 8.5581E-1, 8.5869E-1, 8.6265E-1, 8.6521E-1, 8.6712E-1,
     * 8.6861E-1, 8.7069E-1, 8.7205E-1, 8.7255E-1, 8.7273E-1, 8.7275E-1,
     * 8.7760E-1, 8.8294E-1, 8.9155E-1, 8.9809E-1, 9.0310E-1/
      DATA X2401/ 9.0696E-1, 9.0994E-1, 9.1403E-1, 9.1645E-1, 9.1787E-1,
     * 9.1865E-1, 9.1904E-1, 9.1920E-1, 9.1903E-1, 7.9861E-1, 8.2778E-1,
     * 8.4058E-1, 8.4485E-1, 8.4951E-1, 8.5198E-1, 8.5384E-1, 8.5530E-1,
     * 8.5735E-1, 8.5869E-1, 8.5919E-1, 8.5937E-1, 8.5938E-1, 8.6414E-1,
     * 8.6945E-1, 8.7809E-1, 8.8468E-1, 8.8974E-1, 8.9364E-1, 8.9665E-1,
     * 9.0077E-1, 9.0322E-1, 9.0466E-1, 9.0548E-1, 9.0592E-1, 9.0616E-1,
     * 9.0610E-1, 7.8113E-1, 8.1541E-1, 8.2953E-1, 8.3401E-1, 8.3869E-1,
     * 8.4118E-1, 8.4306E-1, 8.4453E-1, 8.4658E-1, 8.4793E-1, 8.4843E-1,
     * 8.4861E-1, 8.4863E-1, 8.5347E-1, 8.5886E-1, 8.6765E-1, 8.7436E-1,
     * 8.7950E-1, 8.8345E-1, 8.8650E-1, 8.9069E-1, 8.9319E-1, 8.9469E-1,
     * 8.9556E-1, 8.9606E-1, 8.9640E-1, 8.9647E-1, 7.5813E-1, 7.8931E-1,
     * 8.0345E-1, 8.0827E-1, 8.1333E-1, 8.1603E-1, 8.1804E-1, 8.1959E-1,
     * 8.2171E-1, 8.2309E-1, 8.2360E-1, 8.2378E-1, 8.2382E-1, 8.2917E-1,
     * 8.3493E-1, 8.4425E-1, 8.5130E-1, 8.5668E-1, 8.6081E-1, 8.6400E-1,
     * 8.6840E-1, 8.7111E-1, 8.7280E-1, 8.7389E-1, 8.7460E-1, 8.7525E-1,
     * 8.7570E-1, 7.0182E-1, 7.4296E-1, 7.5985E-1, 7.6546E-1, 7.7134E-1,
     * 7.7446E-1, 7.7672E-1, 7.7839E-1, 7.8060E-1, 7.8199E-1/
      DATA X2501/ 7.8251E-1, 7.8271E-1, 7.8278E-1, 7.8908E-1, 7.9539E-1,
     * 8.0543E-1, 8.1292E-1, 8.1860E-1, 8.2296E-1, 8.2635E-1, 8.3118E-1,
     * 8.3433E-1, 8.3650E-1, 8.3807E-1, 8.3926E-1, 8.4059E-1, 8.4184E-1,
     * 6.9526E-1, 7.3744E-1, 7.5456E-1, 7.6022E-1, 7.6617E-1, 7.6932E-1,
     * 7.7159E-1, 7.7326E-1, 7.7546E-1, 7.7685E-1, 7.7737E-1, 7.7756E-1,
     * 7.7763E-1, 7.8400E-1, 7.9033E-1, 8.0039E-1, 8.0788E-1, 8.1355E-1,
     * 8.1792E-1, 8.2132E-1, 8.2618E-1, 8.2939E-1, 8.3162E-1, 8.3326E-1,
     * 8.3451E-1, 8.3594E-1, 8.3730E-1, 6.9049E-1, 7.3334E-1, 7.5060E-1,
     * 7.5629E-1, 7.6226E-1, 7.6543E-1, 7.6771E-1, 7.6938E-1, 7.7157E-1,
     * 7.7294E-1, 7.7346E-1, 7.7365E-1, 7.7372E-1, 7.8013E-1, 7.8646E-1,
     * 7.9650E-1, 8.0398E-1, 8.0964E-1, 8.1400E-1, 8.1741E-1, 8.2229E-1,
     * 8.2553E-1, 8.2781E-1, 8.2949E-1, 8.3079E-1, 8.3230E-1, 8.3374E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0052E+0, 1.0031E+0/
      DATA X2601/ 1.0024E+0, 1.0022E+0, 1.0020E+0, 1.0019E+0, 1.0018E+0,
     * 1.0017E+0, 1.0017E+0, 1.0017E+0, 1.0016E+0, 1.0016E+0, 1.0016E+0,
     * 1.0014E+0, 1.0012E+0, 1.0009E+0, 1.0007E+0, 1.0005E+0, 1.0004E+0,
     * 1.0003E+0, 1.0002E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0722E+0, 1.0425E+0, 1.0328E+0, 1.0298E+0,
     * 1.0267E+0, 1.0250E+0, 1.0240E+0, 1.0233E+0, 1.0226E+0, 1.0222E+0,
     * 1.0220E+0, 1.0219E+0, 1.0218E+0, 1.0184E+0, 1.0156E+0, 1.0116E+0,
     * 1.0089E+0, 1.0070E+0, 1.0056E+0, 1.0045E+0, 1.0031E+0, 1.0023E+0,
     * 1.0017E+0, 1.0013E+0, 1.0010E+0, 1.0008E+0, 1.0005E+0, 1.3065E+0,
     * 1.1855E+0, 1.1392E+0, 1.1255E+0, 1.1113E+0, 1.1040E+0, 1.0992E+0,
     * 1.0962E+0, 1.0929E+0, 1.0912E+0, 1.0905E+0, 1.0901E+0, 1.0898E+0,
     * 1.0746E+0, 1.0630E+0, 1.0462E+0, 1.0350E+0, 1.0273E+0, 1.0217E+0,
     * 1.0176E+0, 1.0122E+0, 1.0088E+0, 1.0066E+0, 1.0051E+0, 1.0041E+0,
     * 1.0030E+0, 1.0021E+0, 1.6041E+0, 1.3701E+0, 1.2760E+0, 1.2468E+0,
     * 1.2168E+0, 1.2015E+0, 1.1916E+0, 1.1853E+0, 1.1786E+0, 1.1750E+0,
     * 1.1736E+0, 1.1729E+0, 1.1723E+0, 1.1415E+0, 1.1183E+0, 1.0855E+0,
     * 1.0642E+0, 1.0497E+0, 1.0394E+0, 1.0320E+0, 1.0220E+0/
      DATA X2701/ 1.0160E+0, 1.0120E+0, 1.0094E+0, 1.0075E+0, 1.0055E+0,
     * 1.0040E+0, 1.7824E+0, 1.4860E+0, 1.3635E+0, 1.3245E+0, 1.2837E+0,
     * 1.2629E+0, 1.2495E+0, 1.2411E+0, 1.2321E+0, 1.2273E+0, 1.2254E+0,
     * 1.2245E+0, 1.2236E+0, 1.1825E+0, 1.1517E+0, 1.1088E+0, 1.0812E+0,
     * 1.0627E+0, 1.0496E+0, 1.0402E+0, 1.0277E+0, 1.0201E+0, 1.0152E+0,
     * 1.0118E+0, 1.0094E+0, 1.0070E+0, 1.0050E+0, 2.0806E+0, 1.6755E+0,
     * 1.5052E+0, 1.4503E+0, 1.3921E+0, 1.3621E+0, 1.3428E+0, 1.3307E+0,
     * 1.3178E+0, 1.3109E+0, 1.3082E+0, 1.3069E+0, 1.3055E+0, 1.2472E+0,
     * 1.2040E+0, 1.1446E+0, 1.1072E+0, 1.0823E+0, 1.0650E+0, 1.0526E+0,
     * 1.0363E+0, 1.0264E+0, 1.0200E+0, 1.0156E+0, 1.0125E+0, 1.0093E+0,
     * 1.0067E+0, 2.2971E+0, 1.8153E+0, 1.6106E+0, 1.5440E+0, 1.4730E+0,
     * 1.4361E+0, 1.4122E+0, 1.3973E+0, 1.3813E+0, 1.3729E+0, 1.3695E+0,
     * 1.3679E+0, 1.3663E+0, 1.2946E+0, 1.2420E+0, 1.1703E+0, 1.1257E+0,
     * 1.0962E+0, 1.0759E+0, 1.0613E+0, 1.0424E+0, 1.0309E+0, 1.0234E+0,
     * 1.0183E+0, 1.0147E+0, 1.0109E+0, 1.0079E+0, 2.5181E+0, 1.9579E+0,
     * 1.7179E+0, 1.6394E+0, 1.5552E+0, 1.5114E+0, 1.4828E+0, 1.4649E+0,
     * 1.4458E+0, 1.4356E+0, 1.4317E+0, 1.4297E+0, 1.4277E+0/
      DATA X2801/ 1.3424E+0, 1.2800E+0, 1.1959E+0, 1.1440E+0, 1.1100E+0,
     * 1.0867E+0, 1.0701E+0, 1.0485E+0, 1.0354E+0, 1.0270E+0, 1.0212E+0,
     * 1.0170E+0, 1.0127E+0, 1.0092E+0, 2.6885E+0, 2.0684E+0, 1.8013E+0,
     * 1.7138E+0, 1.6195E+0, 1.5702E+0, 1.5381E+0, 1.5178E+0, 1.4962E+0,
     * 1.4848E+0, 1.4803E+0, 1.4780E+0, 1.4758E+0, 1.3796E+0, 1.3096E+0,
     * 1.2158E+0, 1.1582E+0, 1.1208E+0, 1.0952E+0, 1.0770E+0, 1.0534E+0,
     * 1.0391E+0, 1.0298E+0, 1.0234E+0, 1.0189E+0, 1.0141E+0, 1.0102E+0,
     * 2.9141E+0, 2.2146E+0, 1.9097E+0, 1.8096E+0, 1.7021E+0, 1.6458E+0,
     * 1.6089E+0, 1.5858E+0, 1.5610E+0, 1.5478E+0, 1.5427E+0, 1.5401E+0,
     * 1.5376E+0, 1.4273E+0, 1.3476E+0, 1.2414E+0, 1.1768E+0, 1.1350E+0,
     * 1.1065E+0, 1.0863E+0, 1.0600E+0, 1.0442E+0, 1.0338E+0, 1.0267E+0,
     * 1.0215E+0, 1.0161E+0, 1.0117E+0, 3.0898E+0, 2.3203E+0, 1.9961E+0,
     * 1.8848E+0, 1.7656E+0, 1.7034E+0, 1.6628E+0, 1.6373E+0, 1.6101E+0,
     * 1.5956E+0, 1.5899E+0, 1.5871E+0, 1.5844E+0, 1.4637E+0, 1.3769E+0,
     * 1.2616E+0, 1.1918E+0, 1.1467E+0, 1.1161E+0, 1.0943E+0, 1.0660E+0,
     * 1.0488E+0, 1.0375E+0, 1.0296E+0, 1.0239E+0, 1.0179E+0, 1.0130E+0,
     * 3.1719E+0, 2.3438E+0, 2.0078E+0, 1.9063E+0, 1.7905E+0/
      DATA X2901/ 1.7278E+0, 1.6868E+0, 1.6614E+0, 1.6330E+0, 1.6181E+0,
     * 1.6122E+0, 1.6093E+0, 1.6064E+0, 1.4812E+0, 1.3912E+0, 1.2719E+0,
     * 1.1997E+0, 1.1532E+0, 1.1216E+0, 1.0990E+0, 1.0695E+0, 1.0516E+0,
     * 1.0397E+0, 1.0314E+0, 1.0254E+0, 1.0191E+0, 1.0139E+0, 3.1072E+0,
     * 2.3606E+0, 2.0326E+0, 1.9229E+0, 1.8037E+0, 1.7405E+0, 1.6988E+0,
     * 1.6724E+0, 1.6440E+0, 1.6288E+0, 1.6228E+0, 1.6199E+0, 1.6169E+0,
     * 1.4897E+0, 1.3983E+0, 1.2773E+0, 1.2042E+0, 1.1570E+0, 1.1248E+0,
     * 1.1018E+0, 1.0717E+0, 1.0533E+0, 1.0411E+0, 1.0326E+0, 1.0264E+0,
     * 1.0198E+0, 1.0144E+0, 2.9551E+0, 2.3062E+0, 2.0136E+0, 1.9141E+0,
     * 1.8041E+0, 1.7449E+0, 1.7054E+0, 1.6802E+0, 1.6528E+0, 1.6381E+0,
     * 1.6323E+0, 1.6294E+0, 1.6265E+0, 1.4980E+0, 1.4057E+0, 1.2835E+0,
     * 1.2095E+0, 1.1617E+0, 1.1290E+0, 1.1056E+0, 1.0748E+0, 1.0558E+0,
     * 1.0431E+0, 1.0342E+0, 1.0277E+0, 1.0208E+0, 1.0151E+0, 2.6776E+0,
     * 2.1396E+0, 1.8965E+0, 1.8137E+0, 1.7221E+0, 1.6728E+0, 1.6398E+0,
     * 1.6187E+0, 1.5958E+0, 1.5835E+0, 1.5786E+0, 1.5762E+0, 1.5738E+0,
     * 1.4660E+0, 1.3880E+0, 1.2830E+0, 1.2174E+0, 1.1734E+0, 1.1420E+0,
     * 1.1187E+0, 1.0865E+0, 1.0655E+0, 1.0511E+0, 1.0407E+0/
      DATA X3001/ 1.0330E+0, 1.0248E+0, 1.0179E+0, 2.7540E+0, 2.1565E+0,
     * 1.8935E+0, 1.8054E+0, 1.7095E+0, 1.6586E+0, 1.6250E+0, 1.6037E+0,
     * 1.5808E+0, 1.5686E+0, 1.5638E+0, 1.5614E+0, 1.5590E+0, 1.4560E+0,
     * 1.3813E+0, 1.2803E+0, 1.2167E+0, 1.1737E+0, 1.1428E+0, 1.1197E+0,
     * 1.0875E+0, 1.0664E+0, 1.0518E+0, 1.0413E+0, 1.0335E+0, 1.0251E+0,
     * 1.0181E+0, 2.7135E+0, 2.1326E+0, 1.8769E+0, 1.7912E+0, 1.6979E+0,
     * 1.6483E+0, 1.6156E+0, 1.5948E+0, 1.5725E+0, 1.5606E+0, 1.5559E+0,
     * 1.5536E+0, 1.5513E+0, 1.4508E+0, 1.3778E+0, 1.2789E+0, 1.2163E+0,
     * 1.1738E+0, 1.1431E+0, 1.1201E+0, 1.0879E+0, 1.0668E+0, 1.0521E+0,
     * 1.0415E+0, 1.0337E+0, 1.0253E+0, 1.0182E+0, 2.6250E+0, 2.0586E+0,
     * 1.8281E+0, 1.7424E+0, 1.6533E+0, 1.6072E+0, 1.5774E+0, 1.5582E+0,
     * 1.5380E+0, 1.5273E+0, 1.5231E+0, 1.5210E+0, 1.5190E+0, 1.4289E+0,
     * 1.3631E+0, 1.2726E+0, 1.2143E+0, 1.1739E+0, 1.1442E+0, 1.1216E+0,
     * 1.0895E+0, 1.0682E+0, 1.0532E+0, 1.0424E+0, 1.0343E+0, 1.0257E+0,
     * 1.0185E+0, 2.4102E+0, 1.9363E+0, 1.7319E+0, 1.6643E+0, 1.5911E+0,
     * 1.5526E+0, 1.5274E+0, 1.5115E+0, 1.4944E+0, 1.4853E+0, 1.4817E+0,
     * 1.4800E+0, 1.4782E+0, 1.4014E+0, 1.3444E+0, 1.2645E+0/
      DATA X3101/ 1.2114E+0, 1.1735E+0, 1.1451E+0, 1.1230E+0, 1.0911E+0,
     * 1.0695E+0, 1.0543E+0, 1.0432E+0, 1.0349E+0, 1.0260E+0, 1.0187E+0,
     * 2.1924E+0, 1.8098E+0, 1.6436E+0, 1.5886E+0, 1.5290E+0, 1.4977E+0,
     * 1.4771E+0, 1.4641E+0, 1.4502E+0, 1.4428E+0, 1.4399E+0, 1.4384E+0,
     * 1.4370E+0, 1.3736E+0, 1.3256E+0, 1.2563E+0, 1.2084E+0, 1.1730E+0,
     * 1.1457E+0, 1.1241E+0, 1.0923E+0, 1.0704E+0, 1.0549E+0, 1.0436E+0,
     * 1.0351E+0, 1.0261E+0, 1.0186E+0, 2.0618E+0, 1.7356E+0, 1.5930E+0,
     * 1.5456E+0, 1.4942E+0, 1.4671E+0, 1.4492E+0, 1.4379E+0, 1.4258E+0,
     * 1.4193E+0, 1.4168E+0, 1.4155E+0, 1.4143E+0, 1.3584E+0, 1.3155E+0,
     * 1.2520E+0, 1.2067E+0, 1.1726E+0, 1.1459E+0, 1.1245E+0, 1.0927E+0,
     * 1.0707E+0, 1.0550E+0, 1.0436E+0, 1.0351E+0, 1.0260E+0, 1.0184E+0,
     * 1.9272E+0, 1.6543E+0, 1.5355E+0, 1.4962E+0, 1.4538E+0, 1.4314E+0,
     * 1.4167E+0, 1.4074E+0, 1.3974E+0, 1.3921E+0, 1.3900E+0, 1.3889E+0,
     * 1.3879E+0, 1.3410E+0, 1.3039E+0, 1.2471E+0, 1.2050E+0, 1.1722E+0,
     * 1.1461E+0, 1.1248E+0, 1.0929E+0, 1.0707E+0, 1.0549E+0, 1.0433E+0,
     * 1.0347E+0, 1.0255E+0, 1.0180E+0, 1.8139E+0, 1.5893E+0, 1.4916E+0,
     * 1.4591E+0, 1.4240E+0, 1.4055E+0, 1.3933E+0, 1.3856E+0/
      DATA X3201/ 1.3772E+0, 1.3727E+0, 1.3710E+0, 1.3701E+0, 1.3692E+0,
     * 1.3289E+0, 1.2962E+0, 1.2440E+0, 1.2039E+0, 1.1719E+0, 1.1460E+0,
     * 1.1248E+0, 1.0927E+0, 1.0703E+0, 1.0543E+0, 1.0427E+0, 1.0340E+0,
     * 1.0249E+0, 1.0173E+0, 1.7108E+0, 1.5331E+0, 1.4551E+0, 1.4291E+0,
     * 1.4008E+0, 1.3858E+0, 1.3758E+0, 1.3693E+0, 1.3624E+0, 1.3586E+0,
     * 1.3571E+0, 1.3563E+0, 1.3556E+0, 1.3207E+0, 1.2913E+0, 1.2424E+0,
     * 1.2033E+0, 1.1715E+0, 1.1455E+0, 1.1240E+0, 1.0915E+0, 1.0689E+0,
     * 1.0528E+0, 1.0411E+0, 1.0326E+0, 1.0235E+0, 1.0161E+0, 1.6828E+0,
     * 1.5174E+0, 1.4454E+0, 1.4216E+0, 1.3958E+0, 1.3819E+0, 1.3726E+0,
     * 1.3666E+0, 1.3600E+0, 1.3564E+0, 1.3550E+0, 1.3543E+0, 1.3536E+0,
     * 1.3201E+0, 1.2913E+0, 1.2426E+0, 1.2032E+0, 1.1710E+0, 1.1446E+0,
     * 1.1229E+0, 1.0901E+0, 1.0673E+0, 1.0512E+0, 1.0396E+0, 1.0311E+0,
     * 1.0222E+0, 1.0150E+0, 1.7121E+0, 1.5339E+0, 1.4590E+0, 1.4348E+0,
     * 1.4082E+0, 1.3938E+0, 1.3840E+0, 1.3776E+0, 1.3706E+0, 1.3668E+0,
     * 1.3653E+0, 1.3646E+0, 1.3638E+0, 1.3281E+0, 1.2971E+0, 1.2448E+0,
     * 1.2027E+0, 1.1687E+0, 1.1411E+0, 1.1186E+0, 1.0851E+0, 1.0624E+0,
     * 1.0465E+0, 1.0353E+0, 1.0272E+0, 1.0188E+0, 1.0122E+0/
      DATA X3301/ 1.8658E+0, 1.6145E+0, 1.5584E+0, 1.5035E+0, 1.4301E+0,
     * 1.4319E+0, 1.4988E+0, 1.6007E+0, 1.5415E+0, 2.6410E+0,-7.3050E-1,
     *-7.8788E-1,-6.3659E-1, 1.3487E+0, 1.3087E+0, 1.2442E+0, 1.1952E+0,
     * 1.1573E+0, 1.1277E+0, 1.1044E+0, 1.0709E+0, 1.0491E+0, 1.0346E+0,
     * 1.0246E+0, 1.0176E+0, 1.0107E+0, 1.0056E+0, 1.9071E+0, 1.6329E+0,
     * 1.5698E+0, 1.5128E+0, 1.4373E+0, 1.4380E+0, 1.5042E+0, 1.6057E+0,
     * 1.5461E+0, 2.6453E+0,-7.2626E-1,-7.8368E-1,-6.3243E-1, 1.3508E+0,
     * 1.3093E+0, 1.2430E+0, 1.1931E+0, 1.1547E+0, 1.1249E+0, 1.1015E+0,
     * 1.0682E+0, 1.0467E+0, 1.0324E+0, 1.0227E+0, 1.0160E+0, 1.0094E+0,
     * 1.0045E+0, 1.9407E+0, 1.6475E+0, 1.5786E+0, 1.5200E+0, 1.4428E+0,
     * 1.4426E+0, 1.5083E+0, 1.6095E+0, 1.5494E+0, 2.6485E+0,-7.2314E-1,
     *-7.8060E-1,-6.2939E-1, 1.3522E+0, 1.3096E+0, 1.2418E+0, 1.1911E+0,
     * 1.1524E+0, 1.1225E+0, 1.0991E+0, 1.0660E+0, 1.0447E+0, 1.0306E+0,
     * 1.0212E+0, 1.0146E+0, 1.0082E+0, 1.0036E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0/
      DATA X3401/ 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0042E+0, 1.0027E+0, 1.0021E+0,
     * 1.0020E+0, 1.0018E+0, 1.0017E+0, 1.0016E+0, 1.0016E+0, 1.0015E+0,
     * 1.0015E+0, 1.0015E+0, 1.0015E+0, 1.0015E+0, 1.0013E+0, 1.0011E+0,
     * 1.0009E+0, 1.0007E+0, 1.0005E+0, 1.0004E+0, 1.0004E+0, 1.0003E+0,
     * 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0635E+0, 1.0384E+0, 1.0301E+0, 1.0275E+0, 1.0248E+0, 1.0234E+0,
     * 1.0225E+0, 1.0219E+0, 1.0212E+0, 1.0209E+0, 1.0208E+0, 1.0207E+0,
     * 1.0206E+0, 1.0176E+0, 1.0151E+0, 1.0115E+0, 1.0090E+0, 1.0072E+0,
     * 1.0058E+0, 1.0048E+0, 1.0034E+0, 1.0025E+0, 1.0019E+0, 1.0015E+0,
     * 1.0012E+0, 1.0009E+0, 1.0007E+0, 1.3800E+0, 1.2146E+0, 1.1551E+0,
     * 1.1384E+0, 1.1216E+0, 1.1131E+0, 1.1076E+0, 1.1041E+0, 1.1004E+0,
     * 1.0984E+0, 1.0976E+0, 1.0973E+0, 1.0969E+0, 1.0800E+0, 1.0672E+0,
     * 1.0491E+0, 1.0372E+0, 1.0290E+0, 1.0231E+0, 1.0188E+0, 1.0130E+0,
     * 1.0094E+0, 1.0070E+0, 1.0054E+0, 1.0043E+0, 1.0031E+0, 1.0022E+0,
     * 2.2519E+0, 1.6399E+0, 1.4182E+0, 1.3559E+0, 1.2981E+0, 1.2707E+0,
     * 1.2536E+0, 1.2431E+0, 1.2321E+0, 1.2263E+0, 1.2240E+0/
      DATA X3501/ 1.2229E+0, 1.2218E+0, 1.1746E+0, 1.1415E+0, 1.0980E+0,
     * 1.0715E+0, 1.0542E+0, 1.0422E+0, 1.0337E+0, 1.0226E+0, 1.0160E+0,
     * 1.0118E+0, 1.0090E+0, 1.0070E+0, 1.0050E+0, 1.0035E+0, 3.2866E+0,
     * 2.1284E+0, 1.7014E+0, 1.5792E+0, 1.4635E+0, 1.4120E+0, 1.3809E+0,
     * 1.3622E+0, 1.3428E+0, 1.3327E+0, 1.3288E+0, 1.3269E+0, 1.3250E+0,
     * 1.2465E+0, 1.1946E+0, 1.1300E+0, 1.0926E+0, 1.0690E+0, 1.0531E+0,
     * 1.0420E+0, 1.0277E+0, 1.0194E+0, 1.0142E+0, 1.0107E+0, 1.0083E+0,
     * 1.0059E+0, 1.0041E+0, 7.3044E+0, 3.8582E+0, 2.6017E+0, 2.2458E+0,
     * 1.9131E+0, 1.7676E+0, 1.6869E+0, 1.6406E+0, 1.5945E+0, 1.5711E+0,
     * 1.5622E+0, 1.5579E+0, 1.5535E+0, 1.3888E+0, 1.2918E+0, 1.1830E+0,
     * 1.1255E+0, 1.0911E+0, 1.0688E+0, 1.0536E+0, 1.0347E+0, 1.0239E+0,
     * 1.0173E+0, 1.0129E+0, 1.0099E+0, 1.0070E+0, 1.0048E+0, 1.4818E+1,
     * 6.9706E+0, 4.1211E+0, 3.3180E+0, 2.5709E+0, 2.2465E+0, 2.0681E+0,
     * 1.9724E+0, 1.8812E+0, 1.8367E+0, 1.8200E+0, 1.8118E+0, 1.8038E+0,
     * 1.5211E+0, 1.3736E+0, 1.2225E+0, 1.1483E+0, 1.1058E+0, 1.0790E+0,
     * 1.0610E+0, 1.0390E+0, 1.0267E+0, 1.0192E+0, 1.0143E+0, 1.0110E+0,
     * 1.0077E+0, 1.0053E+0, 3.5525E+1, 1.5256E+1, 7.9488E+0/
      DATA X3601/ 5.9051E+0, 4.0201E+0, 3.2124E+0, 2.7746E+0, 2.5436E+0,
     * 2.3419E+0, 2.2492E+0, 2.2153E+0, 2.1989E+0, 2.1830E+0, 1.6827E+0,
     * 1.4626E+0, 1.2607E+0, 1.1692E+0, 1.1189E+0, 1.0879E+0, 1.0674E+0,
     * 1.0428E+0, 1.0292E+0, 1.0209E+0, 1.0156E+0, 1.0120E+0, 1.0085E+0,
     * 1.0058E+0, 7.7385E+1, 3.1818E+1, 1.5432E+1, 1.0861E+1, 6.6562E+0,
     * 4.8628E+0, 3.8954E+0, 3.3879E+0, 2.9482E+0, 2.7640E+0, 2.6991E+0,
     * 2.6682E+0, 2.6384E+0, 1.8270E+0, 1.5318E+0, 1.2867E+0, 1.1828E+0,
     * 1.1273E+0, 1.0937E+0, 1.0716E+0, 1.0454E+0, 1.0310E+0, 1.0222E+0,
     * 1.0166E+0, 1.0128E+0, 1.0091E+0, 1.0064E+0, 3.3109E+2, 1.2890E+2,
     * 5.7139E+1, 3.7398E+1, 1.9538E+1, 1.2117E+1, 8.2343E+0, 6.2695E+0,
     * 4.6553E+0, 4.0313E+0, 3.8362E+0, 3.7476E+0, 3.6641E+0, 2.0100E+0,
     * 1.6014E+0, 1.3087E+0, 1.1940E+0, 1.1346E+0, 1.0990E+0, 1.0759E+0,
     * 1.0483E+0, 1.0332E+0, 1.0241E+0, 1.0182E+0, 1.0142E+0, 1.0103E+0,
     * 1.0074E+0, 2.0953E+3, 7.8919E+2, 3.3118E+2, 2.0694E+2, 9.6340E+1,
     * 5.1609E+1, 2.8978E+1, 1.8004E+1, 9.5918E+0, 6.7177E+0, 5.9280E+0,
     * 5.6103E+0, 5.3314E+0, 2.0665E+0, 1.6035E+0, 1.3065E+0, 1.1943E+0,
     * 1.1361E+0, 1.1011E+0, 1.0782E+0, 1.0506E+0, 1.0353E+0/
      DATA X3701/ 1.0260E+0, 1.0200E+0, 1.0158E+0, 1.0118E+0, 1.0088E+0,
     * 8.8828E+3, 3.3098E+3, 1.3651E+3, 8.4051E+2, 3.7645E+2, 1.9086E+2,
     * 9.8318E+1, 5.4309E+1, 2.1707E+1, 1.1334E+1, 8.7314E+0, 7.7619E+0,
     * 7.0135E+0, 1.9953E+0, 1.5634E+0, 1.2934E+0, 1.1897E+0, 1.1349E+0,
     * 1.1014E+0, 1.0792E+0, 1.0521E+0, 1.0369E+0, 1.0276E+0, 1.0214E+0,
     * 1.0172E+0, 1.0131E+0, 1.0099E+0, 2.8922E+3, 1.1811E+3, 5.4849E+2,
     * 3.6679E+2, 1.9429E+2, 1.1712E+2, 7.3292E+1, 4.8976E+1, 2.6303E+1,
     * 1.5851E+1, 1.2098E+1, 1.0314E+1, 8.5908E+0, 1.9023E+0, 1.5227E+0,
     * 1.2813E+0, 1.1854E+0, 1.1336E+0, 1.1014E+0, 1.0798E+0, 1.0532E+0,
     * 1.0381E+0, 1.0287E+0, 1.0226E+0, 1.0183E+0, 1.0141E+0, 1.0109E+0,
     * 2.8147E+2, 1.3455E+2, 7.5623E+1, 5.7348E+1, 3.8644E+1, 2.9398E+1,
     * 2.3636E+1, 2.0147E+1, 1.6557E+1, 1.4717E+1, 1.4011E+1, 1.3665E+1,
     * 1.3324E+1, 1.7254E+0, 1.4527E+0, 1.2615E+0, 1.1786E+0, 1.1317E+0,
     * 1.1016E+0, 1.0810E+0, 1.0552E+0, 1.0402E+0, 1.0308E+0, 1.0246E+0,
     * 1.0203E+0, 1.0159E+0, 1.0126E+0, 1.6117E+2, 7.7447E+1, 4.3844E+1,
     * 3.3417E+1, 2.2740E+1, 1.7458E+1, 1.4165E+1, 1.2170E+1, 1.0117E+1,
     * 9.0636E+0, 8.6598E+0, 8.4617E+0, 8.2660E+0, 1.6041E+0/
      DATA X3801/ 1.3867E+0, 1.2489E+0, 1.1870E+0, 1.1487E+0, 1.1224E+0,
     * 1.1031E+0, 1.0774E+0, 1.0615E+0, 1.0509E+0, 1.0436E+0, 1.0383E+0,
     * 1.0327E+0, 1.0281E+0, 1.9508E+3, 7.9743E+2, 3.7087E+2, 2.4832E+2,
     * 1.3194E+2, 7.9842E+1, 5.0244E+1, 3.3813E+1, 1.8483E+1, 1.1410E+1,
     * 8.8697E+0, 7.6614E+0, 6.4943E+0, 1.6657E+0, 1.4131E+0, 1.2598E+0,
     * 1.1944E+0, 1.1548E+0, 1.1278E+0, 1.1081E+0, 1.0818E+0, 1.0655E+0,
     * 1.0546E+0, 1.0471E+0, 1.0416E+0, 1.0358E+0, 1.0309E+0, 1.2902E+3,
     * 5.2941E+2, 2.4764E+2, 1.6657E+2, 8.9453E+1, 5.4855E+1, 3.5153E+1,
     * 2.4189E+1, 1.3930E+1, 9.1797E+0, 7.4696E+0, 6.6552E+0, 5.8680E+0,
     * 1.6928E+0, 1.4262E+0, 1.2657E+0, 1.1984E+0, 1.1581E+0, 1.1306E+0,
     * 1.1107E+0, 1.0841E+0, 1.0676E+0, 1.0566E+0, 1.0489E+0, 1.0433E+0,
     * 1.0374E+0, 1.0324E+0, 1.9720E+3, 7.3969E+2, 3.0854E+2, 1.9185E+2,
     * 8.8252E+1, 4.6550E+1, 2.5582E+1, 1.5496E+1, 7.8734E+0, 5.3419E+0,
     * 4.6699E+0, 4.4069E+0, 4.1795E+0, 1.7651E+0, 1.4720E+0, 1.2897E+0,
     * 1.2154E+0, 1.1721E+0, 1.1430E+0, 1.1220E+0, 1.0941E+0, 1.0767E+0,
     * 1.0651E+0, 1.0569E+0, 1.0509E+0, 1.0444E+0, 1.0390E+0, 3.4946E+2,
     * 1.3429E+2, 5.8369E+1, 3.7628E+1, 1.9004E+1, 1.1364E+1/
      DATA X3901/ 7.4292E+0, 5.4762E+0, 3.9202E+0, 3.3490E+0, 3.1791E+0,
     * 3.1033E+0, 3.0326E+0, 1.7747E+0, 1.5053E+0, 1.3164E+0, 1.2367E+0,
     * 1.1904E+0, 1.1595E+0, 1.1373E+0, 1.1079E+0, 1.0894E+0, 1.0770E+0,
     * 1.0681E+0, 1.0616E+0, 1.0545E+0, 1.0483E+0, 8.4816E+1, 3.4019E+1,
     * 1.5948E+1, 1.0966E+1, 6.4451E+0, 4.5577E+0, 3.5647E+0, 3.0589E+0,
     * 2.6389E+0, 2.4739E+0, 2.4172E+0, 2.3906E+0, 2.3649E+0, 1.7224E+0,
     * 1.5111E+0, 1.3368E+0, 1.2569E+0, 1.2095E+0, 1.1776E+0, 1.1547E+0,
     * 1.1241E+0, 1.1047E+0, 1.0915E+0, 1.0820E+0, 1.0749E+0, 1.0670E+0,
     * 1.0602E+0, 3.3073E+1, 1.4385E+1, 7.5957E+0, 5.6812E+0, 3.8982E+0,
     * 3.1234E+0, 2.6967E+0, 2.4675E+0, 2.2626E+0, 2.1729E+0, 2.1407E+0,
     * 2.1254E+0, 2.1104E+0, 1.6771E+0, 1.5032E+0, 1.3444E+0, 1.2673E+0,
     * 1.2204E+0, 1.1886E+0, 1.1657E+0, 1.1347E+0, 1.1150E+0, 1.1014E+0,
     * 1.0916E+0, 1.0841E+0, 1.0758E+0, 1.0685E+0, 1.8523E+1, 8.2670E+0,
     * 4.6247E+0, 3.6226E+0, 2.7154E+0, 2.3381E+0, 2.1405E+0, 2.0403E+0,
     * 1.9484E+0, 1.9047E+0, 1.8884E+0, 1.8806E+0, 1.8728E+0, 1.6126E+0,
     * 1.4834E+0, 1.3493E+0, 1.2785E+0, 1.2340E+0, 1.2033E+0, 1.1808E+0,
     * 1.1501E+0, 1.1302E+0, 1.1163E+0, 1.1061E+0, 1.0982E+0/
      DATA X4001/ 1.0894E+0, 1.0814E+0, 9.2668E+0, 4.6342E+0, 2.9881E+0,
     * 2.5348E+0, 2.1241E+0, 1.9530E+0, 1.8633E+0, 1.8133E+0, 1.7644E+0,
     * 1.7400E+0, 1.7308E+0, 1.7262E+0, 1.7218E+0, 1.5555E+0, 1.4595E+0,
     * 1.3490E+0, 1.2862E+0, 1.2454E+0, 1.2166E+0, 1.1953E+0, 1.1656E+0,
     * 1.1459E+0, 1.1319E+0, 1.1215E+0, 1.1133E+0, 1.1040E+0, 1.0955E+0,
     * 4.5284E+0, 2.7426E+0, 2.1045E+0, 1.9277E+0, 1.7663E+0, 1.6983E+0,
     * 1.6582E+0, 1.6344E+0, 1.6098E+0, 1.5972E+0, 1.5923E+0, 1.5899E+0,
     * 1.5875E+0, 1.4902E+0, 1.4258E+0, 1.3435E+0, 1.2928E+0, 1.2584E+0,
     * 1.2334E+0, 1.2143E+0, 1.1872E+0, 1.1685E+0, 1.1549E+0, 1.1443E+0,
     * 1.1360E+0, 1.1262E+0, 1.1171E+0, 3.3102E+0, 2.2126E+0, 1.8305E+0,
     * 1.7277E+0, 1.6370E+0, 1.5953E+0, 1.5696E+0, 1.5539E+0, 1.5375E+0,
     * 1.5289E+0, 1.5255E+0, 1.5239E+0, 1.5222E+0, 1.4527E+0, 1.4038E+0,
     * 1.3380E+0, 1.2957E+0, 1.2662E+0, 1.2443E+0, 1.2274E+0, 1.2026E+0,
     * 1.1851E+0, 1.1719E+0, 1.1615E+0, 1.1532E+0, 1.1432E+0, 1.1337E+0,
     * 2.1125E+0, 1.6991E+0, 1.5571E+0, 1.5196E+0, 1.4823E+0, 1.4637E+0,
     * 1.4518E+0, 1.4444E+0, 1.4364E+0, 1.4322E+0, 1.4305E+0, 1.4297E+0,
     * 1.4289E+0, 1.3928E+0, 1.3656E+0, 1.3269E+0, 1.3005E+0/
      DATA X4101/ 1.2811E+0, 1.2662E+0, 1.2541E+0, 1.2352E+0, 1.2209E+0,
     * 1.2093E+0, 1.1998E+0, 1.1917E+0, 1.1818E+0, 1.1720E+0, 1.5372E+0,
     * 1.4099E+0, 1.3674E+0, 1.3623E+0, 1.3603E+0, 1.3513E+0, 1.3330E+0,
     * 1.3121E+0, 1.3184E+0, 1.1989E+0,-4.2716E-1,-2.5045E-1,-8.4234E-1,
     * 1.3330E+0, 1.3267E+0, 1.3181E+0, 1.3123E+0, 1.3078E+0, 1.3037E+0,
     * 1.2998E+0, 1.2920E+0, 1.2842E+0, 1.2766E+0, 1.2695E+0, 1.2630E+0,
     * 1.2542E+0, 1.2449E+0, 1.4883E+0, 1.3863E+0, 1.3514E+0, 1.3483E+0,
     * 1.3484E+0, 1.3407E+0, 1.3236E+0, 1.3036E+0, 1.3103E+0, 1.1939E+0,
     *-3.7702E-1,-2.0792E-1,-7.7307E-1, 1.3274E+0, 1.3233E+0, 1.3180E+0,
     * 1.3147E+0, 1.3120E+0, 1.3094E+0, 1.3066E+0, 1.3004E+0, 1.2936E+0,
     * 1.2868E+0, 1.2801E+0, 1.2738E+0, 1.2654E+0, 1.2563E+0, 1.4541E+0,
     * 1.3693E+0, 1.3398E+0, 1.3381E+0, 1.3396E+0, 1.3329E+0, 1.3167E+0,
     * 1.2975E+0, 1.3043E+0, 1.1902E+0,-3.4225E-1,-1.7829E-1,-7.2547E-1,
     * 1.3234E+0, 1.3208E+0, 1.3181E+0, 1.3167E+0, 1.3155E+0, 1.3140E+0,
     * 1.3121E+0, 1.3072E+0, 1.3013E+0, 1.2949E+0, 1.2886E+0, 1.2826E+0,
     * 1.2744E+0, 1.2655E+0, 9.9997E-1, 9.9998E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1/
      DATA X4201/ 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9729E-1, 9.9829E-1, 9.9866E-1, 9.9878E-1, 9.9891E-1,
     * 9.9898E-1, 9.9902E-1, 9.9905E-1, 9.9908E-1, 9.9910E-1, 9.9911E-1,
     * 9.9911E-1, 9.9912E-1, 9.9927E-1, 9.9940E-1, 9.9960E-1, 9.9975E-1,
     * 9.9986E-1, 9.9995E-1, 1.0000E+0, 1.0001E+0, 1.0002E+0, 1.0002E+0,
     * 1.0003E+0, 1.0003E+0, 1.0003E+0, 1.0003E+0, 9.6190E-1, 9.7675E-1,
     * 9.8203E-1, 9.8370E-1, 9.8549E-1, 9.8644E-1, 9.8708E-1, 9.8748E-1,
     * 9.8792E-1, 9.8816E-1, 9.8825E-1, 9.8830E-1, 9.8835E-1, 9.9050E-1,
     * 9.9224E-1, 9.9495E-1, 9.9692E-1, 9.9840E-1, 9.9953E-1, 1.0004E+0,
     * 1.0017E+0, 1.0026E+0, 1.0032E+0, 1.0036E+0, 1.0039E+0, 1.0043E+0,
     * 1.0046E+0, 8.1947E-1, 8.9321E-1, 9.2166E-1, 9.3018E-1, 9.3910E-1,
     * 9.4374E-1, 9.4678E-1, 9.4872E-1, 9.5080E-1, 9.5193E-1, 9.5237E-1,
     * 9.5259E-1, 9.5280E-1, 9.6271E-1, 9.7050E-1, 9.8216E-1, 9.9031E-1,
     * 9.9624E-1, 1.0007E+0, 1.0041E+0, 1.0088E+0, 1.0119E+0, 1.0140E+0,
     * 1.0155E+0, 1.0166E+0, 1.0177E+0, 1.0186E+0, 5.7239E-1/
      DATA X4301/ 7.5878E-1, 8.3185E-1, 8.5405E-1, 8.7634E-1, 8.8756E-1,
     * 8.9480E-1, 8.9933E-1, 9.0418E-1, 9.0677E-1, 9.0779E-1, 9.0829E-1,
     * 9.0879E-1, 9.3093E-1, 9.4764E-1, 9.7141E-1, 9.8720E-1, 9.9824E-1,
     * 1.0062E+0, 1.0122E+0, 1.0203E+0, 1.0254E+0, 1.0288E+0, 1.0310E+0,
     * 1.0326E+0, 1.0342E+0, 1.0354E+0, 3.6781E-1, 6.4942E-1, 7.6135E-1,
     * 7.9581E-1, 8.3082E-1, 8.4798E-1, 8.5888E-1, 8.6565E-1, 8.7284E-1,
     * 8.7665E-1, 8.7814E-1, 8.7888E-1, 8.7961E-1, 9.1151E-1, 9.3484E-1,
     * 9.6694E-1, 9.8754E-1, 1.0016E+0, 1.0116E+0, 1.0189E+0, 1.0287E+0,
     * 1.0347E+0, 1.0385E+0, 1.0411E+0, 1.0428E+0, 1.0445E+0, 1.0457E+0,
     *-1.4981E-1, 3.9410E-1, 6.0855E-1, 6.7402E-1, 7.4009E-1, 7.7218E-1,
     * 7.9188E-1, 8.0388E-1, 8.1641E-1, 8.2297E-1, 8.2551E-1, 8.2677E-1,
     * 8.2802E-1, 8.8044E-1, 9.1653E-1, 9.6330E-1, 9.9159E-1, 1.0101E+0,
     * 1.0228E+0, 1.0319E+0, 1.0437E+0, 1.0507E+0, 1.0550E+0, 1.0578E+0,
     * 1.0596E+0, 1.0613E+0, 1.0624E+0,-7.8394E-1, 9.6008E-2, 4.4020E-1,
     * 5.4457E-1, 6.4917E-1, 6.9954E-1, 7.3023E-1, 7.4845E-1, 7.6713E-1,
     * 7.7678E-1, 7.8050E-1, 7.8233E-1, 7.8415E-1, 8.5761E-1, 9.0531E-1,
     * 9.6392E-1, 9.9768E-1, 1.0190E+0, 1.0334E+0, 1.0435E+0/
      DATA X4401/ 1.0563E+0, 1.0637E+0, 1.0681E+0, 1.0709E+0, 1.0727E+0,
     * 1.0743E+0, 1.0752E+0,-1.9565E+0,-4.2485E-1, 1.6530E-1, 3.4187E-1,
     * 5.1664E-1, 5.9940E-1, 6.4908E-1, 6.7817E-1, 7.0705E-1, 7.2161E-1,
     * 7.2718E-1, 7.2990E-1, 7.3259E-1, 8.3577E-1, 8.9752E-1, 9.6859E-1,
     * 1.0073E+0, 1.0310E+0, 1.0466E+0, 1.0573E+0, 1.0707E+0, 1.0782E+0,
     * 1.0826E+0, 1.0853E+0, 1.0869E+0, 1.0883E+0, 1.0891E+0,-3.6462E+0,
     *-1.1513E+0,-2.0078E-1, 8.0704E-2, 3.5626E-1, 4.8498E-1, 5.6121E-1,
     * 6.0532E-1, 6.4852E-1, 6.6959E-1, 6.7751E-1, 6.8138E-1, 6.8518E-1,
     * 8.2156E-1, 8.9603E-1, 9.7647E-1, 1.0182E+0, 1.0431E+0, 1.0591E+0,
     * 1.0701E+0, 1.0835E+0, 1.0908E+0, 1.0951E+0, 1.0976E+0, 1.0992E+0,
     * 1.1004E+0, 1.1009E+0,-1.0035E+1,-3.7329E+0,-1.3972E+0,-7.2498E-1,
     *-8.5388E-2, 2.0195E-1, 3.6572E-1, 4.5692E-1, 5.4235E-1, 5.8196E-1,
     * 5.9623E-1, 6.0308E-1, 6.0974E-1, 8.1439E-1, 9.0647E-1, 9.9573E-1,
     * 1.0389E+0, 1.0638E+0, 1.0796E+0, 1.0902E+0, 1.1030E+0, 1.1098E+0,
     * 1.1137E+0, 1.1160E+0, 1.1174E+0, 1.1184E+0, 1.1187E+0,-3.5008E+1,
     *-1.3363E+1,-5.5698E+0,-3.3945E+0,-1.3901E+0,-5.3345E-1,-7.0465E-2,
     * 1.7316E-1, 3.8507E-1, 4.7432E-1, 5.0433E-1, 5.1811E-1/
      DATA X4501/ 5.3119E-1, 8.3479E-1, 9.3597E-1, 1.0235E+0, 1.0636E+0,
     * 1.0865E+0, 1.1010E+0, 1.1107E+0, 1.1223E+0, 1.1285E+0, 1.1320E+0,
     * 1.1340E+0, 1.1352E+0, 1.1361E+0, 1.1364E+0,-9.8949E+1,-3.7523E+1,
     *-1.5729E+1,-9.7378E+0,-4.3210E+0,-2.0725E+0,-8.9714E-1,-3.0357E-1,
     * 1.8277E-1, 3.7003E-1, 4.2834E-1, 4.5394E-1, 4.7717E-1, 8.6898E-1,
     * 9.6620E-1, 1.0451E+0, 1.0811E+0, 1.1018E+0, 1.1150E+0, 1.1239E+0,
     * 1.1346E+0, 1.1404E+0, 1.1437E+0, 1.1456E+0, 1.1467E+0, 1.1476E+0,
     * 1.1480E+0,-5.3699E+1,-2.1949E+1,-1.0069E+1,-6.6158E+0,-3.2954E+0,
     *-1.7829E+0,-9.0837E-1,-4.1410E-1, 5.7066E-2, 2.7999E-1, 3.6139E-1,
     * 4.0042E-1, 4.3835E-1, 9.0118E-1, 9.8964E-1, 1.0598E+0, 1.0924E+0,
     * 1.1115E+0, 1.1239E+0, 1.1323E+0, 1.1425E+0, 1.1480E+0, 1.1511E+0,
     * 1.1530E+0, 1.1541E+0, 1.1551E+0, 1.1556E+0,-1.2572E+1,-5.5343E+0,
     *-2.6922E+0,-1.8057E+0,-8.9357E-1,-4.3982E-1,-1.5554E-1, 1.7413E-2,
     * 1.9615E-1, 2.8821E-1, 3.2358E-1, 3.4096E-1, 3.5813E-1, 9.5924E-1,
     * 1.0259E+0, 1.0807E+0, 1.1082E+0, 1.1250E+0, 1.1362E+0, 1.1439E+0,
     * 1.1534E+0, 1.1587E+0, 1.1618E+0, 1.1637E+0, 1.1649E+0, 1.1659E+0,
     * 1.1667E+0,-1.0812E+1,-4.7221E+0,-2.2546E+0,-1.4827E+0/
      DATA X4601/-6.8631E-1,-2.8888E-1,-3.9237E-2, 1.1299E-1, 2.7067E-1,
     * 3.5205E-1, 3.8337E-1, 3.9875E-1, 4.1397E-1, 9.5438E-1, 1.0360E+0,
     * 1.1015E+0, 1.1333E+0, 1.1525E+0, 1.1655E+0, 1.1748E+0, 1.1871E+0,
     * 1.1948E+0, 1.2002E+0, 1.2042E+0, 1.2074E+0, 1.2110E+0, 1.2146E+0,
     *-5.0983E+1,-2.0847E+1,-9.5588E+0,-6.2737E+0,-3.1119E+0,-1.6694E+0,
     *-8.3403E-1,-3.6119E-1, 9.0347E-2, 3.0442E-1, 3.8269E-1, 4.2025E-1,
     * 4.5676E-1, 9.2505E-1, 1.0188E+0, 1.0940E+0, 1.1293E+0, 1.1504E+0,
     * 1.1645E+0, 1.1745E+0, 1.1878E+0, 1.1963E+0, 1.2023E+0, 1.2067E+0,
     * 1.2103E+0, 1.2145E+0, 1.2185E+0,-3.9119E+1,-1.6007E+1,-7.3175E+0,
     *-4.7795E+0,-2.3273E+0,-1.2026E+0,-5.4788E-1,-1.7541E-1, 1.8242E-1,
     * 3.5322E-1, 4.1595E-1, 4.4611E-1, 4.7546E-1, 9.1209E-1, 1.0103E+0,
     * 1.0899E+0, 1.1270E+0, 1.1490E+0, 1.1636E+0, 1.1740E+0, 1.1879E+0,
     * 1.1967E+0, 1.2030E+0, 1.2078E+0, 1.2115E+0, 1.2160E+0, 1.2203E+0,
     *-4.3906E+1,-1.6730E+1,-6.9858E+0,-4.2766E+0,-1.7917E+0,-7.3787E-1,
     *-1.7285E-1, 1.2151E-1, 3.7406E-1, 4.7836E-1, 5.1288E-1, 5.2860E-1,
     * 5.4344E-1, 8.7393E-1, 9.8038E-1, 1.0726E+0, 1.1158E+0, 1.1412E+0,
     * 1.1580E+0, 1.1701E+0, 1.1862E+0, 1.1967E+0, 1.2043E+0/
      DATA X4701/ 1.2100E+0, 1.2147E+0, 1.2202E+0, 1.2256E+0,-1.3905E+1,
     *-5.2285E+0,-2.0417E+0,-1.1331E+0,-2.7684E-1, 1.0213E-1, 3.1489E-1,
     * 4.3156E-1, 5.3873E-1, 5.8726E-1, 6.0447E-1, 6.1267E-1, 6.2063E-1,
     * 8.5451E-1, 9.5513E-1, 1.0519E+0, 1.0995E+0, 1.1281E+0, 1.1472E+0,
     * 1.1610E+0, 1.1798E+0, 1.1924E+0, 1.2016E+0, 1.2087E+0, 1.2144E+0,
     * 1.2214E+0, 1.2281E+0,-5.3240E+0,-1.8114E+0,-4.9072E-1,-1.0464E-1,
     * 2.6843E-1, 4.3965E-1, 5.3936E-1, 5.9611E-1, 6.5067E-1, 6.7673E-1,
     * 6.8645E-1, 6.9118E-1, 6.9581E-1, 8.5692E-1, 9.4174E-1, 1.0326E+0,
     * 1.0807E+0, 1.1106E+0, 1.1311E+0, 1.1463E+0, 1.1675E+0, 1.1820E+0,
     * 1.1928E+0, 1.2013E+0, 1.2082E+0, 1.2166E+0, 1.2248E+0,-2.7434E+0,
     *-7.6520E-1,-1.2207E-3, 2.2797E-1, 4.5518E-1, 5.6313E-1, 6.2806E-1,
     * 6.6619E-1, 7.0413E-1, 7.2295E-1, 7.3009E-1, 7.3358E-1, 7.3701E-1,
     * 8.6471E-1, 9.3826E-1, 1.0219E+0, 1.0683E+0, 1.0980E+0, 1.1189E+0,
     * 1.1345E+0, 1.1568E+0, 1.1723E+0, 1.1839E+0, 1.1931E+0, 1.2007E+0,
     * 1.2099E+0, 1.2189E+0,-1.4985E+0,-1.9215E-1, 3.0888E-1, 4.5804E-1,
     * 6.0489E-1, 6.7401E-1, 7.1524E-1, 7.3925E-1, 7.6355E-1, 7.7597E-1,
     * 7.8075E-1, 7.8310E-1, 7.8542E-1, 8.7752E-1, 9.3588E-1/
      DATA X4801/ 1.0074E+0, 1.0497E+0, 1.0780E+0, 1.0986E+0, 1.1143E+0,
     * 1.1373E+0, 1.1537E+0, 1.1663E+0, 1.1764E+0, 1.1846E+0, 1.1947E+0,
     * 1.2047E+0,-5.8209E-1, 2.1310E-1, 5.2042E-1, 6.1255E-1, 7.0392E-1,
     * 7.4732E-1, 7.7344E-1, 7.8917E-1, 8.0547E-1, 8.1395E-1, 8.1724E-1,
     * 8.1886E-1, 8.2047E-1, 8.8715E-1, 9.3247E-1, 9.9163E-1, 1.0289E+0,
     * 1.0548E+0, 1.0743E+0, 1.0896E+0, 1.1125E+0, 1.1294E+0, 1.1424E+0,
     * 1.1530E+0, 1.1617E+0, 1.1725E+0, 1.1831E+0, 9.9335E-2, 5.1821E-1,
     * 6.8127E-1, 7.3051E-1, 7.7967E-1, 8.0322E-1, 8.1803E-1, 8.2718E-1,
     * 8.3686E-1, 8.4197E-1, 8.4397E-1, 8.4495E-1, 8.4594E-1, 8.8842E-1,
     * 9.1948E-1, 9.6317E-1, 9.9288E-1, 1.0148E+0, 1.0320E+0, 1.0459E+0,
     * 1.0676E+0, 1.0841E+0, 1.0971E+0, 1.1079E+0, 1.1168E+0, 1.1279E+0,
     * 1.1390E+0, 3.4435E-1, 6.2884E-1, 7.3762E-1, 7.6991E-1, 8.0163E-1,
     * 8.1739E-1, 8.2748E-1, 8.3379E-1, 8.4053E-1, 8.4412E-1, 8.4553E-1,
     * 8.4623E-1, 8.4692E-1, 8.7763E-1, 9.0102E-1, 9.3548E-1, 9.6012E-1,
     * 9.7902E-1, 9.9422E-1, 1.0069E+0, 1.0270E+0, 1.0427E+0, 1.0552E+0,
     * 1.0657E+0, 1.0745E+0, 1.0854E+0, 1.0964E+0, 5.9770E-1, 7.1204E-1,
     * 7.5521E-1, 7.6788E-1, 7.8110E-1, 7.8799E-1, 7.9253E-1/
      DATA X4901/ 7.9542E-1, 7.9856E-1, 8.0024E-1, 8.0091E-1, 8.0124E-1,
     * 8.0157E-1, 8.1672E-1, 8.2910E-1, 8.4895E-1, 8.6451E-1, 8.7731E-1,
     * 8.8818E-1, 8.9761E-1, 9.1332E-1, 9.2601E-1, 9.3653E-1, 9.4542E-1,
     * 9.5304E-1, 9.6263E-1, 9.7242E-1, 5.3892E-1, 5.5723E-1, 5.6381E-1,
     * 5.6599E-1, 5.6842E-1, 5.6977E-1, 5.7068E-1, 5.7128E-1, 5.7194E-1,
     * 5.7230E-1, 5.7300E-1, 5.7330E-1, 5.7530E-1, 5.7605E-1, 5.7918E-1,
     * 5.8484E-1, 5.8991E-1, 5.9452E-1, 5.9875E-1, 6.0265E-1, 6.0958E-1,
     * 6.1554E-1, 6.2071E-1, 6.2522E-1, 6.2919E-1, 6.3431E-1, 6.3967E-1,
     * 4.9869E-1, 5.1109E-1, 5.1568E-1, 5.1722E-1, 5.1896E-1, 5.1993E-1,
     * 5.2060E-1, 5.2103E-1, 5.2152E-1, 5.2178E-1, 5.2200E-1, 5.2300E-1,
     * 5.2400E-1, 5.2456E-1, 5.2692E-1, 5.3127E-1, 5.3526E-1, 5.3895E-1,
     * 5.4238E-1, 5.4556E-1, 5.5129E-1, 5.5627E-1, 5.6062E-1, 5.6444E-1,
     * 5.6781E-1, 5.7218E-1, 5.7677E-1, 4.6117E-1, 4.6987E-1, 4.7315E-1,
     * 4.7427E-1, 4.7555E-1, 4.7626E-1, 4.7676E-1, 4.7708E-1, 4.7744E-1,
     * 4.7764E-1, 4.7800E-1, 4.7850E-1, 4.7900E-1, 4.7975E-1, 4.8157E-1,
     * 4.8499E-1, 4.8819E-1, 4.9119E-1, 4.9401E-1, 4.9666E-1, 5.0146E-1,
     * 5.0568E-1, 5.0939E-1, 5.1266E-1, 5.1556E-1, 5.1932E-1/
      DATA X5001/ 5.2330E-1, 1.1449E-4, 1.3113E-4, 1.4024E-4, 1.4372E-4,
     * 1.4789E-4, 1.5031E-4, 1.5201E-4, 1.5314E-4, 1.5441E-4, 1.5511E-4,
     * 1.5540E-4, 1.5554E-4, 1.5568E-4, 1.6276E-4, 1.6958E-4, 1.8284E-4,
     * 1.9559E-4, 2.0787E-4, 2.1970E-4, 2.3114E-4, 2.5297E-4, 2.7371E-4,
     * 2.9368E-4, 3.1318E-4, 3.3248E-4, 3.5765E-4, 3.8948E-4, 1.1458E-4,
     * 1.3121E-4, 1.4032E-4, 1.4380E-4, 1.4797E-4, 1.5039E-4, 1.5210E-4,
     * 1.5323E-4, 1.5450E-4, 1.5520E-4, 1.5548E-4, 1.5562E-4, 1.5576E-4,
     * 1.6285E-4, 1.6967E-4, 1.8292E-4, 1.9567E-4, 2.0795E-4, 2.1979E-4,
     * 2.3122E-4, 2.5306E-4, 2.7380E-4, 2.9377E-4, 3.1326E-4, 3.3256E-4,
     * 3.5774E-4, 3.8956E-4, 1.1569E-4, 1.3232E-4, 1.4143E-4, 1.4491E-4,
     * 1.4908E-4, 1.5150E-4, 1.5321E-4, 1.5434E-4, 1.5561E-4, 1.5631E-4,
     * 1.5659E-4, 1.5673E-4, 1.5687E-4, 1.6396E-4, 1.7078E-4, 1.8403E-4,
     * 1.9678E-4, 2.0906E-4, 2.2090E-4, 2.3233E-4, 2.5417E-4, 2.7491E-4,
     * 2.9488E-4, 3.1437E-4, 3.3367E-4, 3.5885E-4, 3.9068E-4, 1.2019E-4,
     * 1.3687E-4, 1.4598E-4, 1.4946E-4, 1.5363E-4, 1.5605E-4, 1.5776E-4,
     * 1.5889E-4, 1.6016E-4, 1.6086E-4, 1.6114E-4, 1.6128E-4, 1.6142E-4,
     * 1.6851E-4, 1.7533E-4, 1.8858E-4, 2.0133E-4, 2.1361E-4/
      DATA X5101/ 2.2545E-4, 2.3688E-4, 2.5872E-4, 2.7946E-4, 2.9943E-4,
     * 3.1892E-4, 3.3822E-4, 3.6340E-4, 3.9522E-4, 1.2730E-4, 1.4400E-4,
     * 1.5312E-4, 1.5660E-4, 1.6077E-4, 1.6319E-4, 1.6489E-4, 1.6602E-4,
     * 1.6729E-4, 1.6800E-4, 1.6828E-4, 1.6842E-4, 1.6856E-4, 1.7564E-4,
     * 1.8246E-4, 1.9572E-4, 2.0847E-4, 2.2075E-4, 2.3258E-4, 2.4402E-4,
     * 2.6585E-4, 2.8659E-4, 3.0656E-4, 3.2606E-4, 3.4536E-4, 3.7053E-4,
     * 4.0236E-4, 1.3265E-4, 1.4937E-4, 1.5849E-4, 1.6197E-4, 1.6614E-4,
     * 1.6856E-4, 1.7027E-4, 1.7140E-4, 1.7266E-4, 1.7337E-4, 1.7365E-4,
     * 1.7379E-4, 1.7393E-4, 1.8102E-4, 1.8783E-4, 2.0109E-4, 2.1384E-4,
     * 2.2612E-4, 2.3796E-4, 2.4939E-4, 2.7123E-4, 2.9196E-4, 3.1193E-4,
     * 3.3143E-4, 3.5073E-4, 3.7591E-4, 4.0773E-4, 1.4295E-4, 1.5968E-4,
     * 1.6882E-4, 1.7230E-4, 1.7647E-4, 1.7889E-4, 1.8060E-4, 1.8173E-4,
     * 1.8299E-4, 1.8370E-4, 1.8398E-4, 1.8412E-4, 1.8426E-4, 1.9135E-4,
     * 1.9816E-4, 2.1142E-4, 2.2417E-4, 2.3645E-4, 2.4829E-4, 2.5972E-4,
     * 2.8156E-4, 3.0229E-4, 3.2226E-4, 3.4176E-4, 3.6106E-4, 3.8624E-4,
     * 4.1806E-4, 1.5247E-4, 1.6910E-4, 1.7821E-4, 1.8169E-4, 1.8586E-4,
     * 1.8829E-4, 1.8999E-4, 1.9112E-4, 1.9239E-4, 1.9309E-4/
      DATA X5201/ 1.9337E-4, 1.9351E-4, 1.9365E-4, 2.0074E-4, 2.0756E-4,
     * 2.2081E-4, 2.3357E-4, 2.4584E-4, 2.5768E-4, 2.6912E-4, 2.9095E-4,
     * 3.1169E-4, 3.3166E-4, 3.5116E-4, 3.7045E-4, 3.9563E-4, 4.2746E-4,
     * 1.6385E-4, 1.8076E-4, 1.8984E-4, 1.9332E-4, 1.9750E-4, 1.9992E-4,
     * 2.0162E-4, 2.0275E-4, 2.0402E-4, 2.0473E-4, 2.0501E-4, 2.0515E-4,
     * 2.0529E-4, 2.1237E-4, 2.1919E-4, 2.3245E-4, 2.4520E-4, 2.5748E-4,
     * 2.6931E-4, 2.8075E-4, 3.0258E-4, 3.2332E-4, 3.4329E-4, 3.6279E-4,
     * 3.8209E-4, 4.0727E-4, 4.3909E-4, 1.7524E-4, 1.9205E-4, 2.0109E-4,
     * 2.0459E-4, 2.0875E-4, 2.1119E-4, 2.1289E-4, 2.1402E-4, 2.1529E-4,
     * 2.1599E-4, 2.1627E-4, 2.1641E-4, 2.1655E-4, 2.2364E-4, 2.3046E-4,
     * 2.4371E-4, 2.5646E-4, 2.6874E-4, 2.8058E-4, 2.9201E-4, 3.1385E-4,
     * 3.3459E-4, 3.5455E-4, 3.7405E-4, 3.9335E-4, 4.1853E-4, 4.5035E-4,
     * 1.9455E-4, 2.1112E-4, 2.2030E-4, 2.2388E-4, 2.2793E-4, 2.3036E-4,
     * 2.3207E-4, 2.3320E-4, 2.3446E-4, 2.3517E-4, 2.3545E-4, 2.3559E-4,
     * 2.3573E-4, 2.4282E-4, 2.4963E-4, 2.6289E-4, 2.7564E-4, 2.8792E-4,
     * 2.9976E-4, 3.1119E-4, 3.3303E-4, 3.5376E-4, 3.7373E-4, 3.9323E-4,
     * 4.1253E-4, 4.3771E-4, 4.6953E-4, 2.0790E-4, 2.2888E-4/
      DATA X5301/ 2.4241E-4, 2.4521E-4, 2.4968E-4, 2.5225E-4, 2.5401E-4,
     * 2.5512E-4, 2.5640E-4, 2.5711E-4, 2.5739E-4, 2.5753E-4, 2.5767E-4,
     * 2.6476E-4, 2.7157E-4, 2.8483E-4, 2.9758E-4, 3.0986E-4, 3.2170E-4,
     * 3.3313E-4, 3.5497E-4, 3.7570E-4, 3.9567E-4, 4.1517E-4, 4.3447E-4,
     * 4.5965E-4, 4.9147E-4, 2.4700E-4, 2.4700E-4, 2.5654E-4, 2.6137E-4,
     * 2.6560E-4, 2.6822E-4, 2.6995E-4, 2.7132E-4, 2.7254E-4, 2.7325E-4,
     * 2.7353E-4, 2.7367E-4, 2.7381E-4, 2.8090E-4, 2.8772E-4, 3.0097E-4,
     * 3.1373E-4, 3.2600E-4, 3.3784E-4, 3.4928E-4, 3.7111E-4, 3.9185E-4,
     * 4.1182E-4, 4.3132E-4, 4.5061E-4, 4.7579E-4, 5.0762E-4, 2.4411E-4,
     * 2.6078E-4, 2.6990E-4, 2.7331E-4, 2.7747E-4, 2.7988E-4, 2.8158E-4,
     * 2.8271E-4, 2.8397E-4, 2.8468E-4, 2.8496E-4, 2.8510E-4, 2.8524E-4,
     * 2.9232E-4, 2.9914E-4, 3.1240E-4, 3.2515E-4, 3.3743E-4, 3.4926E-4,
     * 3.6070E-4, 3.8253E-4, 4.0327E-4, 4.2324E-4, 4.4274E-4, 4.6204E-4,
     * 4.8721E-4, 5.1904E-4, 2.6197E-4, 2.7875E-4, 2.8789E-4, 2.9138E-4,
     * 2.9555E-4, 2.9797E-4, 2.9968E-4, 3.0081E-4, 3.0207E-4, 3.0278E-4,
     * 3.0306E-4, 3.0320E-4, 3.0334E-4, 3.1043E-4, 3.1725E-4, 3.3050E-4,
     * 3.4325E-4, 3.5553E-4, 3.6737E-4, 3.7880E-4, 4.0064E-4/
      DATA X5401/ 4.2138E-4, 4.4135E-4, 4.6084E-4, 4.8014E-4, 5.0532E-4,
     * 5.3714E-4, 3.7659E-4, 3.9338E-4, 4.0252E-4, 4.0600E-4, 4.1017E-4,
     * 4.1260E-4, 4.1430E-4, 4.1543E-4, 4.1670E-4, 4.1740E-4, 4.1768E-4,
     * 4.1783E-4, 4.1797E-4, 4.2505E-4, 4.3187E-4, 4.4513E-4, 4.5788E-4,
     * 4.7016E-4, 4.8199E-4, 4.9343E-4, 5.1526E-4, 5.3600E-4, 5.5597E-4,
     * 5.7547E-4, 5.9477E-4, 6.1994E-4, 6.5177E-4, 3.9279E-4, 4.0970E-4,
     * 4.1888E-4, 4.2232E-4, 4.2650E-4, 4.2893E-4, 4.3063E-4, 4.3176E-4,
     * 4.3303E-4, 4.3373E-4, 4.3401E-4, 4.3415E-4, 4.3429E-4, 4.4138E-4,
     * 4.4820E-4, 4.6145E-4, 4.7421E-4, 4.8649E-4, 4.9832E-4, 5.0976E-4,
     * 5.3159E-4, 5.5233E-4, 5.7230E-4, 5.9180E-4, 6.1110E-4, 6.3627E-4,
     * 6.6810E-4, 4.0109E-4, 4.1804E-4, 4.2722E-4, 4.3063E-4, 4.3483E-4,
     * 4.3725E-4, 4.3896E-4, 4.4009E-4, 4.4136E-4, 4.4206E-4, 4.4234E-4,
     * 4.4248E-4, 4.4262E-4, 4.4971E-4, 4.5653E-4, 4.6978E-4, 4.8254E-4,
     * 4.9481E-4, 5.0665E-4, 5.1809E-4, 5.3992E-4, 5.6066E-4, 5.8063E-4,
     * 6.0013E-4, 6.1942E-4, 6.4460E-4, 6.7643E-4, 4.3869E-4, 4.4918E-4,
     * 4.6253E-4, 4.6539E-4, 4.6933E-4, 4.7171E-4, 4.7350E-4, 4.7453E-4,
     * 4.7581E-4, 4.7652E-4, 4.7680E-4, 4.7694E-4, 4.7708E-4/
      DATA X5501/ 4.8416E-4, 4.9098E-4, 5.0424E-4, 5.1699E-4, 5.2927E-4,
     * 5.4111E-4, 5.5254E-4, 5.7437E-4, 5.9511E-4, 6.1508E-4, 6.3458E-4,
     * 6.5388E-4, 6.7906E-4, 7.1088E-4, 4.7970E-4, 4.9859E-4, 5.0759E-4,
     * 5.1099E-4, 5.1510E-4, 5.1755E-4, 5.1926E-4, 5.2040E-4, 5.2166E-4,
     * 5.2237E-4, 5.2265E-4, 5.2279E-4, 5.2293E-4, 5.3001E-4, 5.3683E-4,
     * 5.5009E-4, 5.6284E-4, 5.7512E-4, 5.8696E-4, 5.9839E-4, 6.2022E-4,
     * 6.4096E-4, 6.6093E-4, 6.8043E-4, 6.9973E-4, 7.2491E-4, 7.5673E-4,
     * 5.3644E-4, 5.5313E-4, 5.6219E-4, 5.6573E-4, 5.6987E-4, 5.7231E-4,
     * 5.7401E-4, 5.7514E-4, 5.7641E-4, 5.7711E-4, 5.7739E-4, 5.7753E-4,
     * 5.7767E-4, 5.8476E-4, 5.9158E-4, 6.0483E-4, 6.1758E-4, 6.2986E-4,
     * 6.4170E-4, 6.5313E-4, 6.7497E-4, 6.9571E-4, 7.1568E-4, 7.3517E-4,
     * 7.5447E-4, 7.7965E-4, 8.1148E-4, 5.7423E-4, 5.9104E-4, 6.0004E-4,
     * 6.0355E-4, 6.0768E-4, 6.1012E-4, 6.1182E-4, 6.1295E-4, 6.1422E-4,
     * 6.1492E-4, 6.1520E-4, 6.1534E-4, 6.1548E-4, 6.2257E-4, 6.2939E-4,
     * 6.4264E-4, 6.5540E-4, 6.6768E-4, 6.7951E-4, 6.9095E-4, 7.1278E-4,
     * 7.3352E-4, 7.5349E-4, 7.7299E-4, 7.9228E-4, 8.1746E-4, 8.4929E-4,
     * 6.3366E-4, 6.5023E-4, 6.5936E-4, 6.6283E-4, 6.6702E-4/
      DATA X5601/ 6.6944E-4, 6.7114E-4, 6.7227E-4, 6.7354E-4, 6.7424E-4,
     * 6.7452E-4, 6.7466E-4, 6.7481E-4, 6.8189E-4, 6.8871E-4, 7.0196E-4,
     * 7.1472E-4, 7.2700E-4, 7.3883E-4, 7.5027E-4, 7.7210E-4, 7.9284E-4,
     * 8.1281E-4, 8.3231E-4, 8.5161E-4, 8.7678E-4, 9.0861E-4, 7.0119E-4,
     * 7.1788E-4, 7.2702E-4, 7.3050E-4, 7.3467E-4, 7.3709E-4, 7.3879E-4,
     * 7.3992E-4, 7.4119E-4, 7.4190E-4, 7.4218E-4, 7.4232E-4, 7.4246E-4,
     * 7.4954E-4, 7.5636E-4, 7.6962E-4, 7.8237E-4, 7.9465E-4, 8.0648E-4,
     * 8.1792E-4, 8.3975E-4, 8.6049E-4, 8.8046E-4, 8.9996E-4, 9.1926E-4,
     * 9.4443E-4, 9.7626E-4, 8.1633E-4, 8.3299E-4, 8.4211E-4, 8.4559E-4,
     * 8.4975E-4, 8.5218E-4, 8.5388E-4, 8.5501E-4, 8.5628E-4, 8.5698E-4,
     * 8.5726E-4, 8.5740E-4, 8.5755E-4, 8.6463E-4, 8.7145E-4, 8.8470E-4,
     * 8.9746E-4, 9.0974E-4, 9.2157E-4, 9.3301E-4, 9.5484E-4, 9.7558E-4,
     * 9.9555E-4, 1.0150E-3, 1.0343E-3, 1.0595E-3, 1.0913E-3, 9.1964E-4,
     * 9.3635E-4, 9.4547E-4, 9.4895E-4, 9.5312E-4, 9.5554E-4, 9.5724E-4,
     * 9.5837E-4, 9.5964E-4, 9.6034E-4, 9.6063E-4, 9.6077E-4, 9.6091E-4,
     * 9.6799E-4, 9.7481E-4, 9.8807E-4, 1.0008E-3, 1.0131E-3, 1.0249E-3,
     * 1.0364E-3, 1.0582E-3, 1.0789E-3, 1.0989E-3, 1.1184E-3/
      DATA X5701/ 1.1377E-3, 1.1629E-3, 1.1947E-3, 1.2321E-3, 1.2488E-3,
     * 1.2579E-3, 1.2614E-3, 1.2656E-3, 1.2680E-3, 1.2697E-3, 1.2708E-3,
     * 1.2721E-3, 1.2728E-3, 1.2731E-3, 1.2732E-3, 1.2734E-3, 1.2804E-3,
     * 1.2873E-3, 1.3005E-3, 1.3133E-3, 1.3255E-3, 1.3374E-3, 1.3488E-3,
     * 1.3707E-3, 1.3914E-3, 1.4114E-3, 1.4309E-3, 1.4502E-3, 1.4753E-3,
     * 1.5072E-3, 2.3967E-3, 2.4133E-3, 2.4224E-3, 2.4259E-3, 2.4301E-3,
     * 2.4325E-3, 2.4342E-3, 2.4353E-3, 2.4366E-3, 2.4373E-3, 2.4376E-3,
     * 2.4377E-3, 2.4378E-3, 2.4449E-3, 2.4517E-3, 2.4650E-3, 2.4778E-3,
     * 2.4900E-3, 2.5019E-3, 2.5133E-3, 2.5351E-3, 2.5559E-3, 2.5758E-3,
     * 2.5953E-3, 2.6146E-3, 2.6398E-3, 2.6716E-3, 2.6931E-3, 2.7098E-3,
     * 2.7189E-3, 2.7224E-3, 2.7265E-3, 2.7290E-3, 2.7307E-3, 2.7318E-3,
     * 2.7331E-3, 2.7338E-3, 2.7340E-3, 2.7342E-3, 2.7343E-3, 2.7414E-3,
     * 2.7482E-3, 2.7615E-3, 2.7742E-3, 2.7865E-3, 2.7984E-3, 2.8098E-3,
     * 2.8316E-3, 2.8524E-3, 2.8723E-3, 2.8918E-3, 2.9111E-3, 2.9363E-3,
     * 2.9681E-3, 2.9687E-3, 2.9853E-3, 2.9944E-3, 2.9979E-3, 3.0021E-3,
     * 3.0045E-3, 3.0062E-3, 3.0073E-3, 3.0086E-3, 3.0093E-3, 3.0096E-3,
     * 3.0097E-3, 3.0099E-3, 3.0169E-3, 3.0238E-3, 3.0370E-3/
      DATA X5801/ 3.0498E-3, 3.0620E-3, 3.0739E-3, 3.0853E-3, 3.1072E-3,
     * 3.1279E-3, 3.1479E-3, 3.1674E-3, 3.1867E-3, 3.2118E-3, 3.2437E-3,
     * 1.0852E-4, 1.3182E-4, 1.4523E-4, 1.5047E-4, 1.5684E-4, 1.6060E-4,
     * 1.6325E-4, 1.6503E-4, 1.6703E-4, 1.6814E-4, 1.6858E-4, 1.6881E-4,
     * 1.6903E-4, 1.8043E-4, 1.9170E-4, 2.1445E-4, 2.3742E-4, 2.6055E-4,
     * 2.8379E-4, 3.0708E-4, 3.5371E-4, 4.0018E-4, 4.4629E-4, 4.9193E-4,
     * 5.3696E-4, 6.0324E-4, 6.8475E-4, 1.0853E-4, 1.3184E-4, 1.4525E-4,
     * 1.5049E-4, 1.5686E-4, 1.6061E-4, 1.6327E-4, 1.6504E-4, 1.6704E-4,
     * 1.6816E-4, 1.6860E-4, 1.6882E-4, 1.6905E-4, 1.8045E-4, 1.9172E-4,
     * 2.1446E-4, 2.3743E-4, 2.6057E-4, 2.8380E-4, 3.0710E-4, 3.5373E-4,
     * 4.0019E-4, 4.4631E-4, 4.9194E-4, 5.3698E-4, 6.0326E-4, 6.8476E-4,
     * 1.1146E-4, 1.3477E-4, 1.4818E-4, 1.5342E-4, 1.5979E-4, 1.6355E-4,
     * 1.6620E-4, 1.6798E-4, 1.6998E-4, 1.7109E-4, 1.7153E-4, 1.7176E-4,
     * 1.7198E-4, 1.8338E-4, 1.9465E-4, 2.1740E-4, 2.4037E-4, 2.6350E-4,
     * 2.8673E-4, 3.1003E-4, 3.5666E-4, 4.0312E-4, 4.4924E-4, 4.9487E-4,
     * 5.3991E-4, 6.0619E-4, 6.8769E-4, 1.2514E-4, 1.4854E-4, 1.6194E-4,
     * 1.6719E-4, 1.7356E-4, 1.7731E-4, 1.7997E-4, 1.8174E-4/
      DATA X5901/ 1.8374E-4, 1.8485E-4, 1.8530E-4, 1.8552E-4, 1.8574E-4,
     * 1.9715E-4, 2.0841E-4, 2.3116E-4, 2.5413E-4, 2.7726E-4, 3.0050E-4,
     * 3.2380E-4, 3.7042E-4, 4.1689E-4, 4.6301E-4, 5.0864E-4, 5.5368E-4,
     * 6.1995E-4, 7.0146E-4, 1.4157E-4, 1.6504E-4, 1.7846E-4, 1.8370E-4,
     * 1.9007E-4, 1.9383E-4, 1.9648E-4, 1.9826E-4, 2.0026E-4, 2.0137E-4,
     * 2.0181E-4, 2.0204E-4, 2.0226E-4, 2.1366E-4, 2.2493E-4, 2.4768E-4,
     * 2.7065E-4, 2.9378E-4, 3.1702E-4, 3.4031E-4, 3.8694E-4, 4.3340E-4,
     * 4.7952E-4, 5.2515E-4, 5.7019E-4, 6.3647E-4, 7.1797E-4, 1.5204E-4,
     * 1.7555E-4, 1.8897E-4, 1.9422E-4, 2.0059E-4, 2.0434E-4, 2.0700E-4,
     * 2.0877E-4, 2.1077E-4, 2.1188E-4, 2.1233E-4, 2.1255E-4, 2.1277E-4,
     * 2.2418E-4, 2.3544E-4, 2.5819E-4, 2.8116E-4, 3.0429E-4, 3.2753E-4,
     * 3.5083E-4, 3.9745E-4, 4.4392E-4, 4.9004E-4, 5.3567E-4, 5.8071E-4,
     * 6.4698E-4, 7.2849E-4, 1.6987E-4, 1.9340E-4, 2.0685E-4, 2.1210E-4,
     * 2.1847E-4, 2.2223E-4, 2.2488E-4, 2.2666E-4, 2.2866E-4, 2.2977E-4,
     * 2.3021E-4, 2.3044E-4, 2.3066E-4, 2.4206E-4, 2.5333E-4, 2.7608E-4,
     * 2.9905E-4, 3.2218E-4, 3.4541E-4, 3.6871E-4, 4.1534E-4, 4.6180E-4,
     * 5.0792E-4, 5.5355E-4, 5.9859E-4, 6.6487E-4, 7.4637E-4/
      DATA X6001/ 1.8460E-4, 2.0810E-4, 2.2152E-4, 2.2677E-4, 2.3315E-4,
     * 2.3690E-4, 2.3956E-4, 2.4133E-4, 2.4333E-4, 2.4444E-4, 2.4489E-4,
     * 2.4511E-4, 2.4534E-4, 2.5674E-4, 2.6801E-4, 2.9075E-4, 3.1372E-4,
     * 3.3685E-4, 3.6009E-4, 3.8339E-4, 4.3001E-4, 4.7648E-4, 5.2260E-4,
     * 5.6823E-4, 6.1327E-4, 6.7955E-4, 7.6105E-4, 2.0128E-4, 2.2504E-4,
     * 2.3841E-4, 2.4366E-4, 2.5004E-4, 2.5379E-4, 2.5645E-4, 2.5823E-4,
     * 2.6023E-4, 2.6134E-4, 2.6178E-4, 2.6200E-4, 2.6223E-4, 2.7363E-4,
     * 2.8490E-4, 3.0765E-4, 3.3062E-4, 3.5375E-4, 3.7698E-4, 4.0028E-4,
     * 4.4691E-4, 4.9337E-4, 5.3949E-4, 5.8512E-4, 6.3016E-4, 6.9644E-4,
     * 7.7794E-4, 2.1708E-4, 2.4056E-4, 2.5386E-4, 2.5912E-4, 2.6549E-4,
     * 2.6924E-4, 2.7190E-4, 2.7367E-4, 2.7567E-4, 2.7678E-4, 2.7723E-4,
     * 2.7745E-4, 2.7767E-4, 2.8908E-4, 3.0034E-4, 3.2309E-4, 3.4606E-4,
     * 3.6919E-4, 3.9243E-4, 4.1572E-4, 4.6235E-4, 5.0882E-4, 5.5494E-4,
     * 6.0057E-4, 6.4561E-4, 7.1188E-4, 7.9339E-4, 2.4223E-4, 2.6554E-4,
     * 2.7889E-4, 2.8414E-4, 2.9046E-4, 2.9419E-4, 2.9685E-4, 2.9863E-4,
     * 3.0062E-4, 3.0174E-4, 3.0218E-4, 3.0240E-4, 3.0263E-4, 3.1403E-4,
     * 3.2530E-4, 3.4804E-4, 3.7101E-4, 3.9415E-4, 4.1738E-4/
      DATA X6101/ 4.4068E-4, 4.8730E-4, 5.3377E-4, 5.7989E-4, 6.2552E-4,
     * 6.7056E-4, 7.3684E-4, 8.1834E-4, 2.6608E-4, 2.8992E-4, 3.0804E-4,
     * 3.1215E-4, 3.1775E-4, 3.2145E-4, 3.2418E-4, 3.2586E-4, 3.2787E-4,
     * 3.2898E-4, 3.2942E-4, 3.2964E-4, 3.2987E-4, 3.4127E-4, 3.5254E-4,
     * 3.7529E-4, 3.9826E-4, 4.2139E-4, 4.4462E-4, 4.6792E-4, 5.1455E-4,
     * 5.6101E-4, 6.0713E-4, 6.5276E-4, 6.9780E-4, 7.6408E-4, 8.4558E-4,
     * 3.1090E-4, 3.1471E-4, 3.2425E-4, 3.3092E-4, 3.3754E-4, 3.4100E-4,
     * 3.4350E-4, 3.4547E-4, 3.4737E-4, 3.4848E-4, 3.4893E-4, 3.4915E-4,
     * 3.4937E-4, 3.6078E-4, 3.7205E-4, 3.9479E-4, 4.1776E-4, 4.4089E-4,
     * 4.6413E-4, 4.8743E-4, 5.3405E-4, 5.8052E-4, 6.2664E-4, 6.7227E-4,
     * 7.1731E-4, 7.8359E-4, 8.6509E-4, 3.0218E-4, 3.2578E-4, 3.3929E-4,
     * 3.4447E-4, 3.5083E-4, 3.5458E-4, 3.5723E-4, 3.5900E-4, 3.6100E-4,
     * 3.6211E-4, 3.6256E-4, 3.6278E-4, 3.6300E-4, 3.7441E-4, 3.8568E-4,
     * 4.0842E-4, 4.3139E-4, 4.5452E-4, 4.7776E-4, 5.0106E-4, 5.4768E-4,
     * 5.9415E-4, 6.4027E-4, 6.8590E-4, 7.3094E-4, 7.9722E-4, 8.7872E-4,
     * 3.2326E-4, 3.4704E-4, 3.6056E-4, 3.6583E-4, 3.7222E-4, 3.7598E-4,
     * 3.7864E-4, 3.8041E-4, 3.8241E-4, 3.8353E-4, 3.8397E-4/
      DATA X6201/ 3.8419E-4, 3.8442E-4, 3.9582E-4, 4.0709E-4, 4.2984E-4,
     * 4.5281E-4, 4.7594E-4, 4.9917E-4, 5.2247E-4, 5.6910E-4, 6.1556E-4,
     * 6.6168E-4, 7.0731E-4, 7.5235E-4, 8.1863E-4, 9.0013E-4, 4.5886E-4,
     * 4.8264E-4, 4.9616E-4, 5.0143E-4, 5.0782E-4, 5.1158E-4, 5.1424E-4,
     * 5.1601E-4, 5.1801E-4, 5.1913E-4, 5.1957E-4, 5.1979E-4, 5.2002E-4,
     * 5.3142E-4, 5.4269E-4, 5.6544E-4, 5.8841E-4, 6.1154E-4, 6.3478E-4,
     * 6.5807E-4, 7.0470E-4, 7.5116E-4, 7.9728E-4, 8.4291E-4, 8.8795E-4,
     * 9.5423E-4, 1.0357E-3, 4.7893E-4, 5.0256E-4, 5.1602E-4, 5.2117E-4,
     * 5.2755E-4, 5.3129E-4, 5.3394E-4, 5.3572E-4, 5.3771E-4, 5.3883E-4,
     * 5.3927E-4, 5.3949E-4, 5.3972E-4, 5.5112E-4, 5.6239E-4, 5.8513E-4,
     * 6.0810E-4, 6.3124E-4, 6.5447E-4, 6.7777E-4, 7.2440E-4, 7.7086E-4,
     * 8.1698E-4, 8.6261E-4, 9.0765E-4, 9.7393E-4, 1.0554E-3, 4.8898E-4,
     * 5.1261E-4, 5.2609E-4, 5.3125E-4, 5.3764E-4, 5.4139E-4, 5.4404E-4,
     * 5.4581E-4, 5.4781E-4, 5.4892E-4, 5.4936E-4, 5.4959E-4, 5.4981E-4,
     * 5.6121E-4, 5.7248E-4, 5.9523E-4, 6.1820E-4, 6.4133E-4, 6.6457E-4,
     * 6.8786E-4, 7.3449E-4, 7.8096E-4, 8.2707E-4, 8.7271E-4, 9.1774E-4,
     * 9.8402E-4, 1.0655E-3, 5.4550E-4, 5.5408E-4, 5.7030E-4/
      DATA X6301/ 5.7507E-4, 5.8019E-4, 5.8371E-4, 5.8627E-4, 5.8794E-4,
     * 5.8986E-4, 5.9097E-4, 5.9142E-4, 5.9164E-4, 5.9186E-4, 6.0327E-4,
     * 6.1453E-4, 6.3728E-4, 6.6025E-4, 6.8338E-4, 7.0662E-4, 7.2992E-4,
     * 7.7654E-4, 8.2301E-4, 8.6913E-4, 9.1476E-4, 9.5980E-4, 1.0261E-3,
     * 1.1076E-3, 5.8556E-4, 6.1131E-4, 6.2472E-4, 6.2990E-4, 6.3616E-4,
     * 6.3990E-4, 6.4256E-4, 6.4433E-4, 6.4633E-4, 6.4745E-4, 6.4789E-4,
     * 6.4811E-4, 6.4834E-4, 6.5974E-4, 6.7101E-4, 6.9376E-4, 7.1673E-4,
     * 7.3986E-4, 7.6309E-4, 7.8639E-4, 8.3302E-4, 8.7948E-4, 9.2560E-4,
     * 9.7123E-4, 1.0163E-3, 1.0825E-3, 1.1641E-3, 6.5553E-4, 6.7866E-4,
     * 6.9189E-4, 6.9724E-4, 7.0355E-4, 7.0731E-4, 7.0996E-4, 7.1174E-4,
     * 7.1374E-4, 7.1485E-4, 7.1529E-4, 7.1552E-4, 7.1574E-4, 7.2714E-4,
     * 7.3841E-4, 7.6116E-4, 7.8413E-4, 8.0726E-4, 8.3050E-4, 8.5379E-4,
     * 9.0042E-4, 9.4689E-4, 9.9300E-4, 1.0386E-3, 1.0837E-3, 1.1500E-3,
     * 1.2315E-3, 7.0161E-4, 7.2455E-4, 7.3779E-4, 7.4314E-4, 7.4945E-4,
     * 7.5322E-4, 7.5588E-4, 7.5765E-4, 7.5965E-4, 7.6076E-4, 7.6121E-4,
     * 7.6143E-4, 7.6165E-4, 7.7306E-4, 7.8432E-4, 8.0707E-4, 8.3004E-4,
     * 8.5317E-4, 8.7641E-4, 8.9971E-4, 9.4633E-4, 9.9280E-4/
      DATA X6401/ 1.0389E-3, 1.0845E-3, 1.1296E-3, 1.1959E-3, 1.2774E-3,
     * 7.7099E-4, 7.9429E-4, 8.0770E-4, 8.1295E-4, 8.1933E-4, 8.2308E-4,
     * 8.2574E-4, 8.2751E-4, 8.2951E-4, 8.3062E-4, 8.3107E-4, 8.3129E-4,
     * 8.3151E-4, 8.4292E-4, 8.5418E-4, 8.7693E-4, 8.9990E-4, 9.2303E-4,
     * 9.4627E-4, 9.6957E-4, 1.0162E-3, 1.0627E-3, 1.1088E-3, 1.1544E-3,
     * 1.1994E-3, 1.2657E-3, 1.3472E-3, 8.4585E-4, 8.6937E-4, 8.8282E-4,
     * 8.8807E-4, 8.9444E-4, 8.9820E-4, 9.0085E-4, 9.0263E-4, 9.0463E-4,
     * 9.0574E-4, 9.0618E-4, 9.0641E-4, 9.0663E-4, 9.1803E-4, 9.2930E-4,
     * 9.5205E-4, 9.7502E-4, 9.9815E-4, 1.0214E-3, 1.0447E-3, 1.0913E-3,
     * 1.1378E-3, 1.1839E-3, 1.2295E-3, 1.2746E-3, 1.3408E-3, 1.4223E-3,
     * 9.6045E-4, 9.8390E-4, 9.9732E-4, 1.0026E-3, 1.0089E-3, 1.0127E-3,
     * 1.0153E-3, 1.0171E-3, 1.0191E-3, 1.0202E-3, 1.0207E-3, 1.0209E-3,
     * 1.0211E-3, 1.0325E-3, 1.0438E-3, 1.0665E-3, 1.0895E-3, 1.1126E-3,
     * 1.1359E-3, 1.1592E-3, 1.2058E-3, 1.2523E-3, 1.2984E-3, 1.3440E-3,
     * 1.3891E-3, 1.4553E-3, 1.5368E-3, 1.0493E-3, 1.0727E-3, 1.0861E-3,
     * 1.0914E-3, 1.0978E-3, 1.1015E-3, 1.1042E-3, 1.1059E-3, 1.1079E-3,
     * 1.1090E-3, 1.1095E-3, 1.1097E-3, 1.1099E-3, 1.1213E-3/
      DATA X6501/ 1.1326E-3, 1.1554E-3, 1.1783E-3, 1.2015E-3, 1.2247E-3,
     * 1.2480E-3, 1.2946E-3, 1.3411E-3, 1.3872E-3, 1.4328E-3, 1.4779E-3,
     * 1.5442E-3, 1.6257E-3, 1.2563E-3, 1.2797E-3, 1.2931E-3, 1.2984E-3,
     * 1.3048E-3, 1.3085E-3, 1.3112E-3, 1.3129E-3, 1.3149E-3, 1.3161E-3,
     * 1.3165E-3, 1.3167E-3, 1.3169E-3, 1.3283E-3, 1.3396E-3, 1.3624E-3,
     * 1.3853E-3, 1.4085E-3, 1.4317E-3, 1.4550E-3, 1.5016E-3, 1.5481E-3,
     * 1.5942E-3, 1.6398E-3, 1.6849E-3, 1.7512E-3, 1.8327E-3, 1.6697E-3,
     * 1.6930E-3, 1.7064E-3, 1.7116E-3, 1.7180E-3, 1.7218E-3, 1.7244E-3,
     * 1.7262E-3, 1.7282E-3, 1.7293E-3, 1.7297E-3, 1.7300E-3, 1.7302E-3,
     * 1.7416E-3, 1.7529E-3, 1.7756E-3, 1.7986E-3, 1.8217E-3, 1.8449E-3,
     * 1.8682E-3, 1.9149E-3, 1.9613E-3, 2.0075E-3, 2.0531E-3, 2.0981E-3,
     * 2.1644E-3, 2.2459E-3, 1.7363E-3, 1.7596E-3, 1.7730E-3, 1.7783E-3,
     * 1.7847E-3, 1.7884E-3, 1.7911E-3, 1.7928E-3, 1.7948E-3, 1.7960E-3,
     * 1.7964E-3, 1.7966E-3, 1.7968E-3, 1.8083E-3, 1.8195E-3, 1.8423E-3,
     * 1.8652E-3, 1.8884E-3, 1.9116E-3, 1.9349E-3, 1.9815E-3, 2.0280E-3,
     * 2.0741E-3, 2.1197E-3, 2.1648E-3, 2.2311E-3, 2.3126E-3, 1.7911E-3,
     * 1.8144E-3, 1.8278E-3, 1.8331E-3, 1.8395E-3, 1.8432E-3/
      DATA X6601/ 1.8459E-3, 1.8476E-3, 1.8496E-3, 1.8507E-3, 1.8512E-3,
     * 1.8514E-3, 1.8516E-3, 1.8630E-3, 1.8743E-3, 1.8971E-3, 1.9200E-3,
     * 1.9432E-3, 1.9664E-3, 1.9897E-3, 2.0363E-3, 2.0828E-3, 2.1289E-3,
     * 2.1745E-3, 2.2196E-3, 2.2858E-3, 2.3674E-3, 7.1850E-1, 7.3000E-1,
     * 7.5000E-1, 7.8000E-1, 8.0000E-1, 8.2000E-1, 8.4000E-1, 8.6000E-1,
     * 8.7000E-1, 8.8000E-1, 8.9000E-1, 8.9500E-1, 9.0500E-1, 9.1500E-1,
     * 9.2000E-1, 9.3000E-1, 9.3500E-1, 9.4500E-1, 9.5000E-1, 9.5500E-1,
     * 9.6000E-1, 9.6500E-1, 9.7000E-1, 9.7500E-1, 9.8000E-1, 9.8500E-1,
     * 9.9000E-1, 9.9200E-1, 9.9500E-1, 9.9600E-1, 9.9700E-1, 9.9800E-1,
     * 9.9870E-1, 9.9900E-1, 1.0000E+0, 7.6517E-2, 8.8574E-2, 1.1285E-1,
     * 1.5808E-1, 1.9489E-1, 2.3766E-1, 2.8696E-1, 3.4336E-1, 3.7441E-1,
     * 4.0747E-1, 4.4263E-1, 4.6101E-1, 4.9946E-1, 5.4022E-1, 5.6151E-1,
     * 6.0595E-1, 6.2914E-1, 6.7754E-1, 7.0280E-1, 7.2878E-1, 7.5551E-1,
     * 7.8302E-1, 8.1134E-1, 8.4048E-1, 8.7050E-1, 9.0142E-1, 9.3329E-1,
     * 9.4631E-1, 9.6614E-1, 9.7283E-1, 9.7956E-1, 9.8634E-1, 9.9111E-1,
     * 9.9316E-1, 1.0000E+0, 2.5278E+0, 2.4995E+0, 2.4495E+0, 2.3715E+0,
     * 2.3170E+0, 2.2601E+0, 2.2002E+0, 2.1366E+0, 2.1030E+0/
      DATA X6701/ 2.0682E+0, 2.0317E+0, 2.0129E+0, 1.9736E+0, 1.9321E+0,
     * 1.9103E+0, 1.8643E+0, 1.8399E+0, 1.7876E+0, 1.7594E+0, 1.7295E+0,
     * 1.6975E+0, 1.6631E+0, 1.6255E+0, 1.5838E+0, 1.5365E+0, 1.4810E+0,
     * 1.4119E+0, 1.3779E+0, 1.3141E+0, 1.2873E+0, 1.2556E+0, 1.2162E+0,
     * 1.1803E+0, 1.1614E+0, 1.0000E+0, 3.2221E-2, 3.7083E-2, 4.6883E-2,
     * 6.5320E-2, 8.0594E-2, 9.8748E-2, 1.2033E-1, 1.4605E-1, 1.6076E-1,
     * 1.7689E-1, 1.9464E-1, 2.0419E-1, 2.2482E-1, 2.4780E-1, 2.6029E-1,
     * 2.8766E-1, 3.0273E-1, 3.3622E-1, 3.5499E-1, 3.7542E-1, 3.9783E-1,
     * 4.2265E-1, 4.5051E-1, 4.8233E-1, 5.1958E-1, 5.6488E-1, 6.2367E-1,
     * 6.5361E-1, 7.1135E-1, 7.3636E-1, 7.6642E-1, 8.0479E-1, 8.4079E-1,
     * 8.6043E-1, 1.0000E+0, 8.4148E+0, 8.5869E+0, 8.8768E+0, 9.2928E+0,
     * 9.5617E+0, 9.8269E+0, 1.0091E+1, 1.0356E+1, 1.0489E+1, 1.0624E+1,
     * 1.0759E+1, 1.0827E+1, 1.0965E+1, 1.1105E+1, 1.1175E+1, 1.1319E+1,
     * 1.1393E+1, 1.1545E+1, 1.1623E+1, 1.1704E+1, 1.1789E+1, 1.1877E+1,
     * 1.1970E+1, 1.2071E+1, 1.2181E+1, 1.2306E+1, 1.2455E+1, 1.2526E+1,
     * 1.2654E+1, 1.2706E+1, 1.2767E+1, 1.2840E+1, 1.2906E+1, 1.2940E+1,
     * 1.3227E+1, 1.6829E+1, 1.6726E+1, 1.6552E+1, 1.6304E+1/
      DATA X6801/ 1.6144E+1, 1.5986E+1, 1.5828E+1, 1.5668E+1, 1.5587E+1,
     * 1.5504E+1, 1.5418E+1, 1.5375E+1, 1.5285E+1, 1.5192E+1, 1.5143E+1,
     * 1.5041E+1, 1.4988E+1, 1.4874E+1, 1.4813E+1, 1.4748E+1, 1.4679E+1,
     * 1.4604E+1, 1.4523E+1, 1.4433E+1, 1.4330E+1, 1.4209E+1, 1.4059E+1,
     * 1.3984E+1, 1.3845E+1, 1.3786E+1, 1.3717E+1, 1.3631E+1, 1.3552E+1,
     * 1.3510E+1, 1.3227E+1, 6.0460E+0, 6.1720E+0, 6.3892E+0, 6.7126E+0,
     * 6.9294E+0, 7.1494E+0, 7.3747E+0, 7.6071E+0, 7.7266E+0, 7.8485E+0,
     * 7.9731E+0, 8.0365E+0, 8.1657E+0, 8.2986E+0, 8.3666E+0, 8.5064E+0,
     * 8.5785E+0, 8.7284E+0, 8.8068E+0, 8.8882E+0, 8.9732E+0, 9.0626E+0,
     * 9.1578E+0, 9.2606E+0, 9.3738E+0, 9.5022E+0, 9.6554E+0, 9.7282E+0,
     * 9.8595E+0, 9.9129E+0, 9.9745E+0, 1.0049E+1, 1.0116E+1, 1.0151E+1,
     * 1.0440E+1, 1.2092E+1, 1.2113E+1, 1.2145E+1, 1.2181E+1, 1.2195E+1,
     * 1.2200E+1, 1.2194E+1, 1.2176E+1, 1.2161E+1, 1.2143E+1, 1.2120E+1,
     * 1.2106E+1, 1.2075E+1, 1.2038E+1, 1.2017E+1, 1.1968E+1, 1.1940E+1,
     * 1.1874E+1, 1.1837E+1, 1.1795E+1, 1.1748E+1, 1.1694E+1, 1.1634E+1,
     * 1.1563E+1, 1.1480E+1, 1.1377E+1, 1.1243E+1, 1.1175E+1, 1.1045E+1,
     * 1.0989E+1, 1.0923E+1, 1.0839E+1, 1.0762E+1, 1.0721E+1/
      DATA X6901/ 1.0440E+1, 1.8892E-1, 3.0421E+2, 7.3835E+0, 4.6400E-1,
     * 1.0000E-3, 2.0000E-3, 1.0000E-3, 1.0000E-3/

      CALL FLUID0(G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,M)
      RETURN

      END
      SUBROUTINE F2
C.....FLOURINE TABLES FOR FLUID SUBPROGRAM.

C                -- UNITS --

C       R = 0.21882 JOULES / GRAM - DEG. K      C(1)
C       TCRIT = 144.31 DEG. K                   C(2)
C       PCRIT = 5.215 MEGA-NEWTONS / METER**2   C(3)
C       DCRIT = 0.57375 GRAMS / CENTIMETER**3   C(4)
C       VISCOSITY = GRAMS / CENTIMETER - SEC.        PROP(7)
C       CONDUCTIVITY = WATTS / CENTIMETER - DEG. K   PROP(8)

      DIMENSION G(19,4),TT(21),DD(28),GG(21,28,8),SAT(40,8),C(8),M(4)

      DIMENSION X0001(100),X0101(100),X0201(100),X0301(100),X0401(100),
     *          X0501(100),X0601(100),X0701(100),X0801(100),X0901(100),
     *          X1001(100),X1101(100),X1201(100),X1301(100),X1401(100),
     *          X1501(100),X1601(100),X1701(100),X1801(100),X1901(100),
     *          X2001(100),X2101(100),X2201(100),X2301(100),X2401(100),
     *          X2501(100),X2601(100),X2701(100),X2801(100),X2901(100),
     *          X3001(100),X3101(100),X3201(100),X3301(100),X3401(100),
     *          X3501(100),X3601(100),X3701(100),X3801(100),X3901(100),
     *          X4001(100),X4101(100),X4201(100),X4301(100),X4401(100),
     *          X4501(100),X4601(100),X4701(100),X4801(100),X4901(100),
     *          X5001(100),X5101(57)

      DIMENSION Z(5157)
      EQUIVALENCE (X0001,Z(0001)), (X0101,Z(0101)), (X0201,Z(0201)),
     *            (X0301,Z(0301)), (X0401,Z(0401)), (X0501,Z(0501)),
     *            (X0601,Z(0601)), (X0701,Z(0701)), (X0801,Z(0801)),
     *            (X0901,Z(0901)), (X1001,Z(1001)), (X1101,Z(1101)),
     *            (X1201,Z(1201)), (X1301,Z(1301)), (X1401,Z(1401)),
     *            (X1501,Z(1501)), (X1601,Z(1601)), (X1701,Z(1701)),
     *            (X1801,Z(1801)), (X1901,Z(1901)), (X2001,Z(2001)),
     *            (X2101,Z(2101)), (X2201,Z(2201)), (X2301,Z(2301)),
     *            (X2401,Z(2401)), (X2501,Z(2501)), (X2601,Z(2601)),
     *            (X2701,Z(2701)), (X2801,Z(2801)), (X2901,Z(2901)),
     *            (X3001,Z(3001)), (X3101,Z(3101)), (X3201,Z(3201)),
     *            (X3301,Z(3301)), (X3401,Z(3401)), (X3501,Z(3501)),
     *            (X3601,Z(3601)), (X3701,Z(3701)), (X3801,Z(3801)),
     *            (X3901,Z(3901)), (X4001,Z(4001)), (X4101,Z(4101)),
     *            (X4201,Z(4201)), (X4301,Z(4301)), (X4401,Z(4401)),
     *            (X4501,Z(4501)), (X4601,Z(4601)), (X4701,Z(4701)),
     *            (X4801,Z(4801)), (X4901,Z(4901)), (X5001,Z(5001)),
     *            (X5101,Z(5101))

      EQUIVALENCE (G,Z(0001)),(TT,Z(0077)),(DD,Z(0098)),(GG,Z(0126)),
     1            (SAT,Z(4830)),(C,Z(5150))
      DATA NG,N1,N2,N3,NS/19,21,28,8,40/

      DATA X0001/ 3.7500E-1, 4.0000E-1, 5.0000E-1, 6.0000E-1, 6.5000E-1,
     * 7.0000E-1, 8.0000E-1, 8.5000E-1, 9.0000E-1, 9.5000E-1, 1.0000E+0,
     * 1.2000E+0, 1.4000E+0, 1.8000E+0, 2.2000E+0, 2.6000E+0, 3.0000E+0,
     * 3.2000E+0, 3.4600E+0, 2.2155E+1, 2.2317E+1, 2.2875E+1, 2.3331E+1,
     * 2.3531E+1, 2.3716E+1, 2.4050E+1, 2.4202E+1, 2.4345E+1, 2.4482E+1,
     * 2.4611E+1, 2.5074E+1, 2.5471E+1, 2.6135E+1, 2.6685E+1, 2.7162E+1,
     * 2.7587E+1, 2.7783E+1, 2.8025E+1, 1.1983E+1, 1.2038E+1, 1.2258E+1,
     * 1.2478E+1, 1.2587E+1, 1.2697E+1, 1.2917E+1, 1.3027E+1, 1.3138E+1,
     * 1.3249E+1, 1.3360E+1, 1.3807E+1, 1.4262E+1, 1.5198E+1, 1.6175E+1,
     * 1.7197E+1, 1.8263E+1, 1.8811E+1, 1.9538E+1, 2.5062E+0, 2.5042E+0,
     * 2.4988E+0, 2.4974E+0, 2.4981E+0, 2.4997E+0, 2.5054E+0, 2.5094E+0,
     * 2.5142E+0, 2.5197E+0, 2.5259E+0, 2.5568E+0, 2.5960E+0, 2.6923E+0,
     * 2.8017E+0, 2.9135E+0, 3.0193E+0, 3.0681E+0, 3.1260E+0, 3.7500E-1,
     * 4.8600E-1, 5.5700E-1, 6.7200E-1, 7.6900E-1, 8.5500E-1, 8.9300E-1,
     * 9.2700E-1, 9.5000E-1, 9.6900E-1, 9.7900E-1, 9.9000E-1, 9.9800E-1,
     * 1.0200E+0, 1.0800E+0, 1.2000E+0, 1.6000E+0, 2.0000E+0, 2.6000E+0,
     * 3.0000E+0, 3.4600E+0, 1.0000E-6, 8.0000E-5, 4.0000E-5/
      DATA X0101/ 1.4000E-3, 5.0000E-3, 2.3000E-2, 7.5000E-2, 1.6500E-1,
     * 2.3000E-1, 3.0500E-1, 3.8500E-1, 4.8000E-1, 5.4500E-1, 6.6500E-1,
     * 8.3600E-1, 1.1700E+0, 1.3400E+0, 1.4700E+0, 1.5500E+0, 1.6700E+0,
     * 1.7900E+0, 1.9200E+0, 2.0500E+0, 2.2700E+0, 2.4900E+0, 2.7000E+0,
     * 2.8100E+0, 2.9700E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0,
     * 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0,
     * 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0,
     * 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3022E+0,
     * 1.3024E+0, 1.3025E+0, 1.3026E+0, 1.3027E+0, 1.3027E+0, 1.3027E+0,
     * 1.3027E+0, 1.3027E+0, 1.3027E+0, 1.3027E+0, 1.3027E+0, 1.3027E+0,
     * 1.3027E+0, 1.3027E+0, 1.3027E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0,
     * 1.3028E+0, 1.3028E+0, 1.3024E+0, 1.3026E+0, 1.3027E+0, 1.3027E+0,
     * 1.3027E+0, 1.3027E+0, 1.3027E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0,
     * 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0,
     * 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.3028E+0, 1.2921E+0,
     * 1.2963E+0, 1.2982E+0, 1.2999E+0, 1.3007E+0, 1.3012E+0, 1.3014E+0,
     * 1.3015E+0, 1.3016E+0, 1.3016E+0, 1.3016E+0, 1.3017E+0/
      DATA X0201/ 1.3017E+0, 1.3018E+0, 1.3019E+0, 1.3021E+0, 1.3025E+0,
     * 1.3026E+0, 1.3028E+0, 1.3028E+0, 1.3029E+0, 1.2705E+0, 1.2810E+0,
     * 1.2863E+0, 1.2925E+0, 1.2954E+0, 1.2971E+0, 1.2977E+0, 1.2981E+0,
     * 1.2984E+0, 1.2986E+0, 1.2987E+0, 1.2988E+0, 1.2989E+0, 1.2991E+0,
     * 1.2996E+0, 1.3003E+0, 1.3017E+0, 1.3023E+0, 1.3028E+0, 1.3030E+0,
     * 1.3031E+0, 1.1835E+0, 1.2160E+0, 1.2334E+0, 1.2558E+0, 1.2692E+0,
     * 1.2769E+0, 1.2796E+0, 1.2816E+0, 1.2828E+0, 1.2838E+0, 1.2842E+0,
     * 1.2847E+0, 1.2851E+0, 1.2860E+0, 1.2882E+0, 1.2916E+0, 1.2976E+0,
     * 1.3005E+0, 1.3028E+0, 1.3037E+0, 1.3045E+0, 9.7543E-1, 1.0551E+0,
     * 1.0988E+0, 1.1576E+0, 1.1957E+0, 1.2207E+0, 1.2291E+0, 1.2356E+0,
     * 1.2395E+0, 1.2425E+0, 1.2441E+0, 1.2457E+0, 1.2468E+0, 1.2497E+0,
     * 1.2567E+0, 1.2674E+0, 1.2867E+0, 1.2958E+0, 1.3032E+0, 1.3062E+0,
     * 1.3088E+0, 6.8118E-1, 8.2210E-1, 9.0059E-1, 1.0085E+0, 1.0811E+0,
     * 1.1312E+0, 1.1491E+0, 1.1629E+0, 1.1713E+0, 1.1777E+0, 1.1809E+0,
     * 1.1842E+0, 1.1866E+0, 1.1928E+0, 1.2075E+0, 1.2299E+0, 1.2704E+0,
     * 1.2898E+0, 1.3056E+0, 1.3123E+0, 1.3179E+0, 5.2011E-1, 6.9046E-1,
     * 7.8606E-1, 9.1899E-1, 1.0099E+0, 1.0744E+0, 1.0980E+0/
      DATA X0301/ 1.1166E+0, 1.1278E+0, 1.1364E+0, 1.1407E+0, 1.1452E+0,
     * 1.1484E+0, 1.1567E+0, 1.1764E+0, 1.2063E+0, 1.2606E+0, 1.2868E+0,
     * 1.3085E+0, 1.3177E+0, 1.3256E+0, 3.7012E-1, 5.6689E-1, 6.7789E-1,
     * 8.3290E-1, 9.4058E-1, 1.0181E+0, 1.0470E+0, 1.0701E+0, 1.0843E+0,
     * 1.0950E+0, 1.1004E+0, 1.1061E+0, 1.1101E+0, 1.1205E+0, 1.1453E+0,
     * 1.1829E+0, 1.2513E+0, 1.2849E+0, 1.3130E+0, 1.3250E+0, 1.3354E+0,
     * 2.4512E-1, 4.6191E-1, 5.8569E-1, 7.5928E-1, 8.8077E-1, 9.6924E-1,
     * 1.0025E+0, 1.0293E+0, 1.0459E+0, 1.0585E+0, 1.0648E+0, 1.0715E+0,
     * 1.0762E+0, 1.0885E+0, 1.1176E+0, 1.1621E+0, 1.2436E+0, 1.2842E+0,
     * 1.3188E+0, 1.3338E+0, 1.3468E+0, 1.5112E-1, 3.8306E-1, 5.1440E-1,
     * 6.9995E-1, 8.3083E-1, 9.2659E-1, 9.6315E-1, 9.9279E-1, 1.0112E+0,
     * 1.0253E+0, 1.0324E+0, 1.0400E+0, 1.0452E+0, 1.0591E+0, 1.0920E+0,
     * 1.1425E+0, 1.2369E+0, 1.2851E+0, 1.3270E+0, 1.3454E+0, 1.3614E+0,
     * 1.3696E-1, 3.6353E-1, 4.9438E-1, 6.7847E-1, 8.1006E-1, 9.0721E-1,
     * 9.4452E-1, 9.7495E-1, 9.9397E-1, 1.0087E+0, 1.0161E+0, 1.0239E+0,
     * 1.0295E+0, 1.0439E+0, 1.0785E+0, 1.1320E+0, 1.2335E+0, 1.2865E+0,
     * 1.3332E+0, 1.3539E+0, 1.3720E+0, 2.1478E-1, 4.0955E-1/
      DATA X0401/ 5.2216E-1, 6.8452E-1, 8.0228E-1, 8.9197E-1, 9.2717E-1,
     * 9.5639E-1, 9.7493E-1, 9.8950E-1, 9.9690E-1, 1.0048E+0, 1.0104E+0,
     * 1.0253E+0, 1.0611E+0, 1.1176E+0, 1.2295E+0, 1.2907E+0, 1.3460E+0,
     * 1.3710E+0, 1.3929E+0, 3.1841E-1, 4.8021E-1, 5.7463E-1, 7.1227E-1,
     * 8.1373E-1, 8.9246E-1, 9.2385E-1, 9.5022E-1, 9.6712E-1, 9.8051E-1,
     * 9.8735E-1, 9.9471E-1, 9.9995E-1, 1.0139E+0, 1.0484E+0, 1.1053E+0,
     * 1.2275E+0, 1.2995E+0, 1.3671E+0, 1.3982E+0, 1.4257E+0, 6.0110E-1,
     * 6.8213E-1, 7.3175E-1, 8.0815E-1, 8.6879E-1, 9.1961E-1, 9.4118E-1,
     * 9.6004E-1, 9.7255E-1, 9.8273E-1, 9.8804E-1, 9.9383E-1, 9.9802E-1,
     * 1.0094E+0, 1.0395E+0, 1.0950E+0, 1.2354E+0, 1.3288E+0, 1.4216E+0,
     * 1.4653E+0, 1.5044E+0, 6.4107E-1, 7.0781E-1, 7.4971E-1, 8.1599E-1,
     * 8.7047E-1, 9.1758E-1, 9.3804E-1, 9.5619E-1, 9.6836E-1, 9.7836E-1,
     * 9.8360E-1, 9.8935E-1, 9.9352E-1, 1.0049E+0, 1.0357E+0, 1.0940E+0,
     * 1.2474E+0, 1.3524E+0, 1.4584E+0, 1.5086E+0, 1.5539E+0, 6.3232E-1,
     * 6.9751E-1, 7.3853E-1, 8.0461E-1, 8.6015E-1, 9.0852E-1, 9.2984E-1,
     * 9.4893E-1, 9.6179E-1, 9.7241E-1, 9.7799E-1, 9.8413E-1, 9.8858E-1,
     * 1.0008E+0, 1.0338E+0, 1.0962E+0, 1.2613E+0, 1.3752E+0/
      DATA X0501/ 1.4909E+0, 1.5460E+0, 1.5957E+0, 6.0376E-1, 6.7383E-1,
     * 7.1826E-1, 7.8882E-1, 8.4839E-1, 9.0047E-1, 9.2334E-1, 9.4373E-1,
     * 9.5747E-1, 9.6879E-1, 9.7474E-1, 9.8128E-1, 9.8603E-1, 9.9903E-1,
     * 1.0339E+0, 1.0994E+0, 1.2720E+0, 1.3911E+0, 1.5125E+0, 1.5704E+0,
     * 1.6226E+0, 5.2051E-1, 6.1230E-1, 6.6821E-1, 7.5610E-1, 8.2718E-1,
     * 8.8789E-1, 9.1417E-1, 9.3735E-1, 9.5280E-1, 9.6547E-1, 9.7210E-1,
     * 9.7936E-1, 9.8461E-1, 9.9895E-1, 1.0370E+0, 1.1075E+0, 1.2907E+0,
     * 1.4171E+0, 1.5460E+0, 1.6077E+0, 1.6634E+0, 4.4287E-1, 5.5446E-1,
     * 6.2224E-1, 7.2672E-1, 8.0995E-1, 8.7981E-1, 9.0950E-1, 9.3547E-1,
     * 9.5272E-1, 9.6677E-1, 9.7409E-1, 9.8207E-1, 9.8783E-1, 1.0035E+0,
     * 1.0445E+0, 1.1195E+0, 1.3118E+0, 1.4439E+0, 1.5789E+0, 1.6436E+0,
     * 1.7021E+0, 3.5356E-1, 4.9214E-1, 5.7545E-1, 7.0137E-1, 7.9891E-1,
     * 8.7873E-1, 9.1201E-1, 9.4075E-1, 9.5964E-1, 9.7490E-1, 9.8280E-1,
     * 9.9140E-1, 9.9758E-1, 1.0143E+0, 1.0578E+0, 1.1363E+0, 1.3349E+0,
     * 1.4708E+0, 1.6100E+0, 1.6768E+0, 1.7373E+0, 2.8653E-1, 4.5045E-1,
     * 5.4742E-1, 6.9151E-1, 8.0052E-1, 8.8758E-1, 9.2318E-1, 9.5353E-1,
     * 9.7330E-1, 9.8918E-1, 9.9737E-1, 1.0063E+0, 1.0126E+0/
      DATA X0601/ 1.0299E+0, 1.0744E+0, 1.1540E+0, 1.3536E+0, 1.4901E+0,
     * 1.6301E+0, 1.6974E+0, 1.7584E+0, 2.5848E-1, 4.4615E-1, 5.5486E-1,
     * 7.1220E-1, 8.2694E-1, 9.1489E-1, 9.4963E-1, 9.7889E-1, 9.9779E-1,
     * 1.0129E+0, 1.0207E+0, 1.0291E+0, 1.0352E+0, 1.0514E+0, 1.0932E+0,
     * 1.1676E+0, 1.3534E+0, 1.4810E+0, 1.6124E+0, 1.6758E+0, 1.7332E+0,
     * 3.2234E-1, 4.9985E-1, 6.0016E-1, 7.4072E-1, 8.3821E-1, 9.0852E-1,
     * 9.3609E-1, 9.5928E-1, 9.7425E-1, 9.8621E-1, 9.9238E-1, 9.9905E-1,
     * 1.0038E+0, 1.0167E+0, 1.0499E+0, 1.1090E+0, 1.2583E+0, 1.3620E+0,
     * 1.4697E+0, 1.5219E+0, 1.5693E+0, 3.7578E-1, 5.0737E-1, 5.7824E-1,
     * 6.7098E-1, 7.2802E-1, 7.6952E-1, 7.8594E-1, 7.9982E-1, 8.0882E-1,
     * 8.1604E-1, 8.1976E-1, 8.2380E-1, 8.2670E-1, 8.3452E-1, 8.5479E-1,
     * 8.9131E-1, 9.8559E-1, 1.0525E+0, 1.1228E+0, 1.1571E+0, 1.1884E+0,
     * 3.3370E-1, 4.3223E-1, 4.8049E-1, 5.3419E-1, 5.6765E-1, 5.9240E-1,
     * 6.0230E-1, 6.1072E-1, 6.1621E-1, 6.2062E-1, 6.2290E-1, 6.2538E-1,
     * 6.2716E-1, 6.3198E-1, 6.4452E-1, 6.6734E-1, 7.2736E-1, 7.7065E-1,
     * 8.1663E-1, 8.3917E-1, 8.5979E-1, 9.0352E-2, 1.0532E-1, 1.1080E-1,
     * 1.1699E-1, 1.2105E-1, 1.2421E-1, 1.2552E-1, 1.2665E-1/
      DATA X0701/ 1.2739E-1, 1.2799E-1, 1.2831E-1, 1.2865E-1, 1.2890E-1,
     * 1.2957E-1, 1.3133E-1, 1.3463E-1, 1.4366E-1, 1.5041E-1, 1.5773E-1,
     * 1.6137E-1, 1.6471E-1, 1.0000E+0, 1.0000E+0, 9.9999E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0001E+0,
     * 1.0000E+0, 9.9998E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9998E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 9.9999E-1, 1.0000E+0, 9.9998E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9973E-1,
     * 9.9977E-1, 9.9981E-1, 9.9990E-1, 9.9993E-1, 9.9995E-1, 9.9995E-1,
     * 9.9996E-1, 9.9996E-1, 9.9996E-1, 9.9996E-1, 9.9997E-1, 9.9997E-1,
     * 9.9996E-1, 9.9997E-1, 9.9998E-1, 9.9998E-1, 9.9997E-1, 9.9999E-1,
     * 9.9999E-1, 9.9999E-1, 9.9860E-1, 9.9909E-1, 9.9933E-1/
      DATA X0801/ 9.9961E-1, 9.9973E-1, 9.9980E-1, 9.9982E-1, 9.9983E-1,
     * 9.9984E-1, 9.9985E-1, 9.9986E-1, 9.9986E-1, 9.9986E-1, 9.9987E-1,
     * 9.9989E-1, 9.9991E-1, 9.9994E-1, 9.9994E-1, 9.9997E-1, 9.9997E-1,
     * 9.9997E-1, 9.9480E-1, 9.9628E-1, 9.9708E-1, 9.9809E-1, 9.9868E-1,
     * 9.9900E-1, 9.9911E-1, 9.9919E-1, 9.9924E-1, 9.9928E-1, 9.9930E-1,
     * 9.9932E-1, 9.9933E-1, 9.9936E-1, 9.9945E-1, 9.9956E-1, 9.9974E-1,
     * 9.9978E-1, 9.9983E-1, 9.9984E-1, 9.9984E-1, 9.8474E-1, 9.8868E-1,
     * 9.9082E-1, 9.9363E-1, 9.9543E-1, 9.9658E-1, 9.9696E-1, 9.9724E-1,
     * 9.9741E-1, 9.9754E-1, 9.9760E-1, 9.9767E-1, 9.9772E-1, 9.9783E-1,
     * 9.9812E-1, 9.9851E-1, 9.9911E-1, 9.9929E-1, 9.9941E-1, 9.9944E-1,
     * 9.9946E-1, 9.6840E-1, 9.7598E-1, 9.8013E-1, 9.8586E-1, 9.8963E-1,
     * 9.9217E-1, 9.9305E-1, 9.9372E-1, 9.9411E-1, 9.9441E-1, 9.9455E-1,
     * 9.9471E-1, 9.9482E-1, 9.9509E-1, 9.9574E-1, 9.9664E-1, 9.9797E-1,
     * 9.9839E-1, 9.9863E-1, 9.9869E-1, 9.9873E-1, 9.5828E-1, 9.6771E-1,
     * 9.7310E-1, 9.8048E-1, 9.8548E-1, 9.8893E-1, 9.9016E-1, 9.9112E-1,
     * 9.9168E-1, 9.9211E-1, 9.9231E-1, 9.9254E-1, 9.9269E-1, 9.9308E-1,
     * 9.9399E-1, 9.9527E-1, 9.9713E-1, 9.9770E-1, 9.9803E-1/
      DATA X0901/ 9.9811E-1, 9.9816E-1, 9.4727E-1, 9.5918E-1, 9.6571E-1,
     * 9.7461E-1, 9.8087E-1, 9.8525E-1, 9.8684E-1, 9.8811E-1, 9.8887E-1,
     * 9.8945E-1, 9.8973E-1, 9.9003E-1, 9.9023E-1, 9.9076E-1, 9.9199E-1,
     * 9.9369E-1, 9.9614E-1, 9.9689E-1, 9.9730E-1, 9.9740E-1, 9.9746E-1,
     * 9.3311E-1, 9.4702E-1, 9.5581E-1, 9.6753E-1, 9.7556E-1, 9.8126E-1,
     * 9.8334E-1, 9.8496E-1, 9.8593E-1, 9.8666E-1, 9.8702E-1, 9.8740E-1,
     * 9.8766E-1, 9.8833E-1, 9.8988E-1, 9.9203E-1, 9.9507E-1, 9.9599E-1,
     * 9.9647E-1, 9.9660E-1, 9.9667E-1, 9.2188E-1, 9.3945E-1, 9.4873E-1,
     * 9.6191E-1, 9.7069E-1, 9.7704E-1, 9.7948E-1, 9.8144E-1, 9.8260E-1,
     * 9.8349E-1, 9.8394E-1, 9.8440E-1, 9.8473E-1, 9.8556E-1, 9.8747E-1,
     * 9.9010E-1, 9.9379E-1, 9.9489E-1, 9.9545E-1, 9.9559E-1, 9.9568E-1,
     * 9.0845E-1, 9.2798E-1, 9.3994E-1, 9.5483E-1, 9.6631E-1, 9.7392E-1,
     * 9.7679E-1, 9.7905E-1, 9.8042E-1, 9.8145E-1, 9.8195E-1, 9.8247E-1,
     * 9.8283E-1, 9.8376E-1, 9.8590E-1, 9.8883E-1, 9.9291E-1, 9.9411E-1,
     * 9.9471E-1, 9.9486E-1, 9.9495E-1, 9.1058E-1, 9.2821E-1, 9.3832E-1,
     * 9.5268E-1, 9.6287E-1, 9.7034E-1, 9.7320E-1, 9.7552E-1, 9.7696E-1,
     * 9.7808E-1, 9.7864E-1, 9.7923E-1, 9.7965E-1, 9.8073E-1/
      DATA X1001/ 9.8320E-1, 9.8659E-1, 9.9127E-1, 9.9262E-1, 9.9328E-1,
     * 9.9344E-1, 9.9354E-1, 8.9804E-1, 9.1794E-1, 9.2940E-1, 9.4559E-1,
     * 9.5705E-1, 9.6548E-1, 9.6868E-1, 9.7129E-1, 9.7291E-1, 9.7416E-1,
     * 9.7479E-1, 9.7545E-1, 9.7592E-1, 9.7714E-1, 9.7991E-1, 9.8370E-1,
     * 9.8889E-1, 9.9035E-1, 9.9104E-1, 9.9120E-1, 9.9130E-1, 9.7734E-1,
     * 9.7189E-1, 9.6951E-1, 9.6722E-1, 9.6688E-1, 9.6770E-1, 9.6840E-1,
     * 9.6923E-1, 9.6988E-1, 9.7048E-1, 9.7082E-1, 9.7120E-1, 9.7150E-1,
     * 9.7235E-1, 9.7505E-1, 9.7875E-1, 9.8382E-1, 9.8519E-1, 9.8579E-1,
     * 9.8592E-1, 9.8600E-1, 9.8514E-1, 9.7707E-1, 9.7325E-1, 9.6898E-1,
     * 9.6726E-1, 9.6708E-1, 9.6743E-1, 9.6797E-1, 9.6844E-1, 9.6890E-1,
     * 9.6917E-1, 9.6949E-1, 9.6973E-1, 9.7046E-1, 9.7289E-1, 9.7624E-1,
     * 9.8083E-1, 9.8204E-1, 9.8252E-1, 9.8261E-1, 9.8268E-1, 2.2852E-1,
     * 4.6240E-1, 5.8887E-1, 7.5549E-1, 8.5886E-1, 9.2195E-1, 9.4139E-1,
     * 9.5447E-1, 9.6093E-1, 9.6484E-1, 9.6638E-1, 9.6766E-1, 9.6831E-1,
     * 9.6893E-1, 9.7111E-1, 9.7413E-1, 9.7826E-1, 9.7929E-1, 9.7966E-1,
     * 9.7972E-1, 9.7977E-1, 7.5220E-1, 8.1567E-1, 8.5083E-1, 8.9648E-1,
     * 9.2749E-1, 9.4765E-1, 9.5461E-1, 9.5976E-1, 9.6270E-1/
      DATA X1101/ 9.6476E-1, 9.6573E-1, 9.6668E-1, 9.6731E-1, 9.6786E-1,
     * 9.6988E-1, 9.7270E-1, 9.7652E-1, 9.7744E-1, 9.7773E-1, 9.7777E-1,
     * 9.7780E-1, 1.2886E+0, 1.1748E+0, 1.1140E+0, 1.0378E+0, 9.9393E-1,
     * 9.7075E-1, 9.6541E-1, 9.6311E-1, 9.6285E-1, 9.6345E-1, 9.6406E-1,
     * 9.6496E-1, 9.6555E-1, 9.6600E-1, 9.6780E-1, 9.7031E-1, 9.7366E-1,
     * 9.7438E-1, 9.7455E-1, 9.7454E-1, 9.7456E-1, 1.0068E+0, 9.8817E-1,
     * 9.7824E-1, 9.6654E-1, 9.6101E-1, 9.5924E-1, 9.5938E-1, 9.6000E-1,
     * 9.6069E-1, 9.6142E-1, 9.6198E-1, 9.6284E-1, 9.6340E-1, 9.6376E-1,
     * 9.6536E-1, 9.6758E-1, 9.7046E-1, 9.7097E-1, 9.7099E-1, 9.7095E-1,
     * 9.7095E-1, 9.1005E-1, 9.2473E-1, 9.3280E-1, 9.4359E-1, 9.5054E-1,
     * 9.5498E-1, 9.5644E-1, 9.5749E-1, 9.5806E-1, 9.5871E-1, 9.5923E-1,
     * 9.6005E-1, 9.6058E-1, 9.6085E-1, 9.6226E-1, 9.6420E-1, 9.6657E-1,
     * 9.6683E-1, 9.6668E-1, 9.6659E-1, 9.6656E-1, 8.7854E-1, 9.0430E-1,
     * 9.1795E-1, 9.3558E-1, 9.4603E-1, 9.5191E-1, 9.5350E-1, 9.5440E-1,
     * 9.5488E-1, 9.5545E-1, 9.5594E-1, 9.5672E-1, 9.5723E-1, 9.5743E-1,
     * 9.5868E-1, 9.6037E-1, 9.6221E-1, 9.6221E-1, 9.6187E-1, 9.6172E-1,
     * 9.6167E-1, 8.9134E-1, 9.1017E-1, 9.2025E-1, 9.3333E-1/
      DATA X1201/ 9.4128E-1, 9.4598E-1, 9.4734E-1, 9.4805E-1, 9.4841E-1,
     * 9.4889E-1, 9.4934E-1, 9.5008E-1, 9.5056E-1, 9.5066E-1, 9.5167E-1,
     * 9.5294E-1, 9.5385E-1, 9.5334E-1, 9.5264E-1, 9.5240E-1, 9.5230E-1,
     * 9.0442E-1, 9.1489E-1, 9.2085E-1, 9.2928E-1, 9.3522E-1, 9.3958E-1,
     * 9.4078E-1, 9.4134E-1, 9.4160E-1, 9.4200E-1, 9.4241E-1, 9.4311E-1,
     * 9.4356E-1, 9.4356E-1, 9.4433E-1, 9.4515E-1, 9.4496E-1, 9.4382E-1,
     * 9.4268E-1, 9.4231E-1, 9.4216E-1, 8.8948E-1, 9.0693E-1, 9.1591E-1,
     * 9.2688E-1, 9.3269E-1, 9.3673E-1, 9.3775E-1, 9.3813E-1, 9.3826E-1,
     * 9.3856E-1, 9.3892E-1, 9.3959E-1, 9.4000E-1, 9.3988E-1, 9.4035E-1,
     * 9.4060E-1, 9.3901E-1, 9.3707E-1, 9.3532E-1, 9.3475E-1, 9.3448E-1,
     * 8.8366E-1, 9.0869E-1, 9.2023E-1, 9.3154E-1, 9.3717E-1, 9.4094E-1,
     * 9.4182E-1, 9.4205E-1, 9.4209E-1, 9.4232E-1, 9.4265E-1, 9.4328E-1,
     * 9.4367E-1, 9.4346E-1, 9.4370E-1, 9.4352E-1, 9.4088E-1, 9.3831E-1,
     * 9.3604E-1, 9.3527E-1, 9.3484E-1, 9.4589E-1, 9.7086E-1, 9.8330E-1,
     * 9.9422E-1, 9.9877E-1, 1.0015E+0, 1.0018E+0, 1.0015E+0, 1.0012E+0,
     * 1.0012E+0, 1.0014E+0, 1.0019E+0, 1.0022E+0, 1.0017E+0, 1.0012E+0,
     * 9.9953E-1, 9.9308E-1, 9.8793E-1, 9.8307E-1, 9.8107E-1/
      DATA X1301/ 9.7952E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9997E-1,
     * 9.9998E-1, 9.9998E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9999E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 9.9998E-1, 9.9999E-1, 9.9999E-1, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9946E-1,
     * 9.9963E-1, 9.9972E-1, 9.9981E-1, 9.9986E-1, 9.9989E-1, 9.9990E-1,
     * 9.9990E-1, 9.9991E-1, 9.9991E-1, 9.9992E-1, 9.9992E-1, 9.9992E-1,
     * 9.9992E-1, 9.9993E-1, 9.9995E-1, 9.9997E-1, 9.9997E-1, 9.9998E-1,
     * 9.9998E-1, 9.9997E-1, 9.9820E-1, 9.9872E-1, 9.9898E-1, 9.9931E-1,
     * 9.9948E-1, 9.9959E-1, 9.9963E-1, 9.9966E-1, 9.9968E-1, 9.9969E-1,
     * 9.9970E-1, 9.9971E-1, 9.9971E-1, 9.9972E-1, 9.9976E-1/
      DATA X1401/ 9.9980E-1, 9.9988E-1, 9.9990E-1, 9.9991E-1, 9.9991E-1,
     * 9.9990E-1, 9.9264E-1, 9.9447E-1, 9.9547E-1, 9.9678E-1, 9.9760E-1,
     * 9.9810E-1, 9.9828E-1, 9.9842E-1, 9.9850E-1, 9.9857E-1, 9.9860E-1,
     * 9.9863E-1, 9.9866E-1, 9.9872E-1, 9.9887E-1, 9.9910E-1, 9.9946E-1,
     * 9.9957E-1, 9.9960E-1, 9.9958E-1, 9.9955E-1, 9.7743E-1, 9.8268E-1,
     * 9.8555E-1, 9.8942E-1, 9.9199E-1, 9.9370E-1, 9.9430E-1, 9.9476E-1,
     * 9.9505E-1, 9.9526E-1, 9.9537E-1, 9.9549E-1, 9.9557E-1, 9.9578E-1,
     * 9.9628E-1, 9.9703E-1, 9.9822E-1, 9.9856E-1, 9.9862E-1, 9.9857E-1,
     * 9.9847E-1, 9.5146E-1, 9.6214E-1, 9.6806E-1, 9.7632E-1, 9.8188E-1,
     * 9.8574E-1, 9.8713E-1, 9.8821E-1, 9.8887E-1, 9.8937E-1, 9.8962E-1,
     * 9.8988E-1, 9.9007E-1, 9.9055E-1, 9.9169E-1, 9.9338E-1, 9.9597E-1,
     * 9.9669E-1, 9.9677E-1, 9.9661E-1, 9.9639E-1, 9.3372E-1, 9.4777E-1,
     * 9.5575E-1, 9.6683E-1, 9.7443E-1, 9.7981E-1, 9.8178E-1, 9.8334E-1,
     * 9.8429E-1, 9.8500E-1, 9.8536E-1, 9.8574E-1, 9.8600E-1, 9.8669E-1,
     * 9.8832E-1, 9.9070E-1, 9.9429E-1, 9.9524E-1, 9.9529E-1, 9.9505E-1,
     * 9.9472E-1, 9.1309E-1, 9.3163E-1, 9.4168E-1, 9.5584E-1, 9.6579E-1,
     * 9.7290E-1, 9.7554E-1, 9.7764E-1, 9.7893E-1, 9.7991E-1/
      DATA X1501/ 9.8040E-1, 9.8091E-1, 9.8127E-1, 9.8220E-1, 9.8440E-1,
     * 9.8759E-1, 9.9230E-1, 9.9348E-1, 9.9346E-1, 9.9310E-1, 9.9264E-1,
     * 8.9038E-1, 9.1235E-1, 9.2554E-1, 9.4360E-1, 9.5630E-1, 9.6547E-1,
     * 9.6887E-1, 9.7157E-1, 9.7322E-1, 9.7449E-1, 9.7511E-1, 9.7577E-1,
     * 9.7623E-1, 9.7743E-1, 9.8023E-1, 9.8427E-1, 9.9012E-1, 9.9148E-1,
     * 9.9134E-1, 9.9085E-1, 9.9022E-1, 8.6572E-1, 8.9404E-1, 9.0967E-1,
     * 9.3091E-1, 9.4621E-1, 9.5703E-1, 9.6121E-1, 9.6457E-1, 9.6662E-1,
     * 9.6820E-1, 9.6898E-1, 9.6981E-1, 9.7039E-1, 9.7190E-1, 9.7539E-1,
     * 9.8039E-1, 9.8745E-1, 9.8896E-1, 9.8860E-1, 9.8792E-1, 9.8709E-1,
     * 8.4912E-1, 8.7866E-1, 8.9697E-1, 9.2114E-1, 9.3896E-1, 9.5134E-1,
     * 9.5610E-1, 9.5992E-1, 9.6228E-1, 9.6407E-1, 9.6497E-1, 9.6591E-1,
     * 9.6656E-1, 9.6826E-1, 9.7220E-1, 9.7780E-1, 9.8557E-1, 9.8713E-1,
     * 9.8658E-1, 9.8575E-1, 9.8477E-1, 8.3511E-1, 8.6688E-1, 8.8512E-1,
     * 9.1098E-1, 9.2936E-1, 9.4295E-1, 9.4814E-1, 9.5240E-1, 9.5505E-1,
     * 9.5710E-1, 9.5813E-1, 9.5922E-1, 9.6000E-1, 9.6201E-1, 9.6665E-1,
     * 9.7319E-1, 9.8199E-1, 9.8349E-1, 9.8251E-1, 9.8138E-1, 9.8011E-1,
     * 8.0693E-1, 8.4396E-1, 8.6522E-1, 8.9532E-1, 9.1668E-1/
      DATA X1601/ 9.3244E-1, 9.3845E-1, 9.4336E-1, 9.4642E-1, 9.4878E-1,
     * 9.4997E-1, 9.5122E-1, 9.5211E-1, 9.5441E-1, 9.5971E-1, 9.6708E-1,
     * 9.7651E-1, 9.7761E-1, 9.7578E-1, 9.7418E-1, 9.7245E-1, 9.5850E-1,
     * 9.4664E-1, 9.4119E-1, 9.3565E-1, 9.3418E-1, 9.3527E-1, 9.3647E-1,
     * 9.3794E-1, 9.3913E-1, 9.4024E-1, 9.4086E-1, 9.4159E-1, 9.4214E-1,
     * 9.4375E-1, 9.4892E-1, 9.5590E-1, 9.6345E-1, 9.6264E-1, 9.5859E-1,
     * 9.5593E-1, 9.5331E-1, 9.7264E-1, 9.5595E-1, 9.4780E-1, 9.3846E-1,
     * 9.3431E-1, 9.3342E-1, 9.3385E-1, 9.3470E-1, 9.3550E-1, 9.3631E-1,
     * 9.3678E-1, 9.3734E-1, 9.3778E-1, 9.3911E-1, 9.4360E-1, 9.4951E-1,
     * 9.5477E-1, 9.5255E-1, 9.4722E-1, 9.4404E-1, 9.4103E-1,-5.7153E-1,
     *-9.4238E-2, 1.6333E-1, 5.0215E-1, 7.1243E-1, 8.4065E-1, 8.8006E-1,
     * 9.0639E-1, 9.1937E-1, 9.2717E-1, 9.3021E-1, 9.3270E-1, 9.3396E-1,
     * 9.3499E-1, 9.3881E-1, 9.4367E-1, 9.4681E-1, 9.4343E-1, 9.3716E-1,
     * 9.3364E-1, 9.3039E-1, 5.1318E-1, 6.3647E-1, 7.0410E-1, 7.9443E-1,
     * 8.5425E-1, 8.9346E-1, 9.0685E-1, 9.1675E-1, 9.2236E-1, 9.2629E-1,
     * 9.2812E-1, 9.2993E-1, 9.3112E-1, 9.3196E-1, 9.3533E-1, 9.3949E-1,
     * 9.4125E-1, 9.3716E-1, 9.3036E-1, 9.2667E-1, 9.2333E-1/
      DATA X1701/ 1.5955E+0, 1.3604E+0, 1.2356E+0, 1.0781E+0, 9.8721E-1,
     * 9.3878E-1, 9.2728E-1, 9.2201E-1, 9.2112E-1, 9.2203E-1, 9.2311E-1,
     * 9.2478E-1, 9.2586E-1, 9.2641E-1, 9.2909E-1, 9.3219E-1, 9.3190E-1,
     * 9.2680E-1, 9.1932E-1, 9.1546E-1, 9.1205E-1, 1.0161E+0, 9.7650E-1,
     * 9.5589E-1, 9.3105E-1, 9.1840E-1, 9.1336E-1, 9.1298E-1, 9.1362E-1,
     * 9.1456E-1, 9.1566E-1, 9.1661E-1, 9.1813E-1, 9.1911E-1, 9.1939E-1,
     * 9.2142E-1, 9.2349E-1, 9.2127E-1, 9.1530E-1, 9.0736E-1, 9.0344E-1,
     * 9.0006E-1, 8.2530E-1, 8.5135E-1, 8.6548E-1, 8.8391E-1, 8.9525E-1,
     * 9.0202E-1, 9.0404E-1, 9.0534E-1, 9.0595E-1, 9.0679E-1, 9.0760E-1,
     * 9.0898E-1, 9.0987E-1, 9.0989E-1, 9.1129E-1, 9.1239E-1, 9.0836E-1,
     * 9.0170E-1, 8.9355E-1, 8.8970E-1, 8.8650E-1, 7.6591E-1, 8.1151E-1,
     * 8.3543E-1, 8.6567E-1, 8.8292E-1, 8.9188E-1, 8.9394E-1, 8.9480E-1,
     * 8.9515E-1, 8.9578E-1, 8.9648E-1, 8.9774E-1, 8.9854E-1, 8.9836E-1,
     * 8.9925E-1, 8.9955E-1, 8.9416E-1, 8.8713E-1, 8.7912E-1, 8.7553E-1,
     * 8.7265E-1, 7.8629E-1, 8.1656E-1, 8.3251E-1, 8.5269E-1, 8.6431E-1,
     * 8.7047E-1, 8.7195E-1, 8.7237E-1, 8.7245E-1, 8.7285E-1, 8.7343E-1,
     * 8.7453E-1, 8.7521E-1, 8.7483E-1, 8.7518E-1, 8.7465E-1/
      DATA X1801/ 8.6818E-1, 8.6137E-1, 8.5441E-1, 8.5158E-1, 8.4949E-1,
     * 7.9534E-1, 8.1089E-1, 8.1957E-1, 8.3149E-1, 8.3950E-1, 8.4504E-1,
     * 8.4630E-1, 8.4659E-1, 8.4659E-1, 8.4691E-1, 8.4741E-1, 8.4838E-1,
     * 8.4898E-1, 8.4857E-1, 8.4873E-1, 8.4797E-1, 8.4189E-1, 8.3623E-1,
     * 8.3107E-1, 8.2926E-1, 8.2814E-1, 7.5353E-1, 7.7912E-1, 7.9220E-1,
     * 8.0793E-1, 8.1597E-1, 8.2121E-1, 8.2239E-1, 8.2268E-1, 8.2270E-1,
     * 8.2300E-1, 8.2344E-1, 8.2430E-1, 8.2483E-1, 8.2448E-1, 8.2462E-1,
     * 8.2399E-1, 8.1911E-1, 8.1496E-1, 8.1172E-1, 8.1089E-1, 8.1068E-1,
     * 7.3004E-1, 7.6531E-1, 7.8157E-1, 7.9746E-1, 8.0531E-1, 8.1030E-1,
     * 8.1142E-1, 8.1171E-1, 8.1174E-1, 8.1202E-1, 8.1243E-1, 8.1322E-1,
     * 8.1371E-1, 8.1339E-1, 8.1354E-1, 8.1299E-1, 8.0878E-1, 8.0540E-1,
     * 8.0309E-1, 8.0271E-1, 8.0290E-1, 7.2101E-1, 7.5505E-1, 7.7090E-1,
     * 7.8595E-1, 7.9307E-1, 7.9744E-1, 7.9841E-1, 7.9864E-1, 7.9865E-1,
     * 7.9888E-1, 7.9923E-1, 7.9991E-1, 8.0033E-1, 8.0004E-1, 8.0014E-1,
     * 7.9963E-1, 7.9622E-1, 7.9378E-1, 7.9256E-1, 7.9271E-1, 7.9334E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0/
      DATA X1901/ 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9999E-1, 1.0000E+0,
     * 9.9996E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0007E+0,
     * 1.0004E+0, 1.0003E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 9.9998E-1, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0004E+0, 1.0002E+0, 1.0002E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 9.9997E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0123E+0,
     * 1.0077E+0, 1.0056E+0, 1.0035E+0, 1.0024E+0, 1.0018E+0, 1.0016E+0,
     * 1.0014E+0, 1.0013E+0, 1.0012E+0, 1.0012E+0, 1.0012E+0, 1.0011E+0,
     * 1.0011E+0, 1.0009E+0, 1.0006E+0, 1.0002E+0, 1.0001E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0395E+0, 1.0267E+0, 1.0201E+0, 1.0124E+0,
     * 1.0086E+0, 1.0064E+0, 1.0056E+0, 1.0050E+0, 1.0047E+0, 1.0044E+0,
     * 1.0043E+0, 1.0041E+0, 1.0040E+0, 1.0038E+0, 1.0032E+0, 1.0023E+0,
     * 1.0009E+0, 1.0004E+0, 1.0001E+0, 1.0001E+0, 1.0000E+0, 1.1564E+0,
     * 1.1122E+0, 1.0887E+0, 1.0583E+0, 1.0400E+0, 1.0295E+0/
      DATA X2001/ 1.0260E+0, 1.0233E+0, 1.0216E+0, 1.0204E+0, 1.0198E+0,
     * 1.0191E+0, 1.0186E+0, 1.0175E+0, 1.0146E+0, 1.0105E+0, 1.0041E+0,
     * 1.0019E+0, 1.0007E+0, 1.0004E+0, 1.0002E+0, 1.4675E+0, 1.3469E+0,
     * 1.2809E+0, 1.1924E+0, 1.1356E+0, 1.0988E+0, 1.0866E+0, 1.0773E+0,
     * 1.0717E+0, 1.0674E+0, 1.0653E+0, 1.0631E+0, 1.0616E+0, 1.0575E+0,
     * 1.0481E+0, 1.0344E+0, 1.0131E+0, 1.0059E+0, 1.0021E+0, 1.0011E+0,
     * 1.0005E+0, 1.9980E+0, 1.7531E+0, 1.6174E+0, 1.4323E+0, 1.3095E+0,
     * 1.2262E+0, 1.1970E+0, 1.1749E+0, 1.1617E+0, 1.1517E+0, 1.1468E+0,
     * 1.1416E+0, 1.1379E+0, 1.1285E+0, 1.1067E+0, 1.0754E+0, 1.0279E+0,
     * 1.0122E+0, 1.0041E+0, 1.0021E+0, 1.0010E+0, 2.3530E+0, 2.0312E+0,
     * 1.8516E+0, 1.6042E+0, 1.4374E+0, 1.3214E+0, 1.2798E+0, 1.2475E+0,
     * 1.2283E+0, 1.2139E+0, 1.2068E+0, 1.1993E+0, 1.1940E+0, 1.1805E+0,
     * 1.1492E+0, 1.1045E+0, 1.0379E+0, 1.0163E+0, 1.0053E+0, 1.0026E+0,
     * 1.0011E+0, 2.7549E+0, 2.3469E+0, 2.1182E+0, 1.8006E+0, 1.5841E+0,
     * 1.4314E+0, 1.3756E+0, 1.3318E+0, 1.3054E+0, 1.2856E+0, 1.2758E+0,
     * 1.2656E+0, 1.2584E+0, 1.2400E+0, 1.1974E+0, 1.1372E+0, 1.0487E+0,
     * 1.0204E+0, 1.0064E+0, 1.0030E+0, 1.0011E+0, 3.1726E+0/
      DATA X2101/ 2.6736E+0, 2.3943E+0, 2.0039E+0, 1.7362E+0, 1.5454E+0,
     * 1.4750E+0, 1.4193E+0, 1.3855E+0, 1.3600E+0, 1.3474E+0, 1.3342E+0,
     * 1.3250E+0, 1.3013E+0, 1.2468E+0, 1.1702E+0, 1.0591E+0, 1.0242E+0,
     * 1.0071E+0, 1.0031E+0, 1.0010E+0, 3.6482E+0, 3.0457E+0, 2.7065E+0,
     * 2.2332E+0, 1.9060E+0, 1.6718E+0, 1.5850E+0, 1.5160E+0, 1.4740E+0,
     * 1.4420E+0, 1.4262E+0, 1.4097E+0, 1.3982E+0, 1.3685E+0, 1.3006E+0,
     * 1.2057E+0, 1.0697E+0, 1.0277E+0, 1.0076E+0, 1.0029E+0, 1.0005E+0,
     * 3.9028E+0, 3.2505E+0, 2.8811E+0, 2.3633E+0, 2.0051E+0, 1.7477E+0,
     * 1.6515E+0, 1.5748E+0, 1.5279E+0, 1.4921E+0, 1.4744E+0, 1.4558E+0,
     * 1.4428E+0, 1.4095E+0, 1.3333E+0, 1.2271E+0, 1.0758E+0, 1.0295E+0,
     * 1.0076E+0, 1.0026E+0, 1.0001E+0, 4.0276E+0, 3.3786E+0, 3.0093E+0,
     * 2.4861E+0, 2.1174E+0, 1.8459E+0, 1.7425E+0, 1.6586E+0, 1.6065E+0,
     * 1.5663E+0, 1.5461E+0, 1.5248E+0, 1.5098E+0, 1.4709E+0, 1.3820E+0,
     * 1.2587E+0, 1.0843E+0, 1.0316E+0, 1.0070E+0, 1.0017E+0, 9.9903E-1,
     * 4.3744E+0, 3.6497E+0, 3.2372E+0, 2.6531E+0, 2.2415E+0, 1.9385E+0,
     * 1.8231E+0, 1.7296E+0, 1.6714E+0, 1.6265E+0, 1.6041E+0, 1.5802E+0,
     * 1.5635E+0, 1.5201E+0, 1.4211E+0, 1.2837E+0, 1.0897E+0/
      DATA X2201/ 1.0314E+0, 1.0050E+0, 9.9943E-1, 9.9692E-1, 4.0737E+0,
     * 3.4208E+0, 3.0489E+0, 2.5210E+0, 2.1480E+0, 1.8724E+0, 1.7671E+0,
     * 1.6816E+0, 1.6283E+0, 1.5870E+0, 1.5663E+0, 1.5444E+0, 1.5290E+0,
     * 1.4889E+0, 1.3967E+0, 1.2670E+0, 1.0789E+0, 1.0216E+0, 9.9675E-1,
     * 9.9233E-1, 9.9094E-1, 3.5966E+0, 3.0530E+0, 2.7426E+0, 2.3014E+0,
     * 1.9884E+0, 1.7561E+0, 1.6671E+0, 1.5944E+0, 1.5490E+0, 1.5139E+0,
     * 1.4962E+0, 1.4774E+0, 1.4642E+0, 1.4297E+0, 1.3498E+0, 1.2355E+0,
     * 1.0651E+0, 1.0125E+0, 9.9057E-1, 9.8732E-1, 9.8690E-1, 3.3389E+0,
     * 2.8408E+0, 2.5574E+0, 2.1555E+0, 1.8729E+0, 1.6645E+0, 1.5852E+0,
     * 1.5210E+0, 1.4811E+0, 1.4504E+0, 1.4350E+0, 1.4186E+0, 1.4072E+0,
     * 1.3775E+0, 1.3080E+0, 1.2069E+0, 1.0522E+0, 1.0040E+0, 9.8495E-1,
     * 9.8283E-1, 9.8333E-1, 3.1299E+0, 2.6760E+0, 2.4177E+0, 2.0513E+0,
     * 1.7937E+0, 1.6050E+0, 1.5332E+0, 1.4750E+0, 1.4390E+0, 1.4111E+0,
     * 1.3972E+0, 1.3824E+0, 1.3721E+0, 1.3452E+0, 1.2818E+0, 1.1886E+0,
     * 1.0434E+0, 9.9815E-1, 9.8111E-1, 9.7978E-1, 9.8091E-1, 2.7910E+0,
     * 2.4121E+0, 2.1973E+0, 1.8936E+0, 1.6783E+0, 1.5195E+0, 1.4590E+0,
     * 1.4098E+0, 1.3792E+0, 1.3555E+0, 1.3437E+0, 1.3311E+0/
      DATA X2301/ 1.3222E+0, 1.2991E+0, 1.2440E+0, 1.1613E+0, 1.0294E+0,
     * 9.8859E-1, 9.7480E-1, 9.7477E-1, 9.7696E-1, 2.5295E+0, 2.2083E+0,
     * 2.0254E+0, 1.7653E+0, 1.5818E+0, 1.4464E+0, 1.3947E+0, 1.3526E+0,
     * 1.3265E+0, 1.3063E+0, 1.2961E+0, 1.2853E+0, 1.2776E+0, 1.2575E+0,
     * 1.2091E+0, 1.1350E+0, 1.0146E+0, 9.7810E-1, 9.6781E-1, 9.6925E-1,
     * 9.7263E-1, 2.2627E+0, 2.0039E+0, 1.8555E+0, 1.6439E+0, 1.4929E+0,
     * 1.3801E+0, 1.3365E+0, 1.3008E+0, 1.2784E+0, 1.2609E+0, 1.2521E+0,
     * 1.2426E+0, 1.2359E+0, 1.2182E+0, 1.1750E+0, 1.1078E+0, 9.9747E-1,
     * 9.6566E-1, 9.5949E-1, 9.6267E-1, 9.6748E-1, 2.0510E+0, 1.8440E+0,
     * 1.7242E+0, 1.5511E+0, 1.4251E+0, 1.3287E+0, 1.2907E+0, 1.2591E+0,
     * 1.2390E+0, 1.2232E+0, 1.2151E+0, 1.2065E+0, 1.2004E+0, 1.1842E+0,
     * 1.1443E+0, 1.0816E+0, 9.7924E-1, 9.5207E-1, 9.5035E-1, 9.5547E-1,
     * 9.6186E-1,-1.5139E+0,-1.6266E-1, 4.7979E-1, 1.1530E+0, 1.3679E+0,
     * 1.2881E+0, 1.1720E+0, 1.0802E+0, 1.1073E+0, 1.2830E+0, 1.3600E+0,
     * 2.0718E+0, 4.7409E-1, 1.1340E+0, 1.0963E+0, 1.0373E+0, 9.4522E-1,
     * 9.2629E-1, 9.3303E-1, 9.4187E-1, 9.5129E-1, 7.2639E-1, 1.0606E+0,
     * 1.2067E+0, 1.3312E+0, 1.3284E+0, 1.2435E+0, 1.1257E+0/
      DATA X2401/ 1.0327E+0, 1.0592E+0, 1.2344E+0, 1.3113E+0, 2.0229E+0,
     * 4.2511E-1, 1.0848E+0, 1.0469E+0, 9.8898E-1, 9.0625E-1, 8.9672E-1,
     * 9.1334E-1, 9.2649E-1, 9.3940E-1, 2.2041E+0, 1.7326E+0, 1.5197E+0,
     * 1.3216E+0, 1.2957E+0, 1.1987E+0, 1.0775E+0, 9.8224E-1, 1.0075E+0,
     * 1.1820E+0, 1.2585E+0, 1.9698E+0, 3.7173E-1, 1.0310E+0, 9.9241E-1,
     * 9.3548E-1, 8.6356E-1, 8.6473E-1, 8.9231E-1, 9.1016E-1, 9.2684E-1,
     * 1.7221E+0, 1.6394E+0, 1.5429E+0, 1.3146E+0, 1.2743E+0, 1.1705E+0,
     * 1.0475E+0, 9.5109E-1, 9.7578E-1, 1.1499E+0, 1.2263E+0, 1.9374E+0,
     * 3.3924E-1, 9.9829E-1, 9.5964E-1, 9.0374E-1, 8.3886E-1, 8.4645E-1,
     * 8.8041E-1, 9.0096E-1, 9.1979E-1, 1.5052E+0, 1.7054E+0, 1.5687E+0,
     * 1.2944E+0, 1.2338E+0, 1.1211E+0, 9.9580E-1, 8.9811E-1, 9.2223E-1,
     * 1.0960E+0, 1.1723E+0, 1.8833E+0, 2.8508E-1, 9.4409E-1, 9.0588E-1,
     * 8.5245E-1, 7.9994E-1, 8.1797E-1, 8.6203E-1, 8.8680E-1, 9.0897E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0006E+0, 1.0004E+0/
      DATA X2501/ 1.0003E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0004E+0, 1.0002E+0, 1.0001E+0, 1.0001E+0,
     * 1.0001E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0116E+0,
     * 1.0069E+0, 1.0048E+0, 1.0028E+0, 1.0020E+0, 1.0015E+0, 1.0013E+0,
     * 1.0012E+0, 1.0011E+0, 1.0010E+0, 1.0010E+0, 1.0010E+0, 1.0010E+0,
     * 1.0009E+0, 1.0008E+0, 1.0006E+0, 1.0003E+0, 1.0002E+0, 1.0001E+0,
     * 1.0001E+0, 1.0001E+0, 1.0361E+0, 1.0237E+0, 1.0175E+0, 1.0104E+0,
     * 1.0071E+0, 1.0053E+0, 1.0047E+0, 1.0042E+0, 1.0039E+0, 1.0037E+0,
     * 1.0036E+0, 1.0035E+0, 1.0034E+0, 1.0032E+0, 1.0028E+0, 1.0021E+0,
     * 1.0010E+0, 1.0006E+0, 1.0004E+0, 1.0003E+0, 1.0002E+0, 1.1524E+0,
     * 1.1071E+0, 1.0831E+0, 1.0527E+0, 1.0351E+0, 1.0257E+0, 1.0226E+0,
     * 1.0203E+0, 1.0189E+0, 1.0178E+0, 1.0173E+0, 1.0168E+0, 1.0164E+0,
     * 1.0154E+0, 1.0131E+0, 1.0098E+0, 1.0046E+0, 1.0027E+0/
      DATA X2601/ 1.0016E+0, 1.0013E+0, 1.0010E+0, 1.6114E+0, 1.4375E+0,
     * 1.3439E+0, 1.2212E+0, 1.1457E+0, 1.1002E+0, 1.0864E+0, 1.0763E+0,
     * 1.0705E+0, 1.0661E+0, 1.0639E+0, 1.0617E+0, 1.0601E+0, 1.0561E+0,
     * 1.0469E+0, 1.0341E+0, 1.0154E+0, 1.0090E+0, 1.0053E+0, 1.0041E+0,
     * 1.0033E+0, 3.4429E+0, 2.7280E+0, 2.3416E+0, 1.8330E+0, 1.5168E+0,
     * 1.3228E+0, 1.2628E+0, 1.2226E+0, 1.2005E+0, 1.1847E+0, 1.1771E+0,
     * 1.1693E+0, 1.1640E+0, 1.1505E+0, 1.1212E+0, 1.0834E+0, 1.0345E+0,
     * 1.0196E+0, 1.0114E+0, 1.0089E+0, 1.0071E+0, 6.4163E+0, 4.8122E+0,
     * 3.9429E+0, 2.7946E+0, 2.0756E+0, 1.6292E+0, 1.4892E+0, 1.3936E+0,
     * 1.3448E+0, 1.3114E+0, 1.2958E+0, 1.2801E+0, 1.2694E+0, 1.2432E+0,
     * 1.1888E+0, 1.1238E+0, 1.0477E+0, 1.0266E+0, 1.0154E+0, 1.0121E+0,
     * 1.0098E+0, 1.4220E+1, 1.0234E+1, 8.0740E+0, 5.2182E+0, 3.4283E+0,
     * 2.3151E+0, 1.9650E+0, 1.7255E+0, 1.6030E+0, 1.5257E+0, 1.4915E+0,
     * 1.4578E+0, 1.4356E+0, 1.3829E+0, 1.2816E+0, 1.1731E+0, 1.0616E+0,
     * 1.0337E+0, 1.0196E+0, 1.0155E+0, 1.0127E+0, 3.6870E+1, 2.5825E+1,
     * 1.9849E+1, 1.1965E+1, 7.0441E+0, 4.0039E+0, 3.0565E+0, 2.4147E+0,
     * 2.0907E+0, 1.8901E+0, 1.8089E+0, 1.7334E+0, 1.6857E+0/
      DATA X2701/ 1.5787E+0, 1.3946E+0, 1.2244E+0, 1.0740E+0, 1.0401E+0,
     * 1.0238E+0, 1.0191E+0, 1.0158E+0, 1.3060E+2, 8.9885E+1, 6.7893E+1,
     * 3.8984E+1, 2.1051E+1, 1.0090E+1, 6.7246E+0, 4.4818E+0, 3.3759E+0,
     * 2.7127E+0, 2.4546E+0, 2.2432E+0, 2.1219E+0, 1.8779E+0, 1.5323E+0,
     * 1.2749E+0, 1.0850E+0, 1.0465E+0, 1.0284E+0, 1.0232E+0, 1.0196E+0,
     * 2.8502E+2, 1.9557E+2, 1.4725E+2, 8.3697E+1, 4.4257E+1, 2.0124E+1,
     * 1.2704E+1, 7.7507E+0, 5.3024E+0, 3.8293E+0, 3.2536E+0, 2.7793E+0,
     * 2.5391E+0, 2.1129E+0, 1.6116E+0, 1.2974E+0, 1.0902E+0, 1.0503E+0,
     * 1.0316E+0, 1.0262E+0, 1.0225E+0, 2.3006E+2, 1.6238E+2, 1.2530E+2,
     * 7.5541E+1, 4.3463E+1, 2.2596E+1, 1.5643E+1, 1.0599E+1, 7.8181E+0,
     * 5.9047E+0, 5.0372E+0, 4.1941E+0, 3.6540E+0, 2.4865E+0, 1.6694E+0,
     * 1.3055E+0, 1.0966E+0, 1.0570E+0, 1.0380E+0, 1.0324E+0, 1.0283E+0,
     * 1.1771E+3, 8.2269E+2, 6.2919E+2, 3.7070E+2, 2.0547E+2, 9.9381E+1,
     * 6.4604E+1, 3.9774E+1, 2.6343E+1, 1.7297E+1, 1.3280E+1, 9.4548E+0,
     * 7.0632E+0, 2.1808E+0, 1.4973E+0, 1.2596E+0, 1.1038E+0, 1.0684E+0,
     * 1.0493E+0, 1.0430E+0, 1.0383E+0, 7.9414E+2, 5.5518E+2, 4.2471E+2,
     * 2.5040E+2, 1.3898E+2, 6.7432E+1, 4.3976E+1, 2.7226E+1/
      DATA X2801/ 1.8165E+1, 1.2061E+1, 9.3501E+0, 6.7683E+0, 5.1538E+0,
     * 1.8564E+0, 1.3800E+0, 1.2346E+0, 1.1333E+0, 1.1022E+0, 1.0806E+0,
     * 1.0722E+0, 1.0655E+0, 1.5192E+2, 1.0723E+2, 8.2755E+1, 4.9934E+1,
     * 2.8799E+1, 1.5075E+1, 1.0511E+1, 7.2082E+0, 5.3913E+0, 4.1445E+0,
     * 3.5807E+0, 3.0340E+0, 2.6849E+0, 1.9350E+0, 1.4571E+0, 1.2688E+0,
     * 1.1582E+0, 1.1262E+0, 1.1025E+0, 1.0928E+0, 1.0847E+0, 1.2480E+2,
     * 8.6704E+1, 6.6027E+1, 3.8640E+1, 2.1410E+1, 1.0625E+1, 7.2043E+0,
     * 4.8426E+0, 3.6191E+0, 2.8362E+0, 2.5069E+0, 2.2106E+0, 2.0385E+0,
     * 1.7536E+0, 1.4548E+0, 1.2906E+0, 1.1811E+0, 1.1484E+0, 1.1229E+0,
     * 1.1121E+0, 1.1030E+0, 8.1738E+1, 5.6653E+1, 4.3070E+1, 2.5155E+1,
     * 1.3970E+1, 7.0588E+0, 4.9041E+0, 3.4435E+0, 2.7057E+0, 2.2486E+0,
     * 2.0633E+0, 1.9036E+0, 1.8165E+0, 1.6512E+0, 1.4403E+0, 1.3012E+0,
     * 1.1969E+0, 1.1640E+0, 1.1375E+0, 1.1259E+0, 1.1160E+0, 2.8621E+1,
     * 2.0204E+1, 1.5640E+1, 9.6057E+0, 5.8203E+0, 3.4631E+0, 2.7206E+0,
     * 2.2115E+0, 1.9503E+0, 1.7852E+0, 1.7167E+0, 1.6560E+0, 1.6192E+0,
     * 1.5403E+0, 1.4171E+0, 1.3151E+0, 1.2228E+0, 1.1903E+0, 1.1623E+0,
     * 1.1496E+0, 1.1385E+0, 1.6862E+1, 1.1951E+1, 9.3047E+0/
      DATA X2901/ 5.8405E+0, 3.7075E+0, 2.4203E+0, 2.0324E+0, 1.7792E+0,
     * 1.6583E+0, 1.5890E+0, 1.5598E+0, 1.5321E+0, 1.5144E+0, 1.4736E+0,
     * 1.4007E+0, 1.3290E+0, 1.2517E+0, 1.2204E+0, 1.1911E+0, 1.1773E+0,
     * 1.1650E+0, 7.9351E+0, 5.8439E+0, 4.7205E+0, 3.2547E+0, 2.3591E+0,
     * 1.8257E+0, 1.6681E+0, 1.5676E+0, 1.5214E+0, 1.4914E+0, 1.4780E+0,
     * 1.4646E+0, 1.4558E+0, 1.4345E+0, 1.3928E+0, 1.3460E+0, 1.2865E+0,
     * 1.2575E+0, 1.2273E+0, 1.2121E+0, 1.1984E+0, 4.4463E+0, 3.4545E+0,
     * 2.9245E+0, 2.2389E+0, 1.8268E+0, 1.5884E+0, 1.5211E+0, 1.4807E+0,
     * 1.4600E+0, 1.4458E+0, 1.4392E+0, 1.4325E+0, 1.4280E+0, 1.4169E+0,
     * 1.3939E+0, 1.3661E+0, 1.3252E+0, 1.2997E+0, 1.2688E+0, 1.2523E+0,
     * 1.2372E+0, 3.0861E+0, 2.4222E+0, 2.0872E+0, 1.6930E+0, 1.5033E+0,
     * 1.4443E+0, 1.4510E+0, 1.4594E+0, 1.4431E+0, 1.3953E+0, 1.3767E+0,
     * 1.2731E+0, 1.6878E+0, 1.4155E+0, 1.4120E+0, 1.4091E+0, 1.4011E+0,
     * 1.3833E+0, 1.3522E+0, 1.3337E+0, 1.3160E+0, 1.9051E+0, 1.6789E+0,
     * 1.5692E+0, 1.4494E+0, 1.4040E+0, 1.4064E+0, 1.4319E+0, 1.4558E+0,
     * 1.4467E+0, 1.4003E+0, 1.3827E+0, 1.2734E+0, 1.7595E+0, 1.4374E+0,
     * 1.4478E+0, 1.4660E+0, 1.4922E+0, 1.4840E+0, 1.4534E+0/
      DATA X3001/ 1.4329E+0, 1.4127E+0, 1.3610E+0, 1.3598E+0, 1.3607E+0,
     * 1.3649E+0, 1.3711E+0, 1.4029E+0, 1.4412E+0, 1.4768E+0, 1.4722E+0,
     * 1.4237E+0, 1.4058E+0, 1.2862E+0, 1.8649E+0, 1.4758E+0, 1.4980E+0,
     * 1.5354E+0, 1.5957E+0, 1.5975E+0, 1.5679E+0, 1.5455E+0, 1.5230E+0,
     * 1.3971E+0, 1.3198E+0, 1.3054E+0, 1.3400E+0, 1.3644E+0, 1.4089E+0,
     * 1.4535E+0, 1.4952E+0, 1.4926E+0, 1.4420E+0, 1.4235E+0, 1.2966E+0,
     * 1.9362E+0, 1.5023E+0, 1.5305E+0, 1.5781E+0, 1.6570E+0, 1.6642E+0,
     * 1.6351E+0, 1.6118E+0, 1.5880E+0, 1.2867E+0, 1.2334E+0, 1.2483E+0,
     * 1.3154E+0, 1.3625E+0, 1.4242E+0, 1.4784E+0, 1.5294E+0, 1.5293E+0,
     * 1.4745E+0, 1.4547E+0, 1.3154E+0, 2.0611E+0, 1.5475E+0, 1.5849E+0,
     * 1.6478E+0, 1.7545E+0, 1.7698E+0, 1.7416E+0, 1.7171E+0, 1.6918E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9959E-1, 9.9976E-1, 9.9984E-1,
     * 9.9991E-1, 9.9994E-1, 9.9996E-1, 9.9996E-1, 9.9997E-1, 9.9997E-1,
     * 9.9997E-1, 9.9997E-1, 9.9997E-1, 9.9997E-1, 9.9998E-1/
      DATA X3101/ 9.9998E-1, 9.9999E-1, 1.0000E+0, 1.0000E+0, 1.0000E+0,
     * 1.0000E+0, 1.0000E+0, 9.9976E-1, 9.9988E-1, 9.9992E-1, 9.9995E-1,
     * 9.9997E-1, 9.9998E-1, 9.9998E-1, 9.9998E-1, 9.9999E-1, 9.9999E-1,
     * 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1, 9.9999E-1,
     * 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 1.0000E+0, 9.9263E-1,
     * 9.9573E-1, 9.9710E-1, 9.9833E-1, 9.9889E-1, 9.9921E-1, 9.9931E-1,
     * 9.9939E-1, 9.9944E-1, 9.9948E-1, 9.9950E-1, 9.9952E-1, 9.9953E-1,
     * 9.9957E-1, 9.9965E-1, 9.9977E-1, 9.9998E-1, 1.0001E+0, 1.0001E+0,
     * 1.0002E+0, 1.0002E+0, 9.7773E-1, 9.8555E-1, 9.8945E-1, 9.9395E-1,
     * 9.9600E-1, 9.9714E-1, 9.9752E-1, 9.9782E-1, 9.9799E-1, 9.9813E-1,
     * 9.9819E-1, 9.9826E-1, 9.9831E-1, 9.9844E-1, 9.9874E-1, 9.9919E-1,
     * 9.9994E-1, 1.0003E+0, 1.0005E+0, 1.0006E+0, 1.0006E+0, 9.1227E-1,
     * 9.3859E-1, 9.5253E-1, 9.7031E-1, 9.8070E-1, 9.8637E-1, 9.8823E-1,
     * 9.8966E-1, 9.9051E-1, 9.9115E-1, 9.9147E-1, 9.9181E-1, 9.9205E-1,
     * 9.9267E-1, 9.9411E-1, 9.9625E-1, 9.9978E-1, 1.0013E+0, 1.0023E+0,
     * 1.0027E+0, 1.0031E+0, 7.0021E-1, 7.8401E-1, 8.2943E-1, 8.8943E-1,
     * 9.2705E-1, 9.5046E-1, 9.5782E-1, 9.6334E-1, 9.6660E-1/
      DATA X3201/ 9.6905E-1, 9.7026E-1, 9.7153E-1, 9.7242E-1, 9.7471E-1,
     * 9.8003E-1, 9.8767E-1, 9.9985E-1, 1.0047E+0, 1.0082E+0, 1.0096E+0,
     * 1.0107E+0, 1.3759E-1, 3.7679E-1, 5.0746E-1, 6.8218E-1, 7.9401E-1,
     * 8.6596E-1, 8.8960E-1, 9.0653E-1, 9.1623E-1, 9.2336E-1, 9.2684E-1,
     * 9.3046E-1, 9.3297E-1, 9.3937E-1, 9.5378E-1, 9.7349E-1, 1.0023E+0,
     * 1.0131E+0, 1.0206E+0, 1.0235E+0, 1.0258E+0,-4.7688E-1,-6.7566E-2,
     * 1.5689E-1, 4.5851E-1, 6.5343E-1, 7.8067E-1, 8.2326E-1, 8.5428E-1,
     * 8.7147E-1, 8.8385E-1, 8.8980E-1, 8.9595E-1, 9.0017E-1, 9.1082E-1,
     * 9.3417E-1, 9.6469E-1, 1.0064E+0, 1.0211E+0, 1.0310E+0, 1.0348E+0,
     * 1.0379E+0,-1.6006E+0,-8.7071E-1,-4.7052E-1, 6.7932E-2, 4.1664E-1,
     * 6.4492E-1, 7.2159E-1, 7.7761E-1, 8.0878E-1, 8.3043E-1, 8.4060E-1,
     * 8.5095E-1, 8.5799E-1, 8.7542E-1, 9.1214E-1, 9.5720E-1, 1.0135E+0,
     * 1.0320E+0, 1.0443E+0, 1.0490E+0, 1.0528E+0,-3.7854E+0,-2.4109E+0,
     *-1.6575E+0,-6.4777E-1, 2.8839E-3, 4.2546E-1, 5.6599E-1, 6.6774E-1,
     * 7.2372E-1, 7.6215E-1, 7.7954E-1, 7.9681E-1, 8.0832E-1, 8.3609E-1,
     * 8.9131E-1, 9.5362E-1, 1.0239E+0, 1.0454E+0, 1.0595E+0, 1.0649E+0,
     * 1.0693E+0,-9.5000E+0,-6.3811E+0,-4.6804E+0,-2.4128E+0/
      DATA X3301/-9.6802E-1,-4.5456E-2, 2.5504E-1, 4.6819E-1, 5.8253E-1,
     * 6.5882E-1, 6.9238E-1, 7.2403E-1, 7.4427E-1, 7.9067E-1, 8.7414E-1,
     * 9.5699E-1, 1.0393E+0, 1.0629E+0, 1.0784E+0, 1.0844E+0, 1.0894E+0,
     *-1.6639E+1,-1.1327E+1,-8.4348E+0,-4.5874E+0,-2.1458E+0,-5.9671E-1,
     *-9.6512E-2, 2.5528E-1, 4.4199E-1, 5.6501E-1, 6.1841E-1, 6.6813E-1,
     * 6.9833E-1, 7.6369E-1, 8.7012E-1, 9.6471E-1, 1.0510E+0, 1.0753E+0,
     * 1.0916E+0, 1.0979E+0, 1.1032E+0,-1.8401E+1,-1.2824E+1,-9.7542E+0,
     *-5.6065E+0,-2.9003E+0,-1.1074E+0,-4.9681E-1,-4.4770E-2, 2.1050E-1,
     * 3.9062E-1, 4.7425E-1, 5.5734E-1, 6.1192E-1, 7.3656E-1, 8.8692E-1,
     * 9.8997E-1, 1.0736E+0, 1.0981E+0, 1.1156E+0, 1.1226E+0, 1.1285E+0,
     *-7.7491E+1,-5.4014E+1,-4.1177E+1,-2.3994E+1,-1.2969E+1,-5.8505E+0,
     *-3.4999E+0,-1.8098E+0,-8.8771E-1,-2.6059E-1, 2.0549E-2, 2.9082E-1,
     * 4.6174E-1, 8.2041E-1, 9.6853E-1, 1.0372E+0, 1.1031E+0, 1.1286E+0,
     * 1.1486E+0, 1.1570E+0, 1.1641E+0,-7.2119E+1,-5.0259E+1,-3.8304E+1,
     *-2.2300E+1,-1.2029E+1,-5.3932E+0,-3.2010E+0,-1.6239E+0,-7.6283E-1,
     *-1.7681E-1, 8.6090E-2, 3.3901E-1, 4.9909E-1, 8.3570E-1, 9.8130E-1,
     * 1.0578E+0, 1.1432E+0, 1.1791E+0, 1.2082E+0, 1.2204E+0/
      DATA X3401/ 1.2309E+0,-1.9586E+1,-1.3639E+1,-1.0367E+1,-5.9482E+0,
     *-3.0686E+0,-1.1640E+0,-5.1664E-1,-3.8231E-2, 2.3138E-1, 4.2123E-1,
     * 5.0919E-1, 5.9644E-1, 6.5363E-1, 7.8371E-1, 9.3577E-1, 1.0456E+0,
     * 1.1568E+0, 1.1995E+0, 1.2336E+0, 1.2479E+0, 1.2601E+0,-1.5400E+1,
     *-1.0541E+1,-7.8836E+0,-4.3263E+0,-2.0430E+0,-5.6778E-1,-8.0351E-2,
     * 2.7041E-1, 4.6195E-1, 5.9234E-1, 6.5085E-1, 7.0715E-1, 7.4279E-1,
     * 8.1778E-1, 9.3632E-1, 1.0443E+0, 1.1641E+0, 1.2106E+0, 1.2478E+0,
     * 1.2636E+0, 1.2770E+0,-1.0966E+1,-7.4128E+0,-5.4714E+0,-2.8770E+0,
     *-1.2150E+0,-1.4580E-1, 2.0586E-1, 4.5770E-1, 5.9443E-1, 6.8690E-1,
     * 7.2814E-1, 7.6757E-1, 7.9234E-1, 8.4814E-1, 9.4658E-1, 1.0467E+0,
     * 1.1665E+0, 1.2145E+0, 1.2533E+0, 1.2698E+0, 1.2838E+0,-5.1094E+0,
     *-3.3372E+0,-2.3657E+0,-1.0581E+0,-2.1175E-1, 3.4242E-1, 5.2870E-1,
     * 6.6488E-1, 7.4063E-1, 7.9328E-1, 8.1737E-1, 8.4100E-1, 8.5658E-1,
     * 8.9380E-1, 9.6703E-1, 1.0518E+0, 1.1660E+0, 1.2149E+0, 1.2553E+0,
     * 1.2726E+0, 1.2874E+0,-3.1521E+0,-1.9295E+0,-1.2616E+0,-3.6778E-1,
     * 2.0552E-1, 5.7538E-1, 6.9737E-1, 7.8500E-1, 8.3275E-1, 8.6518E-1,
     * 8.8027E-1, 8.9554E-1, 9.0588E-1, 9.3144E-1, 9.8544E-1/
      DATA X3501/ 1.0544E+0, 1.1587E+0, 1.2068E+0, 1.2478E+0, 1.2656E+0,
     * 1.2809E+0,-1.4185E+0,-7.1031E-1,-3.2291E-1, 1.9569E-1, 5.2848E-1,
     * 7.4339E-1, 8.1438E-1, 8.6543E-1, 8.9329E-1, 9.1328E-1, 9.2288E-1,
     * 9.3281E-1, 9.3964E-1, 9.5695E-1, 9.9557E-1, 1.0492E+0, 1.1403E+0,
     * 1.1861E+0, 1.2264E+0, 1.2441E+0, 1.2595E+0,-4.7104E-1,-4.2557E-2,
     * 1.9133E-1, 5.0372E-1, 7.0330E-1, 8.3133E-1, 8.7325E-1, 9.0315E-1,
     * 9.2039E-1, 9.3318E-1, 9.3945E-1, 9.4603E-1, 9.5061E-1, 9.6243E-1,
     * 9.8989E-1, 1.0308E+0, 1.1077E+0, 1.1497E+0, 1.1880E+0, 1.2051E+0,
     * 1.2200E+0, 3.4004E-1, 5.1054E-1, 6.0360E-1, 7.2789E-1, 8.0733E-1,
     * 8.5832E-1, 8.7502E-1, 8.8800E-1, 8.9593E-1, 9.0204E-1, 9.0511E-1,
     * 9.0839E-1, 9.1071E-1, 9.1682E-1, 9.3179E-1, 9.5626E-1, 1.0099E+0,
     * 1.0428E+0, 1.0745E+0, 1.0891E+0, 1.1020E+0, 5.8433E-1, 6.4345E-1,
     * 6.7563E-1, 7.1841E-1, 7.4551E-1, 7.6268E-1, 7.6909E-1, 7.7439E-1,
     * 7.7777E-1, 7.8046E-1, 7.8184E-1, 7.8333E-1, 7.8439E-1, 7.8725E-1,
     * 7.9456E-1, 8.0747E-1, 8.3955E-1, 8.6136E-1, 8.8347E-1, 8.9395E-1,
     * 9.0333E-1, 5.2701E-1, 5.3543E-1, 5.4017E-1, 5.4680E-1, 5.5139E-1,
     * 5.5537E-1, 5.5713E-1, 5.5869E-1, 5.5974E-1, 5.6060E-1/
      DATA X3601/ 5.6105E-1, 5.6155E-1, 5.6191E-1, 5.6289E-1, 5.6553E-1,
     * 5.7059E-1, 5.8494E-1, 5.9576E-1, 6.0736E-1, 6.1304E-1, 6.1821E-1,
     * 4.0028E-1, 3.9587E-1, 3.9394E-1, 3.9229E-1, 3.9228E-1, 3.9299E-1,
     * 3.9345E-1, 3.9392E-1, 3.9426E-1, 3.9455E-1, 3.9471E-1, 3.9488E-1,
     * 3.9501E-1, 3.9538E-1, 3.9642E-1, 3.9858E-1, 4.0554E-1, 4.1125E-1,
     * 4.1764E-1, 4.2084E-1, 4.2379E-1, 8.1052E-2, 7.7253E-2, 7.5739E-2,
     * 7.4224E-2, 7.3515E-2, 7.3152E-2, 7.3047E-2, 7.2975E-2, 7.2937E-2,
     * 7.2911E-2, 7.2899E-2, 7.2887E-2, 7.2879E-2, 7.2862E-2, 7.2838E-2,
     * 7.2864E-2, 7.3271E-2, 7.3772E-2, 7.4425E-2, 7.4777E-2, 7.5112E-2,
     * 5.2389E-5, 6.6358E-5, 7.5490E-5, 9.0406E-5, 1.0296E-4, 1.1398E-4,
     * 1.1880E-4, 1.2309E-4, 1.2597E-4, 1.2833E-4, 1.2958E-4, 1.3094E-4,
     * 1.3193E-4, 1.3463E-4, 1.4194E-4, 1.5619E-4, 1.9999E-4, 2.3868E-4,
     * 2.9039E-4, 3.2284E-4, 3.5600E-4, 5.0920E-5, 6.5078E-5, 7.4210E-5,
     * 8.9126E-5, 1.0168E-4, 1.1270E-4, 1.1752E-4, 1.2181E-4, 1.2469E-4,
     * 1.2705E-4, 1.2830E-4, 1.2966E-4, 1.3065E-4, 1.3335E-4, 1.4066E-4,
     * 1.5491E-4, 1.9871E-4, 2.3740E-4, 2.8911E-4, 3.2156E-4, 3.5472E-4,
     * 5.0751E-5, 6.4720E-5, 7.3851E-5, 8.8767E-5, 1.0132E-4/
      DATA X3701/ 1.1235E-4, 1.1717E-4, 1.2145E-4, 1.2433E-4, 1.2670E-4,
     * 1.2794E-4, 1.2930E-4, 1.3029E-4, 1.3300E-4, 1.4030E-4, 1.5455E-4,
     * 1.9835E-4, 2.3704E-4, 2.8875E-4, 3.2121E-4, 3.5436E-4, 5.1427E-5,
     * 6.5584E-5, 7.4716E-5, 8.9632E-5, 1.0219E-4, 1.1321E-4, 1.1803E-4,
     * 1.2231E-4, 1.2519E-4, 1.2756E-4, 1.2880E-4, 1.3016E-4, 1.3115E-4,
     * 1.3386E-4, 1.4117E-4, 1.5542E-4, 1.9921E-4, 2.3790E-4, 2.8961E-4,
     * 3.2207E-4, 3.5523E-4, 5.1169E-5, 6.5616E-5, 7.4841E-5, 8.9757E-5,
     * 1.0231E-4, 1.1333E-4, 1.1816E-4, 1.2244E-4, 1.2532E-4, 1.2768E-4,
     * 1.2893E-4, 1.3029E-4, 1.3128E-4, 1.3399E-4, 1.4129E-4, 1.5554E-4,
     * 1.9934E-4, 2.3803E-4, 2.8974E-4, 3.2219E-4, 3.5535E-4, 5.1641E-5,
     * 6.6464E-5, 7.5856E-5, 9.0915E-5, 1.0347E-4, 1.1449E-4, 1.1931E-4,
     * 1.2360E-4, 1.2648E-4, 1.2884E-4, 1.3008E-4, 1.3145E-4, 1.3244E-4,
     * 1.3514E-4, 1.4245E-4, 1.5670E-4, 2.0049E-4, 2.3918E-4, 2.9090E-4,
     * 3.2335E-4, 3.5651E-4, 5.2795E-5, 6.7913E-5, 7.7442E-5, 9.2655E-5,
     * 1.0527E-4, 1.1629E-4, 1.2111E-4, 1.2540E-4, 1.2828E-4, 1.3064E-4,
     * 1.3189E-4, 1.3325E-4, 1.3424E-4, 1.3694E-4, 1.4425E-4, 1.5850E-4,
     * 2.0230E-4, 2.4099E-4, 2.9270E-4, 3.2515E-4, 3.5831E-4/
      DATA X3801/ 5.5317E-5, 7.0624E-5, 8.0250E-5, 9.5586E-5, 1.0826E-4,
     * 1.1930E-4, 1.2412E-4, 1.2841E-4, 1.3129E-4, 1.3365E-4, 1.3489E-4,
     * 1.3626E-4, 1.3725E-4, 1.3995E-4, 1.4726E-4, 1.6151E-4, 2.0530E-4,
     * 2.4400E-4, 2.9571E-4, 3.2816E-4, 3.6132E-4, 6.1594E-5, 7.7002E-5,
     * 8.6695E-5, 1.0209E-4, 1.1481E-4, 1.2587E-4, 1.3069E-4, 1.3498E-4,
     * 1.3785E-4, 1.4022E-4, 1.4146E-4, 1.4283E-4, 1.4381E-4, 1.4652E-4,
     * 1.5383E-4, 1.6808E-4, 2.1187E-4, 2.5056E-4, 3.0228E-4, 3.3473E-4,
     * 3.6789E-4, 7.2215E-5, 8.7775E-5, 9.7454E-5, 1.1288E-4, 1.2563E-4,
     * 1.3670E-4, 1.4153E-4, 1.4581E-4, 1.4869E-4, 1.5106E-4, 1.5230E-4,
     * 1.5367E-4, 1.5465E-4, 1.5736E-4, 1.6467E-4, 1.7892E-4, 2.2271E-4,
     * 2.6140E-4, 3.1311E-4, 3.4557E-4, 3.7873E-4, 8.6248E-5, 1.0157E-4,
     * 1.1146E-4, 1.2686E-4, 1.3964E-4, 1.5074E-4, 1.5557E-4, 1.5986E-4,
     * 1.6274E-4, 1.6511E-4, 1.6635E-4, 1.6771E-4, 1.6870E-4, 1.7141E-4,
     * 1.7871E-4, 1.9296E-4, 2.3676E-4, 2.7545E-4, 3.2716E-4, 3.5961E-4,
     * 3.9277E-4, 1.0425E-4, 1.2016E-4, 1.2988E-4, 1.4544E-4, 1.5827E-4,
     * 1.6930E-4, 1.7414E-4, 1.7843E-4, 1.8131E-4, 1.8368E-4, 1.8492E-4,
     * 1.8628E-4, 1.8727E-4, 1.8998E-4, 1.9729E-4, 2.1153E-4/
      DATA X3901/ 2.5533E-4, 2.9402E-4, 3.4573E-4, 3.7819E-4, 4.1135E-4,
     * 1.1778E-4, 1.3345E-4, 1.4335E-4, 1.5873E-4, 1.7156E-4, 1.8261E-4,
     * 1.8745E-4, 1.9173E-4, 1.9462E-4, 1.9699E-4, 1.9823E-4, 1.9959E-4,
     * 2.0058E-4, 2.0329E-4, 2.1060E-4, 2.2484E-4, 2.6864E-4, 3.0733E-4,
     * 3.5904E-4, 3.9150E-4, 4.2466E-4, 1.4247E-4, 1.5812E-4, 1.6797E-4,
     * 1.8357E-4, 1.9642E-4, 2.0755E-4, 2.1239E-4, 2.1669E-4, 2.1957E-4,
     * 2.2194E-4, 2.2318E-4, 2.2454E-4, 2.2553E-4, 2.2824E-4, 2.3555E-4,
     * 2.4980E-4, 2.9359E-4, 3.3228E-4, 3.8399E-4, 4.1645E-4, 4.4961E-4,
     * 1.7740E-4, 1.9313E-4, 2.0298E-4, 2.1860E-4, 2.3146E-4, 2.4259E-4,
     * 2.4744E-4, 2.5173E-4, 2.5462E-4, 2.5699E-4, 2.5823E-4, 2.5959E-4,
     * 2.6058E-4, 2.6329E-4, 2.7060E-4, 2.8484E-4, 3.2864E-4, 3.6733E-4,
     * 4.1904E-4, 4.5150E-4, 4.8466E-4, 2.4351E-4, 2.5916E-4, 2.6900E-4,
     * 2.8462E-4, 2.9746E-4, 3.0859E-4, 3.1343E-4, 3.1772E-4, 3.2061E-4,
     * 3.2297E-4, 3.2422E-4, 3.2558E-4, 3.2657E-4, 3.2928E-4, 3.3658E-4,
     * 3.5083E-4, 3.9463E-4, 4.3332E-4, 4.8503E-4, 5.1748E-4, 5.5064E-4,
     * 2.7879E-4, 2.9447E-4, 3.0435E-4, 3.1993E-4, 3.3277E-4, 3.4390E-4,
     * 3.4874E-4, 3.5304E-4, 3.5592E-4, 3.5829E-4, 3.5953E-4/
      DATA X4001/ 3.6090E-4, 3.6189E-4, 3.6459E-4, 3.7190E-4, 3.8615E-4,
     * 4.2994E-4, 4.6864E-4, 5.2035E-4, 5.5280E-4, 5.8596E-4, 3.0893E-4,
     * 3.2479E-4, 3.3474E-4, 3.5027E-4, 3.6320E-4, 3.7423E-4, 3.7905E-4,
     * 3.8335E-4, 3.8623E-4, 3.8860E-4, 3.8984E-4, 3.9121E-4, 3.9220E-4,
     * 3.9490E-4, 4.0221E-4, 4.1646E-4, 4.6025E-4, 4.9894E-4, 5.5066E-4,
     * 5.8311E-4, 6.1627E-4, 3.3092E-4, 3.4630E-4, 3.5620E-4, 3.7128E-4,
     * 3.8415E-4, 3.9528E-4, 4.0010E-4, 4.0438E-4, 4.0728E-4, 4.0964E-4,
     * 4.1089E-4, 4.1225E-4, 4.1324E-4, 4.1595E-4, 4.2325E-4, 4.3750E-4,
     * 4.8130E-4, 5.1999E-4, 5.7170E-4, 6.0416E-4, 6.3731E-4, 3.6675E-4,
     * 3.8278E-4, 3.9256E-4, 4.0817E-4, 4.2075E-4, 4.3187E-4, 4.3669E-4,
     * 4.4098E-4, 4.4386E-4, 4.4623E-4, 4.4747E-4, 4.4883E-4, 4.4982E-4,
     * 4.5253E-4, 4.5984E-4, 4.7409E-4, 5.1788E-4, 5.5657E-4, 6.0828E-4,
     * 6.4074E-4, 6.7390E-4, 4.1234E-4, 4.2796E-4, 4.3768E-4, 4.5314E-4,
     * 4.6591E-4, 4.7699E-4, 4.8182E-4, 4.8610E-4, 4.8898E-4, 4.9135E-4,
     * 4.9259E-4, 4.9395E-4, 4.9494E-4, 4.9765E-4, 5.0496E-4, 5.1921E-4,
     * 5.6300E-4, 6.0169E-4, 6.5340E-4, 6.8586E-4, 7.1902E-4, 4.7582E-4,
     * 4.9126E-4, 5.0095E-4, 5.1629E-4, 5.2900E-4, 5.4006E-4/
      DATA X4101/ 5.4488E-4, 5.4916E-4, 5.5204E-4, 5.5441E-4, 5.5565E-4,
     * 5.5701E-4, 5.5800E-4, 5.6071E-4, 5.6802E-4, 5.8227E-4, 6.2606E-4,
     * 6.6475E-4, 7.1646E-4, 7.4892E-4, 7.8208E-4, 5.6100E-4, 5.7637E-4,
     * 5.8598E-4, 6.0133E-4, 6.1401E-4, 6.2506E-4, 6.2988E-4, 6.3416E-4,
     * 6.3704E-4, 6.3941E-4, 6.4065E-4, 6.4201E-4, 6.4300E-4, 6.4571E-4,
     * 6.5302E-4, 6.6727E-4, 7.1106E-4, 7.4975E-4, 8.0146E-4, 8.3392E-4,
     * 8.6708E-4, 7.9022E-4, 8.0536E-4, 8.1490E-4, 8.3011E-4, 8.4272E-4,
     * 8.5374E-4, 8.5857E-4, 8.6285E-4, 8.6573E-4, 8.6809E-4, 8.6934E-4,
     * 8.7070E-4, 8.7169E-4, 8.7440E-4, 8.8170E-4, 8.9595E-4, 9.3975E-4,
     * 9.7844E-4, 1.0301E-3, 1.0626E-3, 1.0958E-3, 1.2265E-3, 1.2413E-3,
     * 1.2507E-3, 1.2658E-3, 1.2783E-3, 1.2894E-3, 1.2942E-3, 1.2985E-3,
     * 1.3014E-3, 1.3037E-3, 1.3050E-3, 1.3063E-3, 1.3073E-3, 1.3100E-3,
     * 1.3173E-3, 1.3316E-3, 1.3754E-3, 1.4141E-3, 1.4658E-3, 1.4982E-3,
     * 1.5314E-3, 2.0662E-3, 2.0806E-3, 2.0898E-3, 2.1047E-3, 2.1173E-3,
     * 2.1283E-3, 2.1331E-3, 2.1374E-3, 2.1403E-3, 2.1427E-3, 2.1439E-3,
     * 2.1453E-3, 2.1463E-3, 2.1490E-3, 2.1563E-3, 2.1705E-3, 2.2143E-3,
     * 2.2530E-3, 2.3047E-3, 2.3372E-3, 2.3703E-3, 2.8271E-3/
      DATA X4201/ 2.8413E-3, 2.8504E-3, 2.8653E-3, 2.8779E-3, 2.8889E-3,
     * 2.8937E-3, 2.8980E-3, 2.9009E-3, 2.9033E-3, 2.9045E-3, 2.9059E-3,
     * 2.9068E-3, 2.9096E-3, 2.9169E-3, 2.9311E-3, 2.9749E-3, 3.0136E-3,
     * 3.0653E-3, 3.0978E-3, 3.1309E-3, 4.6749E-3, 4.6889E-3, 4.6980E-3,
     * 4.7129E-3, 4.7255E-3, 4.7365E-3, 4.7413E-3, 4.7456E-3, 4.7485E-3,
     * 4.7508E-3, 4.7521E-3, 4.7535E-3, 4.7544E-3, 4.7571E-3, 4.7645E-3,
     * 4.7787E-3, 4.8225E-3, 4.8612E-3, 4.9129E-3, 4.9454E-3, 4.9785E-3,
     * 6.0133E-5, 7.8747E-5, 9.0575E-5, 1.0959E-4, 1.2548E-4, 1.3946E-4,
     * 1.4560E-4, 1.5109E-4, 1.5479E-4, 1.5784E-4, 1.5944E-4, 1.6120E-4,
     * 1.6249E-4, 1.6601E-4, 1.7557E-4, 1.9458E-4, 2.5688E-4, 3.1782E-4,
     * 4.0697E-4, 4.6469E-4, 5.2853E-4, 6.0119E-5, 7.8747E-5, 9.0575E-5,
     * 1.0959E-4, 1.2548E-4, 1.3946E-4, 1.4560E-4, 1.5109E-4, 1.5479E-4,
     * 1.5784E-4, 1.5944E-4, 1.6120E-4, 1.6249E-4, 1.6601E-4, 1.7557E-4,
     * 1.9458E-4, 2.5688E-4, 3.1782E-4, 4.0697E-4, 4.6469E-4, 5.2853E-4,
     * 6.0133E-5, 7.8747E-5, 9.0575E-5, 1.0959E-4, 1.2548E-4, 1.3946E-4,
     * 1.4560E-4, 1.5109E-4, 1.5479E-4, 1.5784E-4, 1.5944E-4, 1.6120E-4,
     * 1.6249E-4, 1.6601E-4, 1.7557E-4, 1.9458E-4, 2.5688E-4/
      DATA X4301/ 3.1782E-4, 4.0697E-4, 4.6469E-4, 5.2853E-4, 6.0119E-5,
     * 7.8747E-5, 9.0575E-5, 1.0959E-4, 1.2548E-4, 1.3946E-4, 1.4560E-4,
     * 1.5109E-4, 1.5479E-4, 1.5784E-4, 1.5944E-4, 1.6120E-4, 1.6249E-4,
     * 1.6601E-4, 1.7557E-4, 1.9458E-4, 2.5688E-4, 3.1782E-4, 4.0697E-4,
     * 4.6469E-4, 5.2853E-4, 6.0108E-5, 7.8745E-5, 9.0575E-5, 1.0959E-4,
     * 1.2548E-4, 1.3946E-4, 1.4560E-4, 1.5109E-4, 1.5479E-4, 1.5784E-4,
     * 1.5944E-4, 1.6120E-4, 1.6249E-4, 1.6601E-4, 1.7557E-4, 1.9458E-4,
     * 2.5688E-4, 3.1782E-4, 4.0697E-4, 4.6469E-4, 5.2853E-4, 6.0119E-5,
     * 7.8750E-5, 9.0578E-5, 1.0959E-4, 1.2548E-4, 1.3946E-4, 1.4561E-4,
     * 1.5109E-4, 1.5479E-4, 1.5784E-4, 1.5944E-4, 1.6121E-4, 1.6249E-4,
     * 1.6601E-4, 1.7558E-4, 1.9459E-4, 2.5688E-4, 3.1782E-4, 4.0697E-4,
     * 4.6469E-4, 5.2854E-4, 6.8042E-5, 8.6667E-5, 9.8488E-5, 1.1749E-4,
     * 1.3338E-4, 1.4736E-4, 1.5350E-4, 1.5899E-4, 1.6269E-4, 1.6574E-4,
     * 1.6734E-4, 1.6910E-4, 1.7039E-4, 1.7391E-4, 1.8347E-4, 2.0248E-4,
     * 2.6478E-4, 3.2572E-4, 4.1487E-4, 4.7259E-4, 5.3643E-4, 7.8343E-5,
     * 9.6943E-5, 1.0875E-4, 1.2775E-4, 1.4364E-4, 1.5761E-4, 1.6376E-4,
     * 1.6924E-4, 1.7294E-4, 1.7599E-4, 1.7760E-4, 1.7936E-4/
      DATA X4401/ 1.8064E-4, 1.8416E-4, 1.9373E-4, 2.1274E-4, 2.7504E-4,
     * 3.3598E-4, 4.2513E-4, 4.8284E-4, 5.4669E-4, 8.9735E-5, 1.0826E-4,
     * 1.2008E-4, 1.3906E-4, 1.5495E-4, 1.6893E-4, 1.7507E-4, 1.8055E-4,
     * 1.8425E-4, 1.8731E-4, 1.8891E-4, 1.9067E-4, 1.9195E-4, 1.9547E-4,
     * 2.0504E-4, 2.2405E-4, 2.8635E-4, 3.4729E-4, 4.3644E-4, 4.9416E-4,
     * 5.5800E-4, 1.0484E-4, 1.2355E-4, 1.3535E-4, 1.5425E-4, 1.7013E-4,
     * 1.8411E-4, 1.9025E-4, 1.9573E-4, 1.9943E-4, 2.0248E-4, 2.0409E-4,
     * 2.0585E-4, 2.0713E-4, 2.1065E-4, 2.2022E-4, 2.3923E-4, 3.0153E-4,
     * 3.6247E-4, 4.5161E-4, 5.0933E-4, 5.7318E-4, 1.2273E-4, 1.4102E-4,
     * 1.5295E-4, 1.7184E-4, 1.8774E-4, 2.0172E-4, 2.0787E-4, 2.1335E-4,
     * 2.1705E-4, 2.2010E-4, 2.2170E-4, 2.2347E-4, 2.2475E-4, 2.2827E-4,
     * 2.3784E-4, 2.5685E-4, 3.1914E-4, 3.8008E-4, 4.6923E-4, 5.2695E-4,
     * 5.9080E-4, 1.4418E-4, 1.6308E-4, 1.7488E-4, 1.9389E-4, 2.0975E-4,
     * 2.2370E-4, 2.2985E-4, 2.3535E-4, 2.3904E-4, 2.4209E-4, 2.4370E-4,
     * 2.4546E-4, 2.4674E-4, 2.5026E-4, 2.5983E-4, 2.7884E-4, 3.4114E-4,
     * 4.0208E-4, 4.9123E-4, 5.4894E-4, 6.1279E-4, 1.6016E-4, 1.7864E-4,
     * 1.9050E-4, 2.0927E-4, 2.2513E-4, 2.3920E-4, 2.4536E-4/
      DATA X4501/ 2.5084E-4, 2.5455E-4, 2.5760E-4, 2.5920E-4, 2.6097E-4,
     * 2.6225E-4, 2.6577E-4, 2.7534E-4, 2.9435E-4, 3.5664E-4, 4.1758E-4,
     * 5.0673E-4, 5.6445E-4, 6.2829E-4, 1.8969E-4, 2.0817E-4, 2.1994E-4,
     * 2.3889E-4, 2.5476E-4, 2.6873E-4, 2.7487E-4, 2.8035E-4, 2.8405E-4,
     * 2.8710E-4, 2.8870E-4, 2.9047E-4, 2.9175E-4, 2.9527E-4, 3.0484E-4,
     * 3.2385E-4, 3.8614E-4, 4.4708E-4, 5.3623E-4, 5.9395E-4, 6.5779E-4,
     * 2.3411E-4, 2.5266E-4, 2.6442E-4, 2.8336E-4, 2.9923E-4, 3.1320E-4,
     * 3.1934E-4, 3.2482E-4, 3.2852E-4, 3.3157E-4, 3.3318E-4, 3.3494E-4,
     * 3.3622E-4, 3.3974E-4, 3.4931E-4, 3.6832E-4, 4.3062E-4, 4.9156E-4,
     * 5.8070E-4, 6.3842E-4, 7.0227E-4, 3.3445E-4, 3.5290E-4, 3.6474E-4,
     * 3.8365E-4, 3.9953E-4, 4.1349E-4, 4.1963E-4, 4.2511E-4, 4.2881E-4,
     * 4.3186E-4, 4.3347E-4, 4.3523E-4, 4.3651E-4, 4.4003E-4, 4.4960E-4,
     * 4.6861E-4, 5.3091E-4, 5.9185E-4, 6.8100E-4, 7.3871E-4, 8.0256E-4,
     * 3.9576E-4, 4.1420E-4, 4.2601E-4, 4.4495E-4, 4.6082E-4, 4.7479E-4,
     * 4.8093E-4, 4.8641E-4, 4.9011E-4, 4.9316E-4, 4.9476E-4, 4.9653E-4,
     * 4.9781E-4, 5.0133E-4, 5.1090E-4, 5.2991E-4, 5.9220E-4, 6.5314E-4,
     * 7.4229E-4, 8.0001E-4, 8.6386E-4, 4.4912E-4, 4.6724E-4/
      DATA X4601/ 4.7922E-4, 4.9812E-4, 5.1406E-4, 5.2801E-4, 5.3410E-4,
     * 5.3959E-4, 5.4329E-4, 5.4634E-4, 5.4794E-4, 5.4971E-4, 5.5099E-4,
     * 5.5451E-4, 5.6408E-4, 5.8309E-4, 6.4539E-4, 7.0633E-4, 7.9547E-4,
     * 8.5319E-4, 9.1704E-4, 4.8542E-4, 5.0449E-4, 5.1618E-4, 5.3406E-4,
     * 5.4997E-4, 5.6386E-4, 5.7002E-4, 5.7550E-4, 5.7920E-4, 5.8226E-4,
     * 5.8386E-4, 5.8563E-4, 5.8691E-4, 5.9043E-4, 6.0000E-4, 6.1901E-4,
     * 6.8131E-4, 7.4224E-4, 8.3139E-4, 8.8911E-4, 9.5296E-4, 5.4169E-4,
     * 5.6291E-4, 5.7453E-4, 5.9319E-4, 6.0898E-4, 6.2295E-4, 6.2910E-4,
     * 6.3460E-4, 6.3830E-4, 6.4135E-4, 6.4295E-4, 6.4471E-4, 6.4600E-4,
     * 6.4951E-4, 6.5908E-4, 6.7809E-4, 7.4039E-4, 8.0133E-4, 8.9048E-4,
     * 9.4820E-4, 1.0120E-3, 6.0987E-4, 6.2859E-4, 6.4033E-4, 6.5925E-4,
     * 6.7518E-4, 6.8913E-4, 6.9528E-4, 7.0076E-4, 7.0446E-4, 7.0751E-4,
     * 7.0911E-4, 7.1087E-4, 7.1216E-4, 7.1567E-4, 7.2524E-4, 7.4425E-4,
     * 8.0655E-4, 8.6749E-4, 9.5664E-4, 1.0144E-3, 1.0782E-3, 6.9070E-4,
     * 7.0924E-4, 7.2110E-4, 7.4011E-4, 7.5600E-4, 7.6997E-4, 7.7612E-4,
     * 7.8160E-4, 7.8530E-4, 7.8835E-4, 7.8996E-4, 7.9172E-4, 7.9300E-4,
     * 7.9652E-4, 8.0609E-4, 8.2510E-4, 8.8740E-4, 9.4834E-4/
      DATA X4701/ 1.0375E-3, 1.0952E-3, 1.1590E-3, 7.8249E-4, 8.0112E-4,
     * 8.1292E-4, 8.3191E-4, 8.4781E-4, 8.6179E-4, 8.6793E-4, 8.7341E-4,
     * 8.7711E-4, 8.8017E-4, 8.8177E-4, 8.8353E-4, 8.8481E-4, 8.8833E-4,
     * 8.9790E-4, 9.1691E-4, 9.7921E-4, 1.0402E-3, 1.1293E-3, 1.1870E-3,
     * 1.2509E-3, 9.6760E-4, 9.8620E-4, 9.9803E-4, 1.0170E-3, 1.0329E-3,
     * 1.0469E-3, 1.0530E-3, 1.0585E-3, 1.0622E-3, 1.0653E-3, 1.0669E-3,
     * 1.0686E-3, 1.0699E-3, 1.0734E-3, 1.0830E-3, 1.1020E-3, 1.1643E-3,
     * 1.2253E-3, 1.3144E-3, 1.3721E-3, 1.4360E-3, 1.1984E-3, 1.2171E-3,
     * 1.2289E-3, 1.2479E-3, 1.2638E-3, 1.2778E-3, 1.2839E-3, 1.2894E-3,
     * 1.2931E-3, 1.2962E-3, 1.2978E-3, 1.2995E-3, 1.3008E-3, 1.3043E-3,
     * 1.3139E-3, 1.3329E-3, 1.3952E-3, 1.4561E-3, 1.5453E-3, 1.6030E-3,
     * 1.6668E-3, 1.4724E-3, 1.4911E-3, 1.5029E-3, 1.5219E-3, 1.5378E-3,
     * 1.5518E-3, 1.5579E-3, 1.5634E-3, 1.5671E-3, 1.5701E-3, 1.5717E-3,
     * 1.5735E-3, 1.5748E-3, 1.5783E-3, 1.5879E-3, 1.6069E-3, 1.6692E-3,
     * 1.7301E-3, 1.8193E-3, 1.8770E-3, 1.9408E-3, 1.6411E-3, 1.6597E-3,
     * 1.6716E-3, 1.6906E-3, 1.7065E-3, 1.7204E-3, 1.7266E-3, 1.7321E-3,
     * 1.7358E-3, 1.7388E-3, 1.7404E-3, 1.7422E-3, 1.7435E-3/
      DATA X4801/ 1.7470E-3, 1.7566E-3, 1.7756E-3, 1.8379E-3, 1.8988E-3,
     * 1.9880E-3, 2.0457E-3, 2.1095E-3, 1.9229E-3, 1.9415E-3, 1.9533E-3,
     * 1.9723E-3, 1.9882E-3, 2.0022E-3, 2.0083E-3, 2.0138E-3, 2.0175E-3,
     * 2.0206E-3, 2.0222E-3, 2.0239E-3, 2.0252E-3, 2.0287E-3, 2.0383E-3,
     * 2.0573E-3, 2.1196E-3, 2.1806E-3, 2.2697E-3, 2.3274E-3, 2.3913E-3,
     * 3.7500E-1, 4.3300E-1, 4.8600E-1, 5.3500E-1, 5.7900E-1, 6.1900E-1,
     * 6.5500E-1, 6.8800E-1, 7.1800E-1, 7.4500E-1, 7.6900E-1, 7.9200E-1,
     * 8.3900E-1, 8.6200E-1, 8.8200E-1, 8.9900E-1, 9.0900E-1, 9.1900E-1,
     * 9.2700E-1, 9.3100E-1, 9.3800E-1, 9.5300E-1, 9.5600E-1, 9.6100E-1,
     * 9.6300E-1, 9.6700E-1, 9.7100E-1, 9.7400E-1, 9.7800E-1, 9.8100E-1,
     * 9.8400E-1, 9.8700E-1, 9.8900E-1, 9.9100E-1, 9.9300E-1, 9.9500E-1,
     * 9.9600E-1, 9.9700E-1, 9.9800E-1, 1.0000E+0, 5.8930E-5, 5.3254E-4,
     * 2.4148E-3, 7.2895E-3, 1.6509E-2, 3.1120E-2, 5.1303E-2, 7.7303E-2,
     * 1.0848E-1, 1.4368E-1, 1.8139E-1, 2.2378E-1, 3.3177E-1, 3.9626E-1,
     * 4.5925E-1, 5.1825E-1, 5.5545E-1, 5.9461E-1, 6.2741E-1, 6.4432E-1,
     * 6.7477E-1, 7.4383E-1, 7.5831E-1, 7.8294E-1, 7.9298E-1, 8.1338E-1,
     * 8.3422E-1, 8.5015E-1, 8.7180E-1, 8.8835E-1, 9.0518E-1/
      DATA X4901/ 9.2230E-1, 9.3387E-1, 9.4557E-1, 9.5740E-1, 9.6937E-1,
     * 9.7541E-1, 9.8148E-1, 9.8759E-1, 1.0000E+0, 2.9656E+0, 2.8756E+0,
     * 2.7908E+0, 2.7100E+0, 2.6348E+0, 2.5637E+0, 2.4968E+0, 2.4327E+0,
     * 2.3715E+0, 2.3137E+0, 2.2597E+0, 2.2052E+0, 2.0830E+0, 2.0161E+0,
     * 1.9528E+0, 1.8941E+0, 1.8569E+0, 1.8172E+0, 1.7834E+0, 1.7657E+0,
     * 1.7331E+0, 1.6551E+0, 1.6378E+0, 1.6072E+0, 1.5943E+0, 1.5672E+0,
     * 1.5380E+0, 1.5144E+0, 1.4802E+0, 1.4518E+0, 1.4206E+0, 1.3854E+0,
     * 1.3590E+0, 1.3294E+0, 1.2954E+0, 1.2547E+0, 1.2304E+0, 1.2021E+0,
     * 1.1672E+0, 1.0000E+0, 4.5251E-5, 3.5482E-4, 1.4406E-3, 3.9868E-3,
     * 8.4542E-3, 1.5161E-2, 2.4095E-2, 3.5353E-2, 4.8718E-2, 6.3813E-2,
     * 8.0120E-2, 9.8748E-2, 1.4834E-1, 1.7996E-1, 2.1276E-1, 2.4561E-1,
     * 2.6763E-1, 2.9211E-1, 3.1382E-1, 3.2550E-1, 3.4749E-1, 4.0309E-1,
     * 4.1600E-1, 4.3926E-1, 4.4926E-1, 4.7067E-1, 4.9429E-1, 5.1379E-1,
     * 5.4276E-1, 5.6731E-1, 5.9503E-1, 6.2697E-1, 6.5143E-1, 6.7933E-1,
     * 7.1197E-1, 7.5168E-1, 7.7550E-1, 8.0331E-1, 8.3711E-1, 1.0000E+0,
     * 1.6628E+1, 1.7557E+1, 1.8341E+1, 1.8999E+1, 1.9536E+1, 1.9985E+1,
     * 2.0366E+1, 2.0701E+1, 2.1000E+1, 2.1265E+1, 2.1501E+1/
      DATA X5001/ 2.1726E+1, 2.2188E+1, 2.2415E+1, 2.2614E+1, 2.2785E+1,
     * 2.2888E+1, 2.2993E+1, 2.3079E+1, 2.3123E+1, 2.3201E+1, 2.3382E+1,
     * 2.3421E+1, 2.3488E+1, 2.3516E+1, 2.3575E+1, 2.3637E+1, 2.3686E+1,
     * 2.3757E+1, 2.3814E+1, 2.3877E+1, 2.3946E+1, 2.3997E+1, 2.4053E+1,
     * 2.4117E+1, 2.4191E+1, 2.4234E+1, 2.4283E+1, 2.4344E+1, 2.5469E+1,
     * 3.3257E+1, 3.1555E+1, 3.0437E+1, 2.9649E+1, 2.9081E+1, 2.8646E+1,
     * 2.8305E+1, 2.8022E+1, 2.7785E+1, 2.7584E+1, 2.7412E+1, 2.7251E+1,
     * 2.6925E+1, 2.6762E+1, 2.6615E+1, 2.6483E+1, 2.6401E+1, 2.6315E+1,
     * 2.6242E+1, 2.6203E+1, 2.6134E+1, 2.5968E+1, 2.5931E+1, 2.5866E+1,
     * 2.5838E+1, 2.5781E+1, 2.5718E+1, 2.5668E+1, 2.5595E+1, 2.5534E+1,
     * 2.5467E+1, 2.5392E+1, 2.5335E+1, 2.5272E+1, 2.5200E+1, 2.5115E+1,
     * 2.5065E+1, 2.5007E+1, 2.4939E+1, 2.5469E+1, 6.2357E+0, 6.6105E+0,
     * 6.9709E+0, 7.3070E+0, 7.6065E+0, 7.8773E+0, 8.1221E+0, 8.3504E+0,
     * 8.5638E+0, 8.7624E+0, 8.9453E+0, 9.1268E+0, 9.5180E+0, 9.7202E+0,
     * 9.9028E+0, 1.0064E+1, 1.0163E+1, 1.0265E+1, 1.0349E+1, 1.0393E+1,
     * 1.0471E+1, 1.0654E+1, 1.0694E+1, 1.0763E+1, 1.0791E+1, 1.0852E+1,
     * 1.0915E+1, 1.0967E+1, 1.1040E+1, 1.1099E+1, 1.1164E+1/
      DATA X5101/ 1.1236E+1, 1.1288E+1, 1.1346E+1, 1.1412E+1, 1.1488E+1,
     * 1.1533E+1, 1.1584E+1, 1.1645E+1, 1.1935E+1, 1.2471E+1, 1.2672E+1,
     * 1.2849E+1, 1.3005E+1, 1.3133E+1, 1.3239E+1, 1.3322E+1, 1.3387E+1,
     * 1.3436E+1, 1.3470E+1, 1.3491E+1, 1.3502E+1, 1.3493E+1, 1.3468E+1,
     * 1.3432E+1, 1.3388E+1, 1.3356E+1, 1.3317E+1, 1.3281E+1, 1.3261E+1,
     * 1.3222E+1, 1.3118E+1, 1.3093E+1, 1.3047E+1, 1.3027E+1, 1.2984E+1,
     * 1.2937E+1, 1.2897E+1, 1.2837E+1, 1.2786E+1, 1.2729E+1, 1.2663E+1,
     * 1.2612E+1, 1.2555E+1, 1.2488E+1, 1.2408E+1, 1.2360E+1, 1.2305E+1,
     * 1.2239E+1, 1.1935E+1, 2.1882E-1, 1.4431E+2, 5.2150E+0, 5.7375E-1,
     * 1.0000E-3, 2.0000E-3, 1.0000E-3, 1.0000E-3/

      CALL FLUID0(G,NG,GG,TT,DD,N1,N2,N3,SAT,NS,C,M)
      RETURN

      END
C                                                                       00002
C THIS PROGRAM CALCULATES THE 'BEST' PLACEMENT FOR MICROPHONES IN A DUCT00003
C                                                                       00004
      DIMENSION AA(200), IND(10), WORK(5100), EIGVAL(50), EIGVEC(50,50),00005
     1          EQ(50,50), AMPL(50), PHASE(50)                          00006
      EXTERNAL DETCAL                                                   00007
      COMMON /MATRX/  NDIM1, ONE, ZERO, DET, MATRIX(50,50)              00008
      COMMON /PROBES/ IWALL, ISAME, NPROBE, MNPROB                      00009
      COMMON /CNSTNT/ NMIKES, NMODES, SIGMA, B, MX, FREQ, A, OMEGA      00010
      COMMON /EMUS/   EMU(50,50), IEMPRT                                00011
      COMMON /KQMU/   KMU(50), QMU(50)                                  00012
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       00013
      COMMON /WAVENO/ KX(50)                                            00014
      COMMON /MIKES/  NDIM, X(50), R(50), THETA(50)                     00015
      COMMON /SEARCH/ NVAR, IPRNT, NSRCH, NEVAL, IEXPNT, NTABLE, NSTAT  00016
      COMMON /BESSL/  DUM1(5), PI                                       00017
      COMMON /BOUNDS/ XBOUND(2,50), RBOUND(2,50), TBOUND(2,50), XA, XB, 00018
     1                THMIN, THMAX, XLIM, RLIM, THLIM                   00019
      COMMON /CONDTN/ GOODCN                                            00020
      COMMON /ANGLES/ DEGRAD, RADDEG                                    00021
      REAL KMU, MX                                                      00022
      COMPLEX ONE, ZERO, DET, MATRIX, FACTR, DIVSR, EXPNT, KX, EIGVAL,  00023
     1        EIGVEC, EQ                                                00024
C                                                                       00025
C INPUT CASE VARIABLES                                                  00026
C                                                                       00027
   20 CALL INPUT( IEND )                                                00028
      IF( IEND .GT. 0 )                GO TO 9999                       00029
C                                                                       00030
C CALCULATE CHARACTERISTIC NUMBERS KMU AND QMU FOR EACH SET OF          00031
C  CIRCUMFERENTIAL MODE NUMBER AND RADIAL ORDER                         00032
C                                                                       00033
      CALL KQCAL                                                        00034
C                                                                       00035
C CALCULATE AXIAL WAVE NUMBER                                           00036
C                                                                       00037
      FLOW         = OMEGA / A                                          00038
      AMACH        = 1. - MX * MX                                       00039
      DO 40 I=1,NMODES                                                  00040
      RADICL       = FLOW ** 2 - AMACH * ( KMU(I) / B ) ** 2            00041
      IF( RADICL )                     25, 30, 30                       00042
   25 KX(I)        = CMPLX( -MX * FLOW / AMACH, IWAVE(I) *              00043
     1               SQRT( ABS( RADICL ) ) / AMACH )                    00044
                                       GO TO 40                         00045
   30 KX(I)        = CMPLX( ( -MX * FLOW + IWAVE(I) * SQRT( RADICL ) ) /00046
     1               AMACH, 0.0 )                                       00047
   40 CONTINUE                                                          00048
C                                                                       00049
C DETERMINE MICROPHONE LOCATION COMPONENTS, X, R, AND THETA, USING A    00050
C  STOCHASTIC SEARCH TECHNIQUE                                          00051
C                                                                       00052
  120 IWALL        = 0                                                  00053
      IPROBE       = 0                                                  00054
      MPROBE       = 0                                                  00055
C                                                                       00056
C SET UP FIRST ROW OF MATRIX AND INITIAL DETERMINANT VALUE              00057
C                                                                       00058
C CALCULATE CHARACTERISTIC E-FUNCTION VALUES ASSOCIATED WITH R          00059
C                                                                       00060
      RPRIME       = R(1) / B                                           00061
      CALL EMUCAL( RPRIME, EMU(1,1), NMODES )                           00062
      DO 140 J=1,NMODES                                                 00063
      EXPNT        = CMPLX( 0.0, REAL( KX(J) ) * X(1) + MODE(J) *       00064
     1               THETA(1) )                                         00065
      MATRIX(1,J)  = EMU(J,1) * CEXP( EXPNT ) * EXP( -AIMAG( KX(J) ) *  00066
     1               X(1) )                                             00067
      EQ(1,J)      = MATRIX(1,J)                                        00068
  140 CONTINUE                                                          00069
      DET          = MATRIX(1,1)                                        00070
C                                                                       00071
C SET UP ARRAYS FOR STOCHASTIC SEARCH                                   00072
C                                                                       00073
      IND(1)       = NVAR                                               00074
      IND(2)       = NSRCH                                              00075
      IND(3)       = NEVAL                                              00076
      IND(4)       = NTABLE                                             00077
      IND(5)       = NSTAT                                              00078
      IND(6)       = 0                                                  00079
      IND(7)       = 0                                                  00080
      IND(8)       = IEXPNT                                             00081
      IND(9)       = IPRNT                                              00082
      IND(10)      = 1                                                  00083
      AVG          = .9 * ( XB - XA )                                   00084*11
C                                                                       00085
      MKSTRT       = NDIM + 1                                           00086
      DO 440 JJ=MKSTRT,NMIKES                                           00087
C                                                                       00088
      WRITE(6,9000)                                                     00089
 9000 FORMAT (1H1, T44, '***  MICROPHONE LOCATION COMPUTER PROGRAM  ***'00090
     1)                                                                 00091
      IF( JJ .LE. NMIKES )             GO TO 147                        00092
C                                                                       00093
C ALL MICROPHONE LOCATIONS HAVE BEEN INPUT. CALCULATE CONDITION NUMBER  00094
C                                                                       00095
      DO 430 JJJ=1,NMIKES                                               00096
      J            = JJJ                                                00097
                                       GO TO 175                        00098
  147 J            = JJ                                                 00099
      IF( IPRNT .GT. 0 )               WRITE(6,9001) J                  00100
 9001 FORMAT( /, 1X, '... STOCHASTIC SEARCH OUTPUT FOR MICROPHONE ', I2)00101
C                                                                       00102
C IF MODE NUMBERS CHANGE, RESET ISAME INDICATOR AND ATTEMPT TO PLACE    00103
C  MIKE ON DUCT WALL                                                    00104
C                                                                       00105
      IF( ISAME .EQ. 0 )               GO TO 150                        00106
      IF( MODE(J) .EQ. MODE(1) )       GO TO 150                        00107
      ISAME        = 0                                                  00108
      IWALL        = 0                                                  00109
  150 NDIM1        = J - 1                                              00110
      NDIM         = J                                                  00111
  155 AA(1)        = XA                                                 00112
      IF( IWALL .NE. 0 )               AA(1) = XA + AVG                 00113*11
      AA(2)        = THMIN                                              00114
      IF( SIGMA )                      160, 160, 165                    00115
  160 AA(3)        = .1                                                 00116
                                       GO TO 170                        00117
  165 AA(3)        = B * SIGMA                                          00118
  170 AA(4)        = XB                                                 00119
      AA(5)        = THMAX                                              00120
      AA(6)        = B                                                  00121
C                                                                       00122
C SET UP BOUND ARRAYS                                                   00123
C                                                                       00124
      XBOUND(1,J)  = AA(1)                                              00125
      XBOUND(2,J)  = AA(4)                                              00126
      TBOUND(1,J)  = AA(2)                                              00127
      TBOUND(2,J)  = AA(5)                                              00128
      RBOUND(1,J)  = AA(3)                                              00129
      RBOUND(2,J)  = AA(6)                                              00130
      CALL STOCH( DETCAL, IND, AA )                                     00131
C                                                                       00132
C SET UP MICROPHONE LOCATION COMPONENT ARRAYS                           00133
C                                                                       00134
      X(J)         = AA(1)                                              00135
      THETA(J)     = AA(2)                                              00136
      R(J)         = AA(3)                                              00137
C                                                                       00138
C SET UP ROW J OF MATRIX USING THE VALUES OF X, THETA, AND R            00139
C                                                                       00140
C CALCULATE CHARACTERISTIC E-FUNCTION VALUES ASSOCIATED WITH R          00141
C                                                                       00142
  175 RPRIME       = R(J) / B                                           00143
      CALL EMUCAL( RPRIME, EMU(1,J), NMODES )                           00144
      DO 180 I=1,NMODES                                                 00145
      EXPNT        = CMPLX( 0.0, REAL( KX(I) ) * X(J) + MODE(I) *       00146
     1               THETA(J) )                                         00147
      MATRIX(J,I)  = EMU(I,J) * CEXP( EXPNT ) * EXP( -AIMAG( KX(I) ) *  00148
     1               X(J) )                                             00149
      EQ(J,I)      = MATRIX(J,I)                                        00150
  180 CONTINUE                                                          00151
      IF( JJ .GT. NMIKES )             GO TO 230                        00152
C                                                                       00153
C TRIANGULARIZE THE J X J MATRIX                                        00154
C                                                                       00155
      FACTR        = ONE                                                00156
      DO 220 I=1,NDIM1                                                  00157
      FACTR        = - ( MATRIX(J,I) * CONJG( MATRIX(I,I) ) /           00158
     1               CABS( MATRIX(I,I) ) ** 2 ) * FACTR                 00159
      DIVSR        = - MATRIX(I,I) * CONJG( MATRIX(J,I) ) /             00160
     1               CABS( MATRIX(J,I) ) ** 2                           00161
      MATRIX(J,I)  = ZERO                                               00162
      ISTRT        = I + 1                                              00163
      DO 200 K=ISTRT,NMODES                                             00164
      MATRIX(J,K)  = MATRIX(I,K) + DIVSR * MATRIX(J,K)                  00165
  200 CONTINUE                                                          00166
  220 CONTINUE                                                          00167
C                                                                       00168
C                                                                       00169
C CALCULATE CONDITION NUMBER OF THE MATRIX                              00170
C                                                                       00171
  230 MIKENO       = J                                                  00172
      CALL EIGCC( EQ, MIKENO, 50, 2, EIGVAL, EIGVEC, 50, WORK, IERR )   00173
C                                                                       00174
      EIGMIN       = CABS( EIGVAL(1) )                                  00175
      EIGMAX       = EIGMIN                                             00176
      DO 300 I=2,MIKENO                                                 00177
      EIGEN        = CABS( EIGVAL(I) )                                  00178
      IF( EIGEN - EIGMIN )             240, 260, 260                    00179
  240 EIGMIN       = EIGEN                                              00180
                                       GO TO 300                        00181
  260 IF( EIGEN - EIGMAX )             300, 300, 280                    00182
  280 EIGMAX       = EIGEN                                              00183
  300 CONTINUE                                                          00184
C                                                                       00185
      CONDNO       = EIGMAX / EIGMIN                                    00186
C                                                                       00187
C CALCULATE AMPLITUDE AND PHASE OF EIGENVALUES. PRINT RESULTANT VALUES  00188
C                                                                       00189
      DO 310 L=1,MIKENO                                                 00190
      AMPL(L)      = CABS( EIGVAL(L) )                                  00191
      PHASE(L)     = ATAN( AIMAG( EIGVAL(L) ) / REAL( EIGVAL(L) ) )     00192
     1               * RADDEG                                           00193
  310 CONTINUE                                                          00194
      WRITE(6,9002) J, CONDNO                                           00195
 9002 FORMAT( /, 1X, '... MICROPHONE ', I2, ' ...', //, T5, 'CONDITION N00196
     1UMBER = ', F10.4, T44, 'MODE', T59, 'EIGENVALUES', /, T52,        00197
     2'AMPLITUDE         PHASE', / )                                    00198
      DO 315 L=1,MIKENO                                                 00199
      WRITE(6,9003) L, AMPL(L), PHASE(L)                                00200
 9003 FORMAT( 44X, I2, 5X, F10.4, 5X, F10.4 )                           00201
  315 CONTINUE                                                          00202
      IF( JJ .GT. NMIKES )             GO TO 430                        00203
C                                                                       00204
C IF CONDITION NUMBER IS 'GOOD', CONTINUE. OTHERWISE PUT MIKE ON PROBE  00205
C                                                                       00206
      IF( CONDNO - GOODCN )            360, 360, 320                    00207
  320 IF( IWALL .LT. 0 )               GO TO 380                        00208
C                                                                       00209
C MIKE IS EITHER ON WALL OR NOT THE FIRST MIKE ON A PROBE. IN ANY EVENT,00210
C  TRY AND PUT MIKE ON ANOTHER PROBE                                    00211
C                                                                       00212
      IPROBE       = 1 + IPROBE                                         00213
      IF( IPROBE .LE. NPROBE )         GO TO 340                        00214
C                                                                       00215
C ERROR - THE NUMBER OF PROBES EXCEEDS THE MAXIMUM ALLOWABLE            00216
C                                                                       00217
  330 WRITE(6,1000)                                                     00218
 1000 FORMAT( //, 1X, '*****  THE NUMBER OF PROBES REQUIRED EXCEEDS THE 00219
     1MAXIMUM PERMITTED. EXECUTION WILL BE TERMINATED  *****' )         00220
                                       GO TO 9999                       00221
  340 MPROBE       = 1                                                  00222
      IWALL        = -1                                                 00223
                                       GO TO 155                        00224
C                                                                       00225
C RESULTS ACCEPTABLE. IF ON WALL, CONTINUE. IF ON PROBE, READJUST PROBE 00226
C  INFORMATION                                                          00227
C                                                                       00228
  360 IF( IWALL .EQ. 0 )               GO TO 420                        00229
      MPROBE       = 1 + MPROBE                                         00230
      IF( MPROBE .GT. MNPROB )         GO TO 380                        00231
      IWALL        = 1                                                  00232
                                       GO TO 420                        00233
  380 IPROBE       = 1 + IPROBE                                         00234
      IF( IPROBE .GT. NPROBE )         GO TO 330                        00235
      IWALL        = -1                                                 00236
      MPROBE       = 1                                                  00237
C                                                                       00238
C CALCULATE THE DETERMINANT OF THE J X J MATRIX                         00239
C                                                                       00240
  420 DET          = MATRIX(J,J) * FACTR * DET                          00241
                                       GO TO 440                        00242
  430 CONTINUE                                                          00243
  440 CONTINUE                                                          00244
C                                                                       00245
C PRINT RESULTS                                                         00246
C                                                                       00247
      CALL PRINT                                                        00248
C                                                                       00249
C RECYCLE FOR NEXT CASE                                                 00250
C                                                                       00251
                                       GO TO 20                         00252
 9999 STOP                                                              00253
      END                                                               00254
      SUBROUTINE ANGPOS( ANGLE, NUMBER )                                00255
C                                                                       00256
C THIS SUBROUTINE CONVERTS NEGATIVE ANGLES TO CORRESPONDING POSITIVE    00257
C  ANGLES                                                               00258
C                                                                       00259
      DIMENSION ANGLE(1)                                                00260
      DATA DEGREE / 360.0 /                                             00261
C                                                                       00262
      DO 80 I=1,NUMBER                                                  00263
      IF( ANGLE(I) )                   20, 80, 80                       00264
   20 DO 40 J=1,10                                                      00265
      DELTA        = J * DEGREE                                         00266
      IF( ANGLE(I) + DELTA )           40, 60, 60                       00267
   40 CONTINUE                                                          00268
   60 ANGLE(I)     = DELTA + ANGLE(I)                                   00269
   80 CONTINUE                                                          00270
C                                                                       00271
 9999 RETURN                                                            00272
      END                                                               00273
      FUNCTION BESL1( X )                                               00274
C                                                                       00275
C THIS FUNCTION CALCULATES VALUES OF THE EQUATION DEFINING THE SYSTEM OF00276
C  DIFFERENTIAL EQUATIONS FOR A NON-ZERO HUB/TIP RATIO                  00277
C                                                                       00278
      COMMON /BESSL/ ISIGN, JSIGN, DELKMU, TOL, M, PI                   00279
      COMMON /CNSTNT/ DUM1(2), SIGMA, DUM2(5)                           00280
C                                                                       00281
      X1           = X * SIGMA                                          00282
      CALL BESJ( X1, M-JSIGN, EMJM1, TOL, IER1 )                        00283
      CALL BESJ( X1, M , EMJX1, TOL, IER2 )                             00284
      CALL BESJ( X, M, EMJ, TOL, IER3 )                                 00285
      CALL BESJ( X, M-JSIGN, EMJP1, TOL, IER4 )                         00286
      CALL BESY( X, M, EMYX, IER5 )                                     00287
      CALL BESY( X1, M, EMYX1, IER6 )                                   00288
C                                                                       00289
      EMJM1        = JSIGN * ISIGN * EMJM1                              00290
      EMJX1        = ISIGN * EMJX1                                      00291
      EMJ          = ISIGN * EMJ                                        00292
      EMJP1        = JSIGN * ISIGN * EMJP1                              00293
      EMYX         = ISIGN * EMYX                                       00294
      EMYX1        = ISIGN * EMYX1                                      00295
C                                                                       00296
      A1           = EMJM1 - ( M * JSIGN / X1 ) * EMJX1                 00297
      A2           = EMJP1 - ( M * JSIGN / X ) * EMJ                    00298
      A3           = 2. * A1 / ( PI * X * EMJ )                         00299
      A4           = 2. * A2 / ( PI * X1 * EMJX1 )                      00300
      A5           = A1 * A2 * ( EMYX / EMJ - EMYX1 / EMJX1 )           00301
C                                                                       00302
      BESL1        = X1 * X * ( A3 - A4 + A5 )                          00303
      RETURN                                                            00304
      END                                                               00305
      FUNCTION BESL2( X )                                               00306
C                                                                       00307
C THIS FUNCTION CALCULATES VALUES OF THE EQUATION DEFINING THE SYSTEM OF00308
C  DIFFERENTIAL EQUATIONS FOR A HUB/TIP RATIO OF ZERO                   00309
C                                                                       00310
      COMMON /BESSL/ ISIGN, JSIGN, DELKMU, TOL, M, PI                   00311
      COMMON /CNSTNT/ DUM1(2), SIGMA, DUM2(5)                           00312
C                                                                       00313
      CALL BESJ( X, M-JSIGN, EMJM1, TOL, IER1 )                         00314
      CALL BESJ( X, M, EMJ, TOL, IER2 )                                 00315
C                                                                       00316
      EMJM1        = JSIGN * ISIGN * EMJM1                              00317
      EMJ          = ISIGN * EMJ                                        00318
      BESL2        = X * EMJM1 - M * JSIGN * EMJ                        00319
      RETURN                                                            00320
      END                                                               00321
      SUBROUTINE BESJ( X, N, BJ, D, IER )                               00322
C                                                                       00323
C THIS SUBROUTINE CALCULATES THE J BESSEL FUNCTION FOR A GIVEN ARGUMENT,00324
C  X, AND ORDER N. THIS SUBROUTINE WAS TAKEN FROM THE IBM SCIENTIFIC    00325
C  SUBROUTINE PACKAGE                                                   00326
C                                                                       00327
      BJ           = 0.0                                                00328
      IF( N .GE. 0 )                   GO TO 20                         00329
C                                                                       00330
C ERROR - NEGATIVE ORDER. SET ERROR INDICATOR TO 1 AND RETURN           00331
C                                                                       00332
      IER          = 1                                                  00333
                                       GO TO 9999                       00334
   20 IF( X )                          40, 30, 60                       00335
   30 IF( N .GT. 0 )                   GO TO 40                         00336
      BJ           = 1.0                                                00337
                                       GO TO 9999                       00338
C                                                                       00339
C ERROR - ARGUMENT ZERO OF NEGATIVE. SET ERROR INDICATOR TO 2 AND RETURN00340
C                                                                       00341
   40 IER          = 2                                                  00342
                                       GO TO 9999                       00343
C                                                                       00344
C CALCULATE MAXIMUM ORDER NUMBER THAT CAN BE PROCESSED FOR X.           00345
C   IF X .LE. 15, N MUST BE LESS THAN 20 + 10*X - X**(2/3)              00346
C   IF X .GT. 15, N MUST BE LESS THAN 90 + X/2                          00347
C                                                                       00348
   60 IF( X - 15. )                    80, 80, 100                      00349
   80 NTEST        = 20. + 10. * X - X ** 2 / 3.                        00350
                                       GO TO 120                        00351
  100 NTEST        = 90. + X / 2.                                       00352
  120 IF( N .LT. NTEST )               GO TO 140                        00353
C                                                                       00354
C ERROR - ORDER RANGE COMPARED TO X IS NOT CORRECT. SET ERROR INDICATOR 00355
C  TO 4 AND RETURN.                                                     00356
C                                                                       00357
      IER          = 4                                                  00358
                                       GO TO 9999                       00359
  140 IER          = 0                                                  00360
      N1           = N + 1                                              00361
      BPREV        = 0.0                                                00362
C                                                                       00363
C COMPUTE STARTING VALUE OF M                                           00364
C                                                                       00365
      IF( X - 5. )                     160, 180, 180                    00366
  160 MA           = X + 6.                                             00367
                                       GO TO 200                        00368
  180 MA           = 1.4 * X + 60. / X                                  00369
  200 MB           = N + IFIX( X ) / 4 + 2                              00370
      MZERO        = MAX0( MA, MB )                                     00371
C                                                                       00372
C SET UPPER LIMIT OF M                                                  00373
C                                                                       00374
      MMAX         = NTEST                                              00375
  220 DO 320 M=MZERO,MMAX,3                                             00376
C                                                                       00377
C SET F(M), F(M-1)                                                      00378
C                                                                       00379
      FM1          = 1.0E-28                                            00380
      FM           = 0.0                                                00381
      ALPHA        = 0.0                                                00382
      JT           = 1                                                  00383
      IF( ( M / 2 ) * 2 .EQ. M )       JT = -1                          00384
      M2           = M - 2                                              00385
      DO 280 K=1,M2                                                     00386
      MK           = M - K                                              00387
      BMK          = 2. * FLOAT( MK ) * FM1 / X - FM                    00388
      FM           = FM1                                                00389
      FM1          = BMK                                                00390
      IF( MK - N - 1 )                 260, 240, 260                    00391
  240 BJ           = BMK                                                00392
  260 JT           = -JT                                                00393
      S            = 1 + JT                                             00394
      ALPHA        = ALPHA + BMK * S                                    00395
  280 CONTINUE                                                          00396
C                                                                       00397
      BMK          = 2. * FM1 / X - FM                                  00398
      IF( N .EQ. 0 )                   BJ = BMK                         00399
      ALPHA        = ALPHA + BMK                                        00400
      BJ           = BJ / ALPHA                                         00401
      IF( ABS( BJ - BPREV ) - ABS( D * BJ ) )  9999, 9999, 300          00402
  300 BPREV        = BJ                                                 00403
  320 CONTINUE                                                          00404
C                                                                       00405
C ERROR - REQUIRED TOLERANCE NOT OBTAINED. SET ERROR INDICATOR TO 3 AND 00406
C  RETURN                                                               00407
C                                                                       00408
      IER          = 3                                                  00409
 9999 RETURN                                                            00410
      END                                                               00411
      SUBROUTINE BESY( X, N, BY, IER )                                  00412
C                                                                       00413
C THIS SUBROUTINE CALCULATES THE Y BESSEL FUNCTION FOR A GIVEN ARGUMENT,00414
C  X, AND ORDER N. THIS SUBROUTINE WAS TAKEN FROM THE IBM SCIENTIFIC    00415
C  SUBROUTINE PACKAGE                                                   00416
C                                                                       00417
      IER          = 0                                                  00418
      IF( N .GE. 0 )                   GO TO 20                         00419
C                                                                       00420
C ERROR - NEGATIVE ORDER. SET ERROR INDICATOR TO 1 AND RETURN           00421
C                                                                       00422
      IER          = 1                                                  00423
                                       GO TO 9999                       00424
   20 IF( X )                          40, 40, 60                       00425
C                                                                       00426
C ERROR - ARGUMENT ZERO OR NEGATIVE. SET ERROR INDICATOR TO 2 AND RETURN00427
C                                                                       00428
   40 IER          = 2                                                  00429
                                       GO TO 9999                       00430
C                                                                       00431
C BRANCH IF X IS LESS THAN OR EQUAL TO 4.                               00432
C                                                                       00433
   60 IF( X - 4. )                     100, 100, 80                     00434
C                                                                       00435
C CALCULATE Y0 AND Y1 FOR X GREATER THAN 4.                             00436
C                                                                       00437
   80 T1           = 4. / X                                             00438
      T2           = T1 * T1                                            00439
      P0           = ( ( ( ( -.0000037043 * T2 + .0000173565 ) * T2 -   00440
     1               .0000487613 ) * T2 + .00017343 ) * T2 - .001753062 00441
     2               ) * T2 + .3989423                                  00442
      Q0           = ( ( ( ( .0000032312 * T2 - .0000142078 ) * T2 +    00443
     1               .0000342468 ) * T2 - .0000869791 ) * T2 +          00444
     2               .0004564324 ) * T2 - .01246694                     00445
      P1           = ( ( ( ( .0000042414 * T2 - .000020092 ) * T2 +     00446
     1               .0000580759 ) * T2 - .000223203 ) * T2 +           00447
     2               .002921826 ) * T2 + .3989423                       00448
      Q1           = ( ( ( ( -.0000036594 * T2 + .00001622 ) * T2 -     00449
     1               .0000398708 ) * T2 + .0001064741 ) * T2 -          00450
     2               .00063904 ) * T2 + .03740084                       00451
      A            = 2. / SQRT( X )                                     00452
      B            = A * T1                                             00453
      C            = X - .7853982                                       00454
      Y0           = A * P0 * SIN( C ) + B * Q0 * COS( C )              00455
      Y1           = -A * P1 * COS( C ) + B * Q1 * SIN( C )             00456
                                       GO TO 160                        00457
C                                                                       00458
C CALCULATE Y0 AND Y1 FOR X LESS THAN OR EQUAL TO 4                     00459
C                                                                       00460
  100 XX           = .5 * X                                             00461
      X2           = XX * XX                                            00462
      T            = ALOG( XX ) + .5772157                              00463
      SUM          = 0.0                                                00464
      TERM         = T                                                  00465
      Y0           = T                                                  00466
      DO 120 L=1,15                                                     00467
      IF( L .NE. 1 )                   SUM = 1. / FLOAT( L-1) + SUM     00468
      FL           = L                                                  00469
      TS           = T - SUM                                            00470
      TERM         = ( -X2 * TERM / ( FL ** 2 ) ) * ( 1. - 1. / ( FL *  00471
     1               TS ) )                                             00472
      Y0           = TERM + Y0                                          00473
  120 CONTINUE                                                          00474
      TERM         = XX * ( T - .5 )                                    00475
      SUM          = 0.0                                                00476
      Y1           = TERM                                               00477
      DO 140 L=2,16                                                     00478
      SUM          = 1. / FLOAT( L-1 ) + SUM                            00479
      FL           = L                                                  00480
      FL1          = FL - 1.                                            00481
      TS           = T - SUM                                            00482
      TERM         = ( -X2 * TERM / ( FL * FL1 ) ) * ( ( TS - .5 / FL ) 00483
     1               / ( TS + .5 / FL1 ) )                              00484
      Y1           = TERM + Y1                                          00485
  140 CONTINUE                                                          00486
      PI2          = .6366198                                           00487
      Y0           = PI2 * Y0                                           00488
      Y1           = PI2 * ( Y1 - 1. / X )                              00489
C                                                                       00490
C CHECK IF ONLY Y0 OR Y1 IS DESIRED                                     00491
C                                                                       00492
  160 IF( N .GT. 1 )                   GO TO 180                        00493
C                                                                       00494
C RETURN Y0 OR Y1 AS REQUIRED                                           00495
C                                                                       00496
      BY           = Y0                                                 00497
      IF( N .EQ. 1 )                   BY = Y1                          00498
                                       GO TO 9999                       00499
C                                                                       00500
C PERFORM RECURRENCE OPERATIONS TO FIND YN(X)                           00501
C                                                                       00502
  180 YA           = Y0                                                 00503
      YB           = Y1                                                 00504
      K            = 1                                                  00505
  200 T = FLOAT( 2*K ) / X                                              00506
      YC           = T * YB - YA                                        00507
      IF( ABS( YC ) - 1.0E70 )         240, 240, 220                    00508
C                                                                       00509
C ERROR - BY HAS EXCEEDED MAGNITUDE OF 10**70. SET ERROR INDICATOR TO 3 00510
C  AND RETURN                                                           00511
C                                                                       00512
  220 IER          = 3                                                  00513
                                       GO TO 9999                       00514
  240 K            = 1 + K                                              00515
      IF( K .EQ. N )                   GO TO 260                        00516
      YA           = YB                                                 00517
      YB           = YC                                                 00518
                                       GO TO 200                        00519
  260 BY           = YC                                                 00520
 9999 RETURN                                                            00521
      END                                                               00522
      BLOCK DATA                                                        00523
      COMMON /DFAULT/ NLOC, HTR, OR, EMX, FRQ, M(50), MUS(50), IDIR(50),00524
     1                CONDNO, IEMU, XMIN, XMAX, DELX, DELTH,            00525
     2                DELR, ND, XM(50), RM(50), THM(50), IPT, NSRH,     00526
     3                NVAL, IXPNT, NPROB, MPROB, NTAB, NST, SPEED, TMIN,00527
     4                TMAX                                              00528
C                                                                       00529
C GEOMETRY AND TEST CONDITION DEFAULT VALUES                            00530
C                                                                       00531
C    NLOC   - NUMBER OF MICROPHONE LOCATIONS DESIRED                    00532
C    HTR    - HUB / TIP RATIO                                           00533
C    OR     - OUTER RADIUS OF DUCT                                      00534
C    EMX    - AXIAL MACH NUMBER                                         00535
C    FRQ    - TEST FREQUENCY                                            00536
C                                                                       00537
      DATA NLOC / 2 /, HTR / 0.438 /, OR / 5.0 /, EMX / -0.07 /,        00538
     1     FRQ / 3100.0 /, SPEED / 13566.24 /                           00539
C                                                                       00540
C MODE DEFAULT VALUES                                                   00541
C                                                                       00542
C    M      - CIRCUMFERENTIAL MODE NUMBER                               00543
C    MUS    - RADIAL ORDER                                              00544
C    IDIR   - WAVE DIRECTION INDICATOR                                  00545
C                                                                       00546
      DATA M / 2*-2, 48*0 /, MUS / 0, 1, 48*0 /, IDIR / 2*1, 48*0 /     00547
C                                                                       00548
C CONDITION NUMBER DEFAULT VALUE                                        00549
C                                                                       00550
C    CONDNO - MAXIMUM CONDITION NUMBER                                  00551
C                                                                       00552
      DATA CONDNO / 100.0 /                                             00553
C                                                                       00554
C STOCHASTIC SEARCH PARAMETER BOUND-DEFAULT VALUES                      00555
C                                                                       00556
C    XMIN   - MINIMUM X VALUE OF DUCT                                   00557
C    XMAX   - MAXIMUM X VALUE OF DUCT                                   00558
C    DELX   - MINIMUM AXIAL DISTANCE ALLOWED BETWEEN MICROPHONES        00559
C    DELR   - MINIMUM RADIAL DISTANCE ALLOWED BETWEEN MICROPHONES       00560
C    DELTH  - MINIMUM ANGULAR DISTANCE ALLOWED BETWEEN MICROPHONES (DEG)00561
C    TMIN   - MINIMUM BOUND FOR THETA                                   00562
C    TMAX   - MAXIMUM BOUND FOR THETA                                   00563
C                                                                       00564
      DATA XMIN / 0.0 /, XMAX / 12.0 /, DELX / 1.0 /, DELR / 1.0 /,     00565
     1     DELTH / 11.5 /, TMIN / 0.0 /, TMAX / 360. /                  00566
C                                                                       00567
C MICROPHONE LOCATION DEFAULT VALUES                                    00568
C                                                                       00569
C    ND     - NUMBER OF INITIAL FIXED MICROPHONE LOCATIONS              00570
C    XM     - AXIAL COMPONENTS OF MICROPHONE LOCATIONS                  00571
C    RM     - RADIAL COMPONENTS OF MICROPHONE LOCATIONS                 00572
C    THM    - ANGULAR COMPONENTS OF MICROPHONE LOCATIONS                00573
C                                                                       00574
      DATA ND / 1 /, XM / 50*0.0 /, RM / 2*5.0, 48*0.0 /,               00575
     1     THM / 50*0.0 /                                               00576
C                                                                       00577
C STOCHASTIC SEARCH DEFAULT VALUES                                      00578
C                                                                       00579
C    IPT    - PRINT INDICATOR FOR SEARCHES                              00580
C    NSRH   - MAXIMUM NUMBER OF SEARCHES                                00581
C    NVAL   - NUMBER OF EVALUATIONS PER SEARCH                          00582
C    IXPNT  - EXPONENT OF TOLERANCE ( E.G. TOL = 10. ** IXPNT )         00583
C    NTAB   - NUMBER OF ELEMENTS IN DETERMINANT TABLE                   00584
C    NST    - NUMBER OF ELEMENTS TO BE USED IN CALCULATING STATISTICS   00585
C    NVAR   - NUMBER OF INDEPENDENT VARIABLES                           00586
C                                                                       00587
      DATA IPT / 0 /, NSRH / 50 /, NVAL / 500 /, IXPNT / -2 /,          00588
     1     NTAB / 30 /, NST / 30 /                                      00589
      COMMON /SEARCH/ NVAR, DUM(6)                                      00590
      DATA NVAR / 3 /                                                   00591
C                                                                       00592
C PROBE DEFAUALT VALUES                                                 00593
C                                                                       00594
C    NPROB  - MAXIMUM NUMBER OF PROBES ALLOWED IN DUCT                  00595
C    MPROB  - MAXIMUM NUMBER OF MICROPHONES PER PROBE ALLOWED           00596
C                                                                       00597
      DATA NPROB / 1 /, MPROB / 1 /                                     00598
C                                                                       00599
C GENERAL PRINT DEFAULT VALUES                                          00600
C                                                                       00601
C    IEMU   - PRINT INDICATOR FOR CHARACTERISTIC E-FUNCTION VALUES      00602
C                                                                       00603
      DATA IEMU / 0 /                                                   00604
C                                                                       00605
C BESSEL FUNCTION VALUES                                                00606
C                                                                       00607
      COMMON /BESSL/  DUM2(2), DELKMU, TOL, MM, PI                      00608
      DATA DELKMU / 3.0 /, TOL / .0001 /, PI / 3.141593 /               00609
C                                                                       00610
C ANGULAR CONVERSION VALUES                                             00611
C                                                                       00612
C    DEGRAD - DEGREES TO RADIANS                                        00613
C    RADDEG - RADIANS TO DEGREES                                        00614
C                                                                       00615
      COMMON /ANGLES/ DEGRAD, RADDEG                                    00616
      DATA DEGRAD / 0.0174533 /, RADDEG / 57.29578 /                    00617
C                                                                       00618
      COMPLEX ONE, ZERO, DUM3                                           00619
      COMMON /MATRX/ NDIM1, ONE, ZERO, DUM3(2501)                       00620
      DATA ONE / (1.,0.) /, ZERO / (0.,0.) /                            00621
      END                                                               00622
      SUBROUTINE EMUCAL( RPRIME, EMU, NMODES )                          00623
C                                                                       00624
C THIS SUBROUTINE CALCULATES NMODES CHARACTERISTIC E-FUNCTION VALUES FOR00625
C  A PARTICULAR RADIAL VALUE, RPRIME.                                   00626
C                                                                       00627
      DIMENSION EMU(1)                                                  00628
      COMMON /KQMU/   KMU(50), QMU(50)                                  00629
      COMMON /MODES/  MODE(50), DUM2(100)                               00630
      COMMON /BESSL/  ISIGN, JSIGN, DELKMU, TOL, M, PI                  00631
      REAL KMU                                                          00632
      DO 40 I=1,NMODES                                                  00633
      M            = IABS( MODE(I) )                                    00634
      ISIGN        = 1                                                  00635
      IF( M .NE. 0 )                   ISIGN = MODE(I) / M              00636
      IF( ISIGN .GE. 0 )               GO TO 20                         00637
C                                                                       00638
C NEGATIVE MODE NUMBER. IF EVEN, SIGN OF BESSEL FUNCTION WILL BE +1. IF 00639
C  ODD, SIGN OF BESSEL FUNCTION WILL BE -1.                             00640
C                                                                       00641
      IF( ( M / 2 ) * 2 .EQ. M )       ISIGN = 1                        00642
   20 CONST        = KMU(I) * RPRIME                                    00643
C                                                                       00644
C CALCULATE BESSEL FUNCTIONS OF FIRST AND SECOND KIND FOR KMU(I)*RPRIME 00645
C                                                                       00646
      CALL BESJ( CONST, M, EMJ, TOL, IER1 )                             00647
      CALL BESY( CONST, M, EMY, IER2 )                                  00648
      EMJ          = ISIGN * EMJ                                        00649
      EMY          = ISIGN * EMY                                        00650
C                                                                       00651
C CALCULATE CHARACTERISTIC E-FUNCTION                                   00652
C                                                                       00653
      EMU(I)       = EMJ + QMU(I) * EMY                                 00654
   40 CONTINUE                                                          00655
 9999 RETURN                                                            00656
      END                                                               00657
      FUNCTION FALZIP (FUNCT, AL , BR , TOL, ROOT, ITER, YY)            00658
C                                                                       00659
C CORRESPONDS TO OLD VERSION (FALSIE) ARGUMENT LIST AS FOLLOWS (THIS IS 00660
C  FOR INTERNAL PURPOSES ONLY, IN USE THE TWO ARE INTERCHANGEABLE).     00661
C                                                                       00662
C     FUNCTION FALSIE (AXR,   XXL, XXR, TOL, ROOT, ITER, YY)            00663
C                                                                       00664
C                                                                       00665
C  THIS ROUTINE USES A COMBINATION OF FALSE POSITION AND BISECTION      00666
C    TECHNIQUES TO SOLVE FOR A ROOT ('ROOT') OF A GIVEN FUNCTION        00667
C    ('FUNCT') WHICH HAS ONE ARGUMENT (THE INDEPENDENT VARIABLE).       00668
C                                                                       00669
C   'AL,BR' DEFINES THE INTERVAL TO BE SEARCHED.                        00670
C                                                                       00671
C  THE VALUE RETURNED BY THE FUNCTION IS FALZIP.  FUNCT(FALZIP) = ROOT  00672
C                                                                       00673
C  THE SEARCH CONTINUES UNTIL TWO SUBSEQUENT GUESSES ARE WITHIN 'TOL'   00674
C    OF EACH OTHER, OR UNTIL 'ITER' ITERATIONS HAVE TAKEN PLACE.        00675
C                                                                       00676
C  'YY' IS RETURNED AS FUNCT(FALZIP), AND SHOULD BE CLOSE TO 'ROOT'.    00677
C                                                                       00678
C  THE TECHNIQUE WAS ADAPTED FROM AN ALGOL SUBROUTINE APPEARING IN THE  00679
C    COMPUTER JOURNAL 12 (1969) --  'EIGENVALUES OF A*X = LAMBDA*B*X    00680
C    WITH BAND SYMMETRIC A AND B' BY G. PETERS + J.H. WILKINSON         00681
C                                                                       00682
      EXTERNAL FUNCT                                                    00683
      REAL INTERP                                                       00684
      IWRIT = 6                                                         00685
C                                                                       00686
C  J IS COUNT OF ITERATIONS.                                            00687
    1 J = 0                                                             00688
      A = AL                                                            00689
      B = BR                                                            00690
C                                                                       00691
C  EVALUATE FUNCTION AT LEFT (A) AND RIGHT (B) BRACKETS.                00692
      AF = FUNCT (A)                                                    00693
      BF = FUNCT (B)                                                    00694
C                                                                       00695
C  THE FOLLOWING (THROUGH STATEMENT 3) DETERMINES IF THE FUNCTION IS OF 00696
C    OPPOSITE SIGN AT THE ENDPOINTS GIVEN.                              00697
      ISW = 1                                                           00698
      IF (BF - ROOT) 2, 75, 3                                           00699
    2 ISW = -1                                                          00700
    3 IF ((AF - ROOT) * ISW) 50, 80, 85                                 00701
C                                                                       00702
C  STATEMENT 5 INCREMENTS THE COUNTER J; FIRST TIME THROUGH GO TO 50.   00703
    5 J = J + 1                                                         00704
C                                                                       00705
C  IF LEFT BRACKET HAS 'SAME' FUNCTION VALUE AS RIGHT, USE BISECTION.   00706
C    OTHERWISE, SET UP INTERPOLATED POINT FOR POSSIBLE USE.             00707
      IF (ABS((AF - BF)/BF) - 1.E-5) 10, 10, 15                         00708
   10 INTERP = BISECT                                                   00709
      GO TO 20                                                          00710
   15 INTERP = (A*BF - B*AF + (B-A)*ROOT) / (BF-AF)                     00711
C                                                                       00712
C  IF WITHIN A TOLERANCE OF THE BRACKET B, MOVE THE INTERPOLATED POINT  00713
C    ONE TOLERANCE AWAY.                                                00714
   20 IF ((ABS(INTERP-B)/ABS(INTERP+B)) -2.*TOL) 22,23,23               00715
   22 INTERP = B + (C - B) / ABS (C - B) * TOL                          00716
C                                                                       00717
C  SET A=B (B IS ALWAYS THE POINT WITH SMALLEST (ABS) VALUE OF FUNCTION.00718
   23 A = B                                                             00719
      AF = BF                                                           00720
C                                                                       00721
C  USE POINT CLOSEST TO B (INTERP OR BISECT) AS NEW B AND EVALUATE BF.  00722
      IF ((INTERP - BISECT) * (B - INTERP)) 30, 25, 25                  00723
   25 B = INTERP                                                        00724
      GO TO 35                                                          00725
   30 B = BISECT                                                        00726
   35 BF = FUNCT(B)                                                     00727
      BFMR = BF - ROOT                                                  00728
C                                                                       00729
C  IF CF IS ON THE SAME SIDE OF THE ROOT AS BF, LET POINT C = POINT A.  00730
   40 IF ((CF - ROOT) * BFMR) 55, 75, 50                                00731
   50 C = A                                                             00732
      CF = AF                                                           00733
C                                                                       00734
C  IF CF IS CLOSER (ABS) TO ROOT THAN BF, SWITCH POINTS B AND C.        00735
C    IN ANY CASE, B AND C ARE THE TWO BRACKETS. ALSO BF IS CLOSER TO THE00736
C    ROOT THAN CF IS.                                                   00737
   55 IF (ABS(BF - ROOT) - ABS(CF - ROOT)) 60, 60, 57                   00738
   57 A  = B                                                            00739
      AF = BF                                                           00740
      B  = C                                                            00741
      BF = CF                                                           00742
      C  = A                                                            00743
      CF = AF                                                           00744
C                                                                       00745
C  SET UP BISECTION POINT.  IF CLOSE ENOUGH, FINISH UP.  OTHERWISE GO   00746
C    BACK IF ITERATION COUNT DOESN'T EXCEED MAXIMUM.                    00747
   60 BISECT = (B + C) / 2.                                             00748
      IF ((ABS(BISECT-B)/ABS(BISECT+B)) -2.*TOL) 75,65,65               00749
   65 IF (J - ITER) 5, 70, 70                                           00750
   70 WRITE(IWRIT,1000)J,B,BF,C,CF                                      00751
 1000 FORMAT (1H0/// 30X, 'IN FALZIP, AFTER', I4, ' ITERATIONS' //      00752
     1    10X, 'BRACKET 1 = ', G15.8, 5X, 'FUNCTION = ', G15.8/         00753
     2    10X, 'BRACKET 2 = ', G15.8, 5X, 'FUNCTION = ', G15.8/         00754
     3    5X, 'BRACKET 1 WAS RETURNED AS RESULT.')                      00755
   75 FALZIP = B                                                        00756
      YY = BF                                                           00757
      RETURN                                                            00758
   80 FALZIP = A                                                        00759
      YY = AF                                                           00760
      RETURN                                                            00761
   85 WRITE(IWRIT,1100)ROOT,A,AF,B,BF                                   00762
 1100 FORMAT ('0***IN FALZIP, ROOT GIVEN (=', G15.8, ') DIDN''T FALL BET00763
     1WEEN VALUES OF FUNCTION AT BRACKETS GIVEN***'/                    00764
     2   10X, 'BRACKET 1 = ', G15.8, 5X, 'FUNCTION = ', G15.8 /         00765
     3   10X, 'BRACKET 2 = ', G15.8, 5X, 'FUNCTION = ', G15.8 /         00766
     4        40X, 'TERMINATING RUN' )                                  00767
      STOP                                                              00768
      END                                                               00769
      SUBROUTINE INPUT( IEND )                                          00770
C                                                                       00771
C THIS SUBROUTINE INPUTS THE DATA REQUIRED FOR THE EXECUTION OF A CASE  00772
C                                                                       00773
      DIMENSION MXMODE(50), ISAVE(50,3)                                 00774
      COMMON /DFAULT/ NLOC, HTR, OR, EMX, FRQ, M(50), MUS(50), IDIR(50),00775
     1                CONDNO, IEMU, XMIN, XMAX, DELX, DELTH,            00776
     2                DELR, ND, XM(50), RM(50), THM(50), IPT, NSRH,     00777
     3                NVAL, IXPNT, NPROB, MPROB, NTAB, NST, SPEED, TMIN,00778
     4                TMAX                                              00779
      COMMON /CNSTNT/ NMIKES, NMODES, SIGMA, B, MX, FREQ, A, OMEGA      00780
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       00781
      COMMON /BESSL/  DUM1(5), PI                                       00782
      COMMON /ANGLES/ DEGRAD, RADDEG                                    00783
      COMMON /EMUS/   EMU(50,50), IEMPRT                                00784
      COMMON /BOUNDS/ XBOUND(2,50), RBOUND(2,50), TBOUND(2,50), XA, XB, 00785
     1                THMIN, THMAX, XLIM, RLIM, THLIM                   00786
      COMMON /MIKES/  NDIM, X(50), R(50), THETA(50)                     00787
      COMMON /SEARCH/ NVAR, IPRNT, NSRCH, NEVAL, IEXPNT, NTABLE, NSTAT  00788
      COMMON /PROBES/ IWALL, ISAME, NPROBE, MNPROB                      00789
      COMMON /CONDTN/ GOODCN                                            00790
C                                                                       00791
      NAMELIST /INDATA/ NLOC, HTR, OR, EMX, FRQ, M, MUS, IDIR, CONDNO,  00792
     1                  IEMU, XMIN, XMAX, DELX, DELTH, DELR,            00793
     2                  ND, XM, RM, THM, IPT, NSRH, NVAL, IXPNT,        00794
     3                  NPROB, MPROB, NTAB, NST, SPEED, TMIN, TMAX      00795
      REAL MX                                                           00796
      IEND         = 0                                                  00797
      READ(5,INDATA,END=9998)                                           00798
C                                                                       00799
C CHANGE INPUT UNITS TO INTERNAL UNITS                                  00800
C                                                                       00801
      GOODCN       = CONDNO                                             00802
      NMIKES       = NLOC                                               00803
      NMODES       = NLOC                                               00804
      SIGMA        = HTR                                                00805
      B            = OR                                                 00806
      MX           = EMX                                                00807
      FREQ         = FRQ                                                00808
      IEMPRT       = IEMU                                               00809
      XA           = XMIN                                               00810
      XB           = XMAX                                               00811
      XLIM         = DELX                                               00812
      RLIM         = DELR                                               00813
      THLIM        = DEGRAD * DELTH                                     00814
      NDIM         = ND                                                 00815
      IPRNT        = IPT                                                00816
      NSRCH        = NSRH                                               00817
      NEVAL        = NVAL                                               00818
      IEXPNT       = IXPNT                                              00819
      NPROBE       = NPROB                                              00820
      MNPROB       = MPROB                                              00821
      NTABLE       = NTAB                                               00822
      NSTAT        = NST                                                00823
      THMIN        = DEGRAD * TMIN                                      00824
      THMAX        = DEGRAD * TMAX                                      00825
      A            = SPEED                                              00826
      DO 20 I=1,NMODES                                                  00827
      MODE(I)      = M(I)                                               00828
      MU(I)        = MUS(I)                                             00829
      IWAVE(I)     = IDIR(I)                                            00830
   20 CONTINUE                                                          00831
      DO 40 I=1,NDIM                                                    00832
      X(I)         = XM(I)                                              00833
      R(I)         = RM(I)                                              00834
      THETA(I)     = THM(I) * DEGRAD                                    00835
   40 CONTINUE                                                          00836
C                                                                       00837
C ORDER MODE NUMBERS FROM LARGEST TO SMALLEST. ALSO ORDER RADIALS WITHIN00838
C  EACH MODE NUMBER FROM LARGEST TO SMALLEST                            00839
C                                                                       00840
      IF( NMODES .LE. 1 )              GO TO 280                        00841
      DO 50 I=1,20                                                      00842
      MXMODE(I)    = I                                                  00843
   50 CONTINUE                                                          00844
      DO 220 I=2,NMODES                                                 00845
      MAX          = MXMODE(1)                                          00846
      IF( IABS( MODE(I) ) - IABS( MODE(MAX) ) )  120, 60, 80            00847
   60 IF( MU(I) .LE. MU(MAX) )         GO TO 120                        00848
   80 DO 100 J=2,I                                                      00849
      JJ           = I - J + 2                                          00850
      MXMODE(JJ)   = MXMODE(JJ-1)                                       00851
  100 CONTINUE                                                          00852
      MXMODE(1)    = I                                                  00853
                                       GO TO 220                        00854
  120 DO 200 K=2,I                                                      00855
      NEXT         = MXMODE(K)                                          00856
      IF( IABS( MODE(I) ) - IABS( MODE(NEXT) ) )  200, 140, 160         00857
  140 IF( MU(I) .LE. MU(NEXT) )        GO TO 200                        00858
  160 J1           = K + 1                                              00859
      DO 180 J=J1,I                                                     00860
      JJ           = I - J + J1                                         00861
      MXMODE(JJ)   = MXMODE(JJ-1)                                       00862
  180 CONTINUE                                                          00863
      MXMODE(K)    = I                                                  00864
                                       GO TO 220                        00865
  200 CONTINUE                                                          00866
      MXMODE(I)    = I                                                  00867
  220 CONTINUE                                                          00868
C                                                                       00869
      DO 240 I=1,NMODES                                                 00870
      MAX          = MXMODE(I)                                          00871
      ISAVE(I,1)   = MODE(MAX)                                          00872
      ISAVE(I,2)   = MU(MAX)                                            00873
      ISAVE(I,3)   = IWAVE(MAX)                                         00874
  240 CONTINUE                                                          00875
C                                                                       00876
      DO 260 I=1,NMODES                                                 00877
      MODE(I)      = ISAVE(I,1)                                         00878
      MU(I)        = ISAVE(I,2)                                         00879
      IWAVE(I)     = ISAVE(I,3)                                         00880
  260 CONTINUE                                                          00881
C                                                                       00882
C IF THE FIRST TWO MODE NUMBERS ARE EQUAL, SET ISAME INDICATOR TO 1     00883
C                                                                       00884
  280 ISAME        = 0                                                  00885
      IF( MODE(1) .EQ. MODE(2) )       ISAME = 1                        00886
C                                                                       00887
C CALCULATE RADIAN FREQUENCY                                            00888
C                                                                       00889
      OMEGA        = 2. * PI * FREQ                                     00890
C                                                                       00891
C ZERO COORDINATE BOUND ARRAYS                                          00892
C                                                                       00893
      DO 320 J=1,NLOC                                                   00894
      DO 300 I=1,2                                                      00895
      XBOUND(I,J)  = 0.0                                                00896
      RBOUND(I,J)  = 0.0                                                00897
      TBOUND(I,J)  = 0.0                                                00898
  300 CONTINUE                                                          00899
  320 CONTINUE                                                          00900
                                       GO TO 9999                       00901
C                                                                       00902
C END OF DATA SET                                                       00903
C                                                                       00904
 9998 IEND         = 1                                                  00905
 9999 RETURN                                                            00906
      END                                                               00907
      SUBROUTINE KMUCAL( VALUE, DELTA, KMU, RIGHT )                     00908
C                                                                       00909
C THIS SUBROUTINE CALCULATES THE CHARACTERISTIC NUMBER, KMU             00910
C                                                                       00911
      EXTERNAL BESL1, BESL2                                             00912
      COMMON /CNSTNT/ DUM1(2), SIGMA, DUM2(5)                           00913
      REAL KMU, LEFT                                                    00914
   30 IPLUS        = 0                                                  00915
      IMINUS       = 0                                                  00916
   35 IF( SIGMA )                      50, 40, 50                       00917
C                                                                       00918
   40 KMU          = BESL2( VALUE )                                     00919
                                       GO TO 60                         00920
   50 KMU          = BESL1( VALUE )                                     00921
C                                                                       00922
   60 IF( KMU )                        80, 65, 70                       00923
   65 RIGHT        = VALUE                                              00924
                                       GO TO 130                        00925
   70 IPLUS        = 1                                                  00926
                                       GO TO 90                         00927
   80 IMINUS       = 1                                                  00928
C                                                                       00929
C DETERMINE IF LEFT AND RIGHT BRACKETS HAVE BEEN FOUND.                 00930
C                                                                       00931
   90 IF( IPLUS .EQ. 1 .AND. IMINUS .EQ. 1 )  GO TO 100                 00932
C                                                                       00933
C BRACKETS NOT FOUND. RECYLE.                                           00934
C                                                                       00935
      VALUSV       = VALUE                                              00936
      VALUE        = DELTA + VALUE                                      00937
                                       GO TO 35                         00938
C                                                                       00939
C BRACKETS FOUND, CALCULATE KMU                                         00940
C                                                                       00941
  100 LEFT         = VALUSV                                             00942
      RIGHT        = VALUE                                              00943
      IF( SIGMA )                      110, 120, 110                    00944
  110 KMU          = FALZIP( BESL1, LEFT, RIGHT, .001, 0.0, 75, YY )    00945
                                       GO TO 130                        00946
  120 KMU          = FALZIP( BESL2, LEFT, RIGHT, .001, 0.0, 75, YY )    00947
  130 RETURN                                                            00948
      END                                                               00949
      SUBROUTINE KQCAL                                                  00950
C                                                                       00951
C THIS SUBROUTINE CALCULATES THE CHARACTERISTIC NUMBERS KMU AND QMU     00952
C                                                                       00953
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       00954
      COMMON /KQMU/   KMU(50), QMU(50)                                  00955
      COMMON /BESSL/  ISIGN, JSIGN, DELKMU, TOL, M, PI                  00956
      COMMON /CNSTNT/ NMIKES, NMODES, SIGMA, DUM2(5)                    00957
      REAL KMU, KMUPRM                                                  00958
C                                                                       00959
      DO 100 I=1,NMODES                                                 00960
C                                                                       00961
C CALCULATE ORDER FOR BESSEL FUNCTION EVALUATION                        00962
C                                                                       00963
      M            = IABS( MODE(I) )                                    00964
      IF( M .NE. 0 )                   GO TO 10                         00965
      ISIGN        = 1                                                  00966
      JSIGN        = -1                                                 00967
      BRAKTL       = .1                                                 00968
                                       GO TO 20                         00969
   10 ISIGN        = MODE(I) / M                                        00970
      JSIGN        = ISIGN                                              00971
      BRAKTL       = M                                                  00972
      IF( ISIGN .GE. 0 )               GO TO 20                         00973
C                                                                       00974
C NEGATIVE ORDER. IF EVEN, SIGN OF BESSEL FUNCTION WILL BE +1. IF ODD,  00975
C  SIGN OF BESSEL FUNCTION WILL BE -1.                                  00976
C                                                                       00977
      IF( ( M / 2 ) * 2 .EQ. M )       ISIGN = 1                        00978
C                                                                       00979
   20 NUMMUS       = MU(I) + 1                                          00980
C                                                                       00981
C CALCULATE CHARACTERISTIC NUMBER KMU CORRESPONDING TO MODE(I) AND MU(I)00982
C  THE VALUE OF KMU WILL BE THE MU(I)+1 ROOT OF THE EQUATION DEFINING   00983
C  THE SYSTEM OF SIMULTANEOUS EQUATIONS                                 00984
C                                                                       00985
      KMUPRM       = 0.0                                                00986
      DO 40 J=1,NUMMUS                                                  00987
      IF( M .EQ. 0 .AND. J .EQ. 1 )    GO TO 40                         00988
      CALL KMUCAL( BRAKTL, DELKMU, KMUPRM, BRAKTR )                     00989
      BRAKTL       = BRAKTR                                             00990
   40 CONTINUE                                                          00991
      KMU(I)       = KMUPRM                                             00992
C                                                                       00993
C CALCULATE CHARACTERISTIC NUMBER QMU CORRESPONDING TO MODE(I) AND MU(I)00994
C  IF THE HUB/TIP RATIO IS ZERO, SET QMU TO ZERO AND CONTINUE           00995
C                                                                       00996
      IF( SIGMA )                      60, 60, 80                       00997
   60 QMU(I)       = 0.0                                                00998
                                       GO TO 100                        00999
   80 IF( KMU(I) )                     90, 60, 90                       01000
   90 CALL BESJ( KMUPRM, M-JSIGN, EMM1, TOL, IER )                      01001
      EMM1         = ISIGN * JSIGN * EMM1                               01002
      CALL BESJ( KMUPRM, M, EMJ, TOL, IER2 )                            01003
      CALL BESY( KMUPRM, M, EMY, IER3 )                                 01004
      EMJ          = ISIGN * EMJ                                        01005
      EMY          = ISIGN * EMY                                        01006
      CALL BESY( KMUPRM, M-JSIGN, EYM1, IER4 )                          01007
      EYM1         = ISIGN * JSIGN * EYM1                               01008
      A            = EMM1 - ( M * JSIGN * EMJ ) / KMUPRM                01009
      B            = EYM1 - ( M * JSIGN * EMY ) / KMUPRM                01010
      SIGMAK       = SIGMA * KMUPRM                                     01011
      CALL BESJ( SIGMAK, M-JSIGN, EMM1, TOL, IER5 )                     01012
      CALL BESJ( SIGMAK, M, EMJ, TOL, IER6 )                            01013
      CALL BESY( SIGMAK, M, EMY, IER7 )                                 01014
      CALL BESY( SIGMAK, M-JSIGN, EYM1, IER8 )                          01015
      EMM1         = ISIGN * JSIGN * EMM1                               01016
      EYM1         = ISIGN * JSIGN * EYM1                               01017
      EMJ          = ISIGN * EMJ                                        01018
      EMY          = ISIGN * EMY                                        01019
      C            = EMM1 - ( M * JSIGN * EMJ ) / SIGMAK                01020
      D            = EYM1 - ( M * JSIGN * EMY ) / SIGMAK                01021
      QMU(I)       = - ( A + C * SIGMA ) / ( B + D * SIGMA )            01022
  100 CONTINUE                                                          01023
 9999 RETURN                                                            01024
      END                                                               01025
      SUBROUTINE PRINT                                                  01026
C                                                                       01027
C THIS SUBROUTINE PRINTS INPUT AND CALCULATED VALUES                    01028
C                                                                       01029
      COMMON /CNSTNT/ NMIKES, NMODES, SIGMA, B, MX, FREQ, A, OMEGA      01030
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       01031
      COMMON /ANGLES/ DEGRAD, RADDEG                                    01032
      COMMON /BOUNDS/ XBOUND(2,50), RBOUND(2,50), TBOUND(2,50), XA, XB, 01033
     1                THMIN, THMAX, XLIM, RLIM, THLIM                   01034
      COMMON /EMUS/   EMU(50,50), IEMPRT                                01035
      COMMON /MIKES/  NDIM, X(50), R(50), THETA(50)                     01036
      COMMON /SEARCH/ NVAR, IPRNT, NSRCH, NEVAL, IEXPNT, NTABLE, NSTAT  01037
      COMMON /WAVENO/ KX(50)                                            01038
      COMMON /KQMU/   KMU(50), QMU(50)                                  01039
      REAL MX, KMU                                                      01040
      COMPLEX KX, KXANGL                                                01041
C                                                                       01042
C CONVERT INTERNAL UNITS TO OUTPUT UNITS                                01043
C                                                                       01044
      THLIM        = RADDEG * THLIM                                     01045
      THMIN        = RADDEG * THMIN                                     01046
      THMAX        = RADDEG * THMAX                                     01047
      DO 40 J=1,NMIKES                                                  01048
      DO 20 I=1,2                                                       01049
      TBOUND(I,J)  = RADDEG * TBOUND(I,J)                               01050
   20 CONTINUE                                                          01051
      THETA(J)     = RADDEG * THETA(J)                                  01052
   40 CONTINUE                                                          01053
C                                                                       01054
C CONVERT ANY NEGATIVE ANGLES TO POSITIVE ANGLES FOR PRINTING           01055
C                                                                       01056
      CALL ANGPOS( THETA, NMIKES )                                      01057
C                                                                       01058
C PRINT INPUT                                                           01059
C                                                                       01060
      WRITE(6,9000)                                                     01061
 9000 FORMAT( 1H1, T44, '***  MICROPHONE LOCATION COMPUTER PROGRAM  ***'01062
     1)                                                                 01063
      WRITE(6,9013)                                                     01064
 9013 FORMAT( //, T56, '... INPUT VARIABLES ...' )                      01065
      WRITE(6,9001) NMIKES, NMODES                                      01066
 9001 FORMAT( //, T5, 'NUMBER OF MICROPHONE LOCATIONS = ', I2, T51,     01067
     1'NUMBER OF (MODE,MU) SETS = ', I2 )                               01068
      WRITE(6,9002)                                                     01069
 9002 FORMAT( //, 1X, '... INPUT MODES ...', //, T5, 'MODE', T14,       01070
     1'CIRCUMFERENTIAL', T34, 'RADIAL', T47, 'WAVE', T61, 'AXIAL WAVE NU01071
     2MBER', T89, 'KMU', /, T16, 'MODE NUMBER', T34, 'ORDER', T47,      01072
     3'INDICATOR', T62, 'REAL', T71, 'IMAGINARY', / )                   01073
      DO 80 I=1,NMODES                                                  01074
      KXANGL       = RADDEG * KX(I)                                     01075
      WRITE(6,9003) I, MODE(I), MU(I), IWAVE(I), KXANGL, KMU(I)         01076
 9003 FORMAT( 5X, I2, 11X, I4, 13X, I2, 10X, I2, 9X, F10.4, 1X, F10.4,  01077
     15X, F10.4 )                                                       01078
   80 CONTINUE                                                          01079
      WRITE(6,9005) SIGMA, B, MX, FREQ, A, OMEGA                        01080
 9005 FORMAT( ///, 1X, '... TEST GEOMETRY AND CONDITIONS ...', //, T5,  01081
     1'HUB / TIP RATIO = ', F8.3, T42, 'OUTER RADIUS OF DUCT = ', F8.3, 01082
     2T84, 'AXIAL MACH NUMBER = ', F8.3, /, T5, 'FREQUENCY = ', F10.3,  01083
     3T42, 'SPEED OF SOUND = ', F9.2, T84, 'RADIAN FREQUENCY =', F12.3 )01084
      WRITE(6,9006) NVAR, NSRCH, NEVAL                                  01085
 9006 FORMAT( ///, 1X, '... STOCHASTIC SEARCH VALUES ...', //, T5,      01086
     1'NUMBER OF VARIABLES = ', I2, T42, 'MAXIMUM NUMBER OF SEARCHES = '01087
     2, I5, T84, 'NUMBER OF EVALUATIONS PER SEARCH = ', I5 )            01088
      WRITE(6,9007)                                                     01089
 9007 FORMAT( //, T5, 'MICROPHONE', T59, 'PARAMETER BOUNDS',/, T20,     01090
     1'MINIMUM X', 4X, 'MAXIMUM X', 5X, 'MINIMUM R', 4X, 'MAXIMUM R',   01091
     25X, 'MINIMUM THETA', 4X, 'MAXIMUM THETA', / )                     01092
      DO 100 J=2,NMIKES                                                 01093
      WRITE(6,9008) J, ( XBOUND(I,J),I=1,2 ), ( RBOUND(I,J),I=1,2 ),    01094
     1              ( TBOUND(I,J),I=1,2 )                               01095
 9008 FORMAT( 8X, I2, 3X, 2(7X,F7.3,6X,F7.3), 9X, F7.3, 10X, F7.3 )     01096
  100 CONTINUE                                                          01097
C                                                                       01098
C PRINT MICROPHONE LOCATIONS                                            01099
C                                                                       01100
      WRITE(6,9000)                                                     01101
      WRITE(6,9009)                                                     01102
 9009 FORMAT( //, 1X, '... CALCULATED MICROPHONE LOCATIONS ...', //, T5,01103
     1'MICROPHONE', T25, 'X', T42, 'R', T57, 'THETA', / )               01104
      DO 120 I=1,NMIKES                                                 01105
      WRITE(6,9010) I, X(I), R(I), THETA(I)                             01106
 9010 FORMAT( 4X, I2, 9X, 3(F12.6,5X) )                                 01107
  120 CONTINUE                                                          01108
C                                                                       01109
C PRINT CHARACTERISTIC E-FUNCTION VALUES IF REQUESTED                   01110
C                                                                       01111
      IF( IEMPRT .LE. 0 )              GO TO 9999                       01112
      WRITE(6,9011) ( I,I=1,NMODES )                                    01113
 9011 FORMAT( ////, 1X, '... CHARACTERISTIC E-FUNCTION VALUES (FINAL SOL01114
     1UTION VALUES) ...', //, 1X, 'LOCATION', T68, 'MODES', /, 8X,      01115
     215(6X,I2), / )                                                    01116
      DO 140 J=1,NMIKES                                                 01117
      WRITE(6,9012) J, ( EMU(I,J),I=1,NMODES )                          01118
 9012 FORMAT( 4X, I2, 5X, 15(1X,F7.3) )                                 01119
  140 CONTINUE                                                          01120
C                                                                       01121
 9999 RETURN                                                            01122
      END                                                               01123
      SUBROUTINE STOCH( FCT, IND, WORK )                                01124
      DIMENSION IND(1), WORK(1)                                         01125
      EXTERNAL FCT                                                      01126
      COMMON /INITL/ NPARM, NSERCH, NEVAL, NTABLE, NSTAT, ISEED, IDIST, 01127
     1               IEXPNT, IPRINT, ITYPE, LT, JT, ICNVRG, TOL         01128
      COMMON /INDEX/ DUM1(2), INDEX4, INDEX5, INDEX6, INDEX7            01129
      COMMON /SEED/   JSEED                                             01130
C                                                                       01131
C INITIALIZE PARAMETERS FOR SEARCH                                      01132
C                                                                       01133
      CALL INITAL( WORK, IND )                                          01134
C                                                                       01135
C SEARCH LOOP                                                           01136
C                                                                       01137
      DO 120 I=1,NSERCH                                                 01138
      JSEED        = ISEED                                              01139
C                                                                       01140
C GENERATE STATISTICS FOR SEARCH I                                      01141
C                                                                       01142
      CALL STAT( WORK, I )                                              01143
C                                                                       01144
C EVALUATION LOOP                                                       01145
C                                                                       01146
      DO 100 J=1,NEVAL                                                  01147
C                                                                       01148
C GENERATE RANDOM PARAMETER VALUES                                      01149
C                                                                       01150
      CALL RANDOM( WORK )                                               01151
C                                                                       01152
C EVALUATE FUNCTION WITH RANDOM PARAMETER VALUES                        01153
C                                                                       01154
      GP           = FCT( 0, WORK(INDEX7+1), IE )                       01155
C                                                                       01156
C IF FUNCTION VALUE (GP) IS MEANINGFUL UPDATE G TABLE. IF NOT GO ON TO  01157
C  NEXT EVALUATION                                                      01158
C                                                                       01159
      IF( IE .GT. 0 )                  GO TO 100                        01160
      CALL UPDATE( WORK, GP )                                           01161
  100 CONTINUE                                                          01162
C                                                                       01163
C PRINT RESULTS OF SEARCH I IF REQUESTED                                01164
C                                                                       01165
      IF( IPRINT .EQ. 2 )              CALL PRINTT( WORK, I )           01166
C                                                                       01167
C TEST FOR CONVERGENCE. IF CONVERGED, RETURN WITH VALUES OF VARIABLES   01168
C  IN THE FIRST NPARM ELEMENTS OF WORK ARRAY. IF NOT, GO ON TO NEXT     01169
C  SEARCH.                                                              01170
C                                                                       01171
      CALL CONVRG( WORK )                                               01172
      IF( ICNVRG .GT. 0 )              GO TO 140                        01173
      NOCALL       = FCT( 1, WORK(INDEX7+1), IE )                       01174
  120 CONTINUE                                                          01175
C                                                                       01176
C PRINT RESULTS OF LAST SEARCH IF REQUESTED                             01177
C                                                                       01178
      I            = I - 1                                              01179
  140 IF( IPRINT .EQ. 1 )              CALL PRINTT( WORK, I )           01180
      IBEST        = IFIX( WORK(INDEX4+1) + .3 )                        01181
      DO 160 I=1,NPARM                                                  01182
      JNDEX        = INDEX6 + NTABLE * ( I - 1 )                        01183
      WORK(I)      = WORK(JNDEX+IBEST)                                  01184
  160 CONTINUE                                                          01185
      IND(6)       = ISEED                                              01186
C                                                                       01187
 9999 RETURN                                                            01188
      END                                                               01189
      SUBROUTINE INITAL( WORK, IND )                                    01190
C                                                                       01191
C THIS SUBROUTINE INITIALIZES PARAMETERS FOR THE STOCHASTIC SEARCH      01192
C                                                                       01193
      DIMENSION WORK(1), IND(1)                                         01194
      COMMON /INITL/ NPARM, NSERCH, NEVAL, NTABLE, NSTAT, ISEED, IDIST, 01195
     1               IEXPNT, IPRINT, ITYPE, LT, JT, ICNVRG, TOL         01196
      COMMON /INDEX/ INDEX2, INDEX3, INDEX4, INDEX5, INDEX6, INDEX7     01197
      COMMON /LOOPS/ NLOOP                                              01198
C                                                                       01199
      NPARM        = IND(1)                                             01200
      NSERCH       = IND(2)                                             01201
      NEVAL        = IND(3)                                             01202
      NTABLE       = IND(4)                                             01203
      NSTAT        = IND(5)                                             01204
      ISEED        = IND(6)                                             01205
      IDIST        = IND(7)                                             01206
      IEXPNT       = IND(8)                                             01207
      IPRINT       = IND(9)                                             01208
      ITYPE        = IND(10)                                            01209
      INDEX2       = 2 * NPARM                                          01210
      INDEX3       = 3 * NPARM                                          01211
      INDEX4       = 4 * NPARM                                          01212
      INDEX5       = INDEX4 + NTABLE                                    01213
      INDEX6       = INDEX5 + NTABLE                                    01214
      INDEX7       = INDEX6 + NTABLE * NPARM                            01215
      NLOOP        = NPARM / 7                                          01216
      IF( 7 * NLOOP .NE. NPARM )       NLOOP = 1 + NLOOP                01217
C                                                                       01218
      LT           = NTABLE                                             01219
      JT           = NTABLE                                             01220
      ICNVRG       = 0                                                  01221
      TOL          = 10. ** FLOAT( IEXPNT )                             01222
      IF( NTABLE .LE. 1 )              NTABLE = 2                       01223
      IF( NSTAT .LE. 1 )               NSTAT = 2                        01224
      IF( NSTAT .GT. NTABLE )          NSTAT = NTABLE                   01225
      IF( ISEED .LE. 0 )               ISEED = 1                        01226
C                                                                       01227
C SET UP K, G, AND P TABLES                                             01228
C                                                                       01229
      DO 20 I=1,NTABLE                                                  01230
      WORK(INDEX4+I) = I                                                01231
   20 CONTINUE                                                          01232
      DO 40 I=1,NTABLE                                                  01233
      WORK(INDEX5+I) = 0.0                                              01234
   40 CONTINUE                                                          01235
      LEMENT       = NTABLE * NPARM                                     01236
      DO 60 I=1,LEMENT                                                  01237
      WORK(INDEX6+I) = 0.0                                              01238
   60 CONTINUE                                                          01239
 9999 RETURN                                                            01240
      END                                                               01241
      SUBROUTINE STAT( WORK, ISERCH )                                   01242
C                                                                       01243
C THIS SUBROUTINE GENERATES THE STATISTICS REQUIRED FOR THE SEARCH      01244
C                                                                       01245
      DIMENSION WORK(1)                                                 01246
      COMMON /INITL/ NPARM, DUM1(2), NTABLE, NSTAT, DUM2(9)             01247
      COMMON /INDEX/ INDEX2, INDEX3, INDEX4, INDEX5, INDEX6, INDEX7     01248
C                                                                       01249
      IF( ISERCH .GT. 1 )              GO TO 40                         01250
C                                                                       01251
C FIRST SEARCH - CALCULATE MEAN AND STANDARD DEVIATION FROM INPUT       01252
C  PARAMETER BOUNDS                                                     01253
C                                                                       01254
      DO 20 I=1,NPARM                                                   01255
      BL           = WORK(I)                                            01256
      BR           = WORK(NPARM+I)                                      01257
      WORK(INDEX2+I) = .5 * ( BR + BL )                                 01258
      WORK(INDEX3+I) = .5 * ( BR - BL )                                 01259
   20 CONTINUE                                                          01260
                                       GO TO 9999                       01261
C                                                                       01262
C DETERMINE MEAN AND STANDARD DEVIATION VALUES FROM P TABLE             01263
C                                                                       01264
   40 DO 160 J=1,NPARM                                                  01265
      JNDEX        = INDEX6 + NTABLE * ( J - 1 )                        01266
      PAVG         = WORK(JNDEX+1)                                      01267
      DO 120 I=2,NSTAT                                                  01268
      PAVG         = WORK(JNDEX+I) + PAVG                               01269
  120 CONTINUE                                                          01270
      PAVG           = PAVG / NSTAT                                     01271
      II           = IFIX( WORK(INDEX4+J) + .3 )                        01272
      WORK(INDEX2+J) = WORK(JNDEX+II)                                   01273
      PSIGMA       = 0.0                                                01274
      DO 140 I=1,NSTAT                                                  01275
      PSIGMA       = ( WORK(JNDEX+I) - PAVG ) ** 2 + PSIGMA             01276
  140 CONTINUE                                                          01277
      WORK(INDEX3+J) = SQRT( PSIGMA / ( NSTAT - 1 ) )                   01278
  160 CONTINUE                                                          01279
C                                                                       01280
 9999 RETURN                                                            01281
      END                                                               01282
      SUBROUTINE RANDOM( WORK )                                         01283
C                                                                       01284
C THIS SUBROUTINE GENERATES RANDOM VALUES USED IN THIS EVALUATION       01285
C                                                                       01286
      DIMENSION WORK(1)                                                 01287
      COMMON /INITL/ NPARM, DUM1(2), NTABLE, NSTAT, ISEED, IDIST,       01288
     1               DUM2(7)                                            01289
      COMMON /INDEX/ INDEX2, INDEX3, DUM3(3), INDEX7                    01290
      COMMON /PROBES/ IWALL, ISAME, DUM4(2)                             01291
      COMMON /CNSTNT/ DUM5(3), B, DUM6(5)                               01292
      COMMON /MIKES/  NDIM, X(50), R(50), THETA(50)                     01293
      COMMON /BOUNDS/ DUM7(301), XB, DUM8(5)                            01294
C                                                                       01295
      DO 340 J=1,NPARM                                                  01296
      IF( ISAME .GT. 0 )               GO TO 120                        01297
C                                                                       01298
C MODE NUMBER IS NOT THE SAME AS THE FIRST MODE NUMBER                  01299
C                                                                       01300
      IF( IWALL )                      40, 20, 60                       01301
   20 IF( J .LE. 2 )                   GO TO 280                        01302
      WORK(INDEX7+J) = B                                                01303
                                       GO TO 9999                       01304
   40 IF( J .GT. 1 )                   GO TO 280                        01305
      WORK(INDEX7+J) = XB                                               01306
                                       GO TO 340                        01307
   60 IF( J - 2 )                      80, 100, 280                     01308
   80 WORK(INDEX7+J) = X(NDIM-1)                                        01309
                                       GO TO 340                        01310
  100 WORK(INDEX7+J) = THETA(NDIM-1)                                    01311
                                       GO TO 340                        01312
C                                                                       01313
C MODE NUMBER IS THE SAME AS THE FIRST MODE NUMBER                      01314
C                                                                       01315
  120 IF( IWALL )                      140, 160, 220                    01316
  140 IF( J .GT. 1 )                   GO TO 280                        01317
      WORK(INDEX7+J) = XB                                               01318
                                       GO TO 340                        01319
  160 IF( J - 2 )                      280, 180, 200                    01320
  180 WORK(INDEX7+J) = 0.0                                              01321
                                       GO TO 340                        01322
  200 WORK(INDEX7+J) = B                                                01323
                                       GO TO 9999                       01324
  220 IF( J - 2 )                      240, 260, 280                    01325
  240 WORK(INDEX7+J) = X(NDIM-1)                                        01326
                                       GO TO 340                        01327
  260 WORK(INDEX7+J) = THETA(NDIM-1)                                    01328
                                       GO TO 340                        01329
C                                                                       01330
C GENERATE RANDOM VARIABLE                                              01331
C                                                                       01332
  280 CALL STVAR( IDIST, 1., XX, ISEED )                                01333
      XX           = WORK(INDEX2+J) + XX * WORK(INDEX3+J)               01334
C                                                                       01335
C CHECK THAT THE VALUE OF XX IS WITHIN REQUIRED BOUNDS. IF NOT,         01336
C  REGENERATE A NEW VALUE OF XX                                         01337
C                                                                       01338
      IF( XX - WORK(J) )               280, 300, 300                    01339
  300 IF( XX - WORK(NPARM+J) )         320, 320, 280                    01340
  320 WORK(INDEX7+J) = XX                                               01341
  340 CONTINUE                                                          01342
C                                                                       01343
 9999 RETURN                                                            01344
      END                                                               01345
      SUBROUTINE UPDATE( WORK, GP )                                     01346
C                                                                       01347
C THIS SUBROUTINE UPDATES THE G TABLE WITH THE CURRENT VALUE OF GP      01348
C                                                                       01349
      DIMENSION WORK(1)                                                 01350
      COMMON /INITL/ NPARM, DUM1(2), NTABLE, DUM2(5), ITYPE, LT, JT,    01351
     1               DUM3(2)                                            01352
      COMMON /INDEX/ INDEX2, INDEX3, INDEX4, INDEX5, INDEX6, INDEX7     01353
C                                                                       01354
      LASTG        = IFIX( WORK(INDEX4+NTABLE) + .3 )                   01355
      GTEST        = WORK(INDEX5+LASTG) - GP                            01356
      IF( ITYPE .GT. 0 )               GTEST = GP - WORK(INDEX5+LASTG)  01357
C                                                                       01358
C COMPARE GP WITH THE K(NTABLE) ELEMENT OF THE G TABLE                  01359
C                                                                       01360
      IF( GTEST )                      9999, 9999, 20                   01361
   20 KT           = LASTG                                              01362
      WORK(INDEX5+LASTG) = GP                                           01363
      DO 40 I=1,NPARM                                                   01364
      JNDEX        = INDEX6 + NTABLE * ( I - 1 ) + LASTG                01365
      WORK(JNDEX)  = WORK(INDEX7+I)                                     01366
   40 CONTINUE                                                          01367
C                                                                       01368
C DETERMINE POSITION OF GP IN G TABLE                                   01369
C                                                                       01370
   60 JT           = JT - 1                                             01371
      NEXTG        = IFIX( WORK(INDEX4+JT) + .3 )                       01372
      GTEST        = WORK(INDEX5+NEXTG) - GP                            01373
      IF( ITYPE .GT. 0 )               GTEST = GP - WORK(INDEX5+NEXTG)  01374
      IF( GTEST )                      100, 100, 80                     01375
   80 IF( JT .GT. 1 )                  GO TO 60                         01376
      JT           = 0                                                  01377
                                       GO TO 120                        01378
  100 IF( JT .EQ. LT-1 )               GO TO 160                        01379
C                                                                       01380
C UPDATE K (INDEX) ARRAY TO REFLECT ENTRY OF GP INTO THE G TABLE        01381
C                                                                       01382
  120 WORK(INDEX4+LT) = WORK(INDEX4+LT-1)                               01383
      IF( JT .GE. LT-2 )               GO TO 140                        01384
      LT           = LT - 1                                             01385
                                       GO TO 120                        01386
  140 WORK(INDEX4+LT-1) = KT                                            01387
  160 LT           = NTABLE                                             01388
      JT           = NTABLE                                             01389
 9999 RETURN                                                            01390
      END                                                               01391
      SUBROUTINE CONVRG( WORK )                                         01392
C                                                                       01393
C THIS SUBROUTINE TESTS FOR THE CONVERGENCE OF THE INDEPENDENT PARA-    01394
C  METERS                                                               01395
C                                                                       01396
      DIMENSION WORK(1)                                                 01397
      COMMON /INITL/ NPARM, DUM1(2), NTABLE, DUM2(8), ICNVRG, TOL       01398
      COMMON /INDEX/ DUM3(4), INDEX6, INDEX7                            01399
      COMMON /PROBES/ IWALL, ISAME, DUM4(2)                             01400
C                                                                       01401
      DO 100 I=1,NPARM                                                  01402
      IF( ISAME .GT. 0 )               GO TO 15                         01403
C                                                                       01404
C MODE NUMBER IS NOT EQUAL TO THE FIRST MODE NUMBER                     01405
C                                                                       01406
      IF( IWALL )                      35, 5, 10                        01407
    5 IF( I .LE. 2 )                   GO TO 35                         01408
                                       GO TO 100                        01409
   10 IF( I .LE. 2 )                   GO TO 100                        01410
                                       GO TO 35                         01411
C                                                                       01412
C MODE NUMBER IS EQUAL TO FIRST MODE NUMBER                             01413
C                                                                       01414
   15 IF( IWALL )                      20, 25, 30                       01415
   20 IF( I .EQ. 2 )                   GO TO 100                        01416
                                       GO TO 35                         01417
   25 IF( I .GE. 2 )                   GO TO 100                        01418
                                       GO TO 35                         01419
   30 IF( I .LE. 2 )                   GO TO 100                        01420
C                                                                       01421
C CALCULATE MINIMUM AND MAXIMUM P VALUES                                01422
C                                                                       01423
   35 JNDEX        = INDEX6 + NTABLE * ( I - 1 )                        01424
      PMIN         = WORK(JNDEX+1)                                      01425
      PMAX         = PMIN                                               01426
      DO 80 J=2,NTABLE                                                  01427
      P            = WORK(JNDEX+J)                                      01428
      IF( P - PMIN )                   40, 45, 45                       01429
   40 PMIN         = P                                                  01430
                                       GO TO 80                         01431
   45 IF( P - PMAX )                   80, 80, 60                       01432
   60 PMAX         = P                                                  01433
   80 CONTINUE                                                          01434
C                                                                       01435
      TEST         = ABS( PMAX - PMIN ) / AMAX1( 1., ABS( PMAX + PMIN ))01436
      IF( TEST - TOL )                 100, 100, 9999                   01437
  100 CONTINUE                                                          01438
C                                                                       01439
C CONVERGENCE CRITERIUM MET FOR ALL PARAMETERS, SET CONVERGENCE         01440
C  INDICATOR                                                            01441
C                                                                       01442
      ICNVRG       = 1                                                  01443
 9999 RETURN                                                            01444
      END                                                               01445
      SUBROUTINE STVAR( J, C, X, IB )                                   01446
C                                                                       01447
C THIS SUBROUTINE DETERMINES RANDOM VARIABLES FROM EITHER A NORMAL OR AN01448
C  EXPONENTIAL DISTRIBUTION                                             01449
C                                                                       01450
      IF( J .GT. 0 )                   GO TO 160                        01451
C                                                                       01452
C NORMAL DISTRIBUTION                                                   01453
C                                                                       01454
      K            = 0                                                  01455
                                       GO TO 40                         01456
   20 K            = 1 + K                                              01457
   40 CALL RAND( R0, IB )                                               01458
      R1           = R0                                                 01459
   60 CALL RAND( R2, IB )                                               01460
      IF( R2 - R1 )                    80, 100, 100                     01461
   80 CALL RAND( R1, IB )                                               01462
      IF( R1 - R2 )                    60, 20, 20                       01463
  100 CALL RAND( R2, IB )                                               01464
      FK           = K                                                  01465
      IF( R2 - .5 )                    120, 140, 140                    01466
  120 X            = C * ( FK + R0 )                                    01467
                                       GO TO 9999                       01468
  140 X            = -C * ( FK + R0 )                                   01469
                                       GO TO 9999                       01470
C                                                                       01471
C EXPONENTIAL DISTRIBUTION                                              01472
C                                                                       01473
  160 K            = 0                                                  01474
                                       GO TO 200                        01475
  180 K            = 1 + K                                              01476
  200 CALL RAND( R0, IB )                                               01477
      R1           = R0                                                 01478
  220 CALL RAND( R2, IB )                                               01479
      IF( R2 - R1 )                    240, 260, 260                    01480
  240 CALL RAND( R1, IB )                                               01481
      IF( R1 - R2 )                    220, 180, 180                    01482
  260 FK           = K                                                  01483
      X            = FK + R0                                            01484
      G            = EXP( X - .5 * X * X - .5 )                         01485
      CALL RAND( R2, IB )                                               01486
      IF( R2 - G )                     280, 280, 160                    01487
  280 CALL RAND( R2, IB )                                               01488
      IF( R2 - .5 )                    300, 300, 320                    01489
  300 X            = C * X                                              01490
                                       GO TO 9999                       01491
  320 X            = -C * X                                             01492
C                                                                       01493
 9999 RETURN                                                            01494
      END                                                               01495
      SUBROUTINE RAND( YFL, IX )                                        01496
C                                                                       01497
C THIS SUBROUTINE CALCULATES RANDOM NUMBERS USED BY THE NORMAL OR       01498
C  EXPONENTIAL DISTRIBUTION                                             01499
C                                                                       01500
      IY           = IX * 65539                                         01501
      IF( IY .LT. 0 )                  IY = 2145483647 + 1 + IY         01502
      YFL          = IY                                                 01503
      YFL          = .4656613E-9 * YFL                                  01504
      IX           = IY                                                 01505
 9999 RETURN                                                            01506
      END                                                               01507
      SUBROUTINE PRINTT( WORK, ISERCH )                                 01508
C                                                                       01509
C THIS SUBROUTINE PRINTS THE G TABLE AND ASSOCIATED PARAMETER VALUES FOR01510
C  SEARCHES                                                             01511
C                                                                       01512
      DIMENSION WORK(1), KTYPE(2), KDIST(3,2), IVAR(3), SDEV(3)         01513
      COMMON /INITL/ NPARM, NSERCH, NEVAL, NTABLE, NSTAT, ISEED, IDIST, 01514
     1               IEXPNT, IPRINT, ITYPE, DUM1(3), TOL                01515
      COMMON /INDEX/ INDEX2, INDEX3, INDEX4, INDEX5, INDEX6, INDEX7     01516
      COMMON /LOOPS/  NLOOP                                             01517
      COMMON /SEED/   JSEED                                             01518
      COMMON /ANGLES/ DEGRAD, RADDEG                                    01519
      DATA KTYPE / 4HMINI, 4HMAXI /                                     01520
      DATA KDIST / 4H  GA, 4HUSSI, 4HAN  , 4HEXPO, 4HNENT, 4HIAL  /     01521
      DATA IVAR / 4H  X , 4HTHET, 4H  R  /                              01522
C                                                                       01523
      IF( ISERCH .NE. 1 .OR. IPRINT .NE. 2 )  GO TO 20                  01524
C                                                                       01525
C PRINT INPUT PARAMETERS                                                01526
C                                                                       01527
      WRITE(6,1000) KTYPE(ITYPE+1), ( KDIST(I,IDIST+1),I=1,3 ), TOL,    01528
     1              NPARM, NTABLE, NSTAT, NSERCH, NEVAL, JSEED          01529
 1000 FORMAT( //, T36, 'A ', A4, 'MUM IS BEING SOUGHT', //, T36,        01530
     1        'A ', 3A4, 'DISTRIBUTION IS BEING USED', //, T36,         01531
     2        'TOLERANCE FOR CONVERGENCE', T84, '= ', G10.4, //, T36,   01532
     3        'NUMBER OF PARAMETERS IN FUNCTION', T84, '= ', I6, //, T3601533
     4,       'NUMBER OF ELEMENTS IN DETERMINANT TABLE', T84, '= ', I6, 01534
     5//, T36,'NUMBER OF ELEMENTS USED TO GENERATE STATISTICS  =', I6,//01535
     6        T36, 'MAXIMUM NUMBER OF SEARCHES', T84, '= ', I6, //,     01536
     7        T36, 'NUMBER OF EVALUATIONS OF DETERMINANT PER SEARCH', T801537
     84, '= ',I6, //, T36, 'FIRST RANDOM NUMBER', T84, '= ', Z8 )       01538
C                                                                       01539
C                                                                       01540
C PRINT STANDARD DEVIATIONS IF PRINTING AFTER EACH SEARCH               01541
C                                                                       01542
   20 IF( IPRINT .NE. 2 )              GO TO 30                         01543
      DO 25 I=1,NPARM                                                   01544
      SDEV(I)      = WORK(INDEX3+I)                                     01545
   25 CONTINUE                                                          01546
      SDEV(2)      = RADDEG * SDEV(2)                                   01547
      WRITE(6,1004) ( IVAR(I), SDEV(I),I=1,NPARM )                      01548
 1004 FORMAT( //, T62, 'STANDARD DEVIATION', (/,52X,A4,6X,G15.7) )      01549
C                                                                       01550
C PRINT G TABLE AND PARAMETER VALUES                                    01551
C                                                                       01552
   30 WRITE(6,1001) ISERCH                                              01553
 1001 FORMAT( //, T44, 'RESULTS OF THE DETERMINANT TABLE AFTER SEARCH', 01554
     1        I5 )                                                      01555
      WRITE(6,1002) ( IVAR(I),I=1,3 )                                   01556
 1002 FORMAT( //, 6X, 'I', 7X, 'DETERMINANT', 2X, 7(5X,A4,6X), / )      01557
      DO 40 I=1,NTABLE                                                  01558
      K            = IFIX( WORK(INDEX4+I) + .3 )                        01559
      ANGLE        = WORK(INDEX6+K+NTABLE) * RADDEG                     01560
      WRITE(6,1003) I, WORK(INDEX5+K), WORK(INDEX6+K), ANGLE,           01561
     1              WORK(INDEX6+K+2*NTABLE)                             01562
 1003 FORMAT( 4X, I3, 5X, 8G15.7 )                                      01563
   40 CONTINUE                                                          01564
 9999 RETURN                                                            01565
      END                                                               01566
      FUNCTION DETCAL( IND, A, IE )                                     01567
      DIMENSION A(1)                                                    01568
      COMPLEX ONE, ZERO, DET, MATRIX, FACTR, DIVSR, DETT, KX, EXPNT     01569
      COMMON /MATRX / NDIM1, ONE, ZERO, DET, MATRIX(50,50)              01570
      COMMON /CNSTNT/ NMIKES, NMODES, SIGMA, B, DUM1(4)                 01571
      COMMON /PROBES/ IWALL, DUM3(3)                                    01572
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       01573
      COMMON /EMUS/   EMU(50,50), IEMPRT                                01574
      COMMON /BOUNDS/ XBOUND(2,50), RBOUND(2,50), TBOUND(2,50), XA, XB, 01575
     1                THMIN, THMAX, XLIM, RLIM, THLIM                   01576
      COMMON /MIKES/  NDIM, X(50), R(50), THETA(50)                     01577
      COMMON /BESSL/  DUM2(3), TOL, M, PI                               01578
      COMMON /WAVENO/ KX(50)                                            01579
C                                                                       01580
      IE           = 0                                                  01581
      IF( IND .NE. 0 )                 GO TO 9999                       01582
C                                                                       01583
C CHECK THAT THE CURRENT MICROPHONE LOCATION IS SUFFICIENTLY REMOVED    01584
C  FROM PREVIOUS MICROPHONE LOCATIONS                                   01585
C                                                                       01586
      DO 15 I=1,NDIM1                                                   01587
      IF( ABS( A(1) - X(I) ) - XLIM )  5, 5, 15                         01588
    5 IF( ABS( A(2) - THETA(I) ) - THLIM )  10, 10, 15                  01589
   10 IF( IWALL .LE. 0 )               GO TO 9998                       01590
      IF( ABS( A(3) - R(I) ) - RLIM )  9998, 9998, 15                   01591
   15 CONTINUE                                                          01592
C                                                                       01593
C CALCULATE NDIM CHARACTERISTIC E-FUNCTION VALUES FOR CURRENT VALUE OF R01594
C                                                                       01595
      RPRIME       = A(3) / B                                           01596
      CALL EMUCAL( RPRIME, EMU(1,NDIM), NDIM )                          01597
C                                                                       01598
C SET UP ROW NDIM FROM CURRENT VALUES OF X, R, AND THETA                01599
C                                                                       01600
      DO 20 J=1,NDIM                                                    01601
      EXPNT        = CMPLX( 0.0, REAL( KX(J) ) * A(1) + MODE(J) * A(2) )01602
      MATRIX(NDIM,J) = EMU(J,NDIM) * CEXP( EXPNT ) * EXP( -A(1) *       01603
     1                 AIMAG( KX(J) ) )                                 01604
   20 CONTINUE                                                          01605
C                                                                       01606
C CALCULATE VALUE OF DETERMINANT FOR CURRENT PARAMETERS                 01607
C                                                                       01608
      FACTR        = ONE                                                01609
      DO 60 I=1,NDIM1                                                   01610
      FACTR        = - ( MATRIX(NDIM,I) * CONJG( MATRIX(I,I) ) /        01611
     1               CABS( MATRIX(I,I) ) ** 2 ) * FACTR                 01612
      DIVSR        = - MATRIX(I,I) * CONJG( MATRIX(NDIM,I) ) /          01613
     1               CABS( MATRIX(NDIM,I) ) ** 2                        01614
      MATRIX(NDIM,I) = ZERO                                             01615
      JJ           = I + 1                                              01616
      DO 40 J=JJ,NDIM                                                   01617
      MATRIX(NDIM,J) = MATRIX(I,J) + DIVSR * MATRIX(NDIM,J)             01618
   40 CONTINUE                                                          01619
   60 CONTINUE                                                          01620
C                                                                       01621
      DETT         = MATRIX(NDIM,NDIM) * FACTR * DET                    01622
      DETCAL       = CABS( DETT )                                       01623
                                       GO TO 9999                       01624
 9998 IE           = 1                                                  01625
 9999 RETURN                                                            01626
      END                                                               01627
      SUBROUTINE ELRH2C (HR,HI,K,L,N,IH,WR,WI,ZR,ZI,ID,INFER,IER)       IMSL PKG
C                                                                       IMSL PKG
C...THIS SUBROUTINE IS PART OF THE INTERNATIONAL MATHEMATICAL AND       IMSL PKG
C...STATISTICAL LIBRARY (IMSL) PACKAGE WHICH IS THE PROPERTY OF         IMSL PKG
C...INTERNATIONAL MATHEMATICAL AND STATISTICAL LIBRARIES, INC. OF       IMSL PKG
C...HOUSTON, TEXAS. THE SOURCE CODE IS PROPRIETARY AND THE USER         IMSL PKG
C...MUST HAVE ACCESS TO AN IMSL LIBRARY.                                IMSL PKG
C                                                                       IMSL PKG
      RETURN                                                            IMSL PKG
      END                                                               IMSL PKG
      SUBROUTINE EBALAC (AR,AI,N,IA,K,L,D)                              IMSL PKG
C                                                                       IMSL PKG
C...THIS SUBROUTINE IS PART OF THE INTERNATIONAL MATHEMATICAL AND       IMSL PKG
C...STATISTICAL LIBRARY (IMSL) PACKAGE WHICH IS THE PROPERTY OF         IMSL PKG
C...INTERNATIONAL MATHEMATICAL AND STATISTICAL LIBRARIES, INC. OF       IMSL PKG
C...HOUSTON, TEXAS. THE SOURCE CODE IS PROPRIETARY AND THE USER         IMSL PKG
C...MUST HAVE ACCESS TO AN IMSL LIBRARY.                                IMSL PKG
C                                                                       IMSL PKG
      RETURN                                                            IMSL PKG
      END                                                               IMSL PKG
      SUBROUTINE ELRH1C (HR,HI,K,L,N,IH,WR,WI,INFER,IER)                IMSL PKG
C                                                                       IMSL PKG
C...THIS SUBROUTINE IS PART OF THE INTERNATIONAL MATHEMATICAL AND       IMSL PKG
C...STATISTICAL LIBRARY (IMSL) PACKAGE WHICH IS THE PROPERTY OF         IMSL PKG
C...INTERNATIONAL MATHEMATICAL AND STATISTICAL LIBRARIES, INC. OF       IMSL PKG
C...HOUSTON, TEXAS. THE SOURCE CODE IS PROPRIETARY AND THE USER         IMSL PKG
C...MUST HAVE ACCESS TO AN IMSL LIBRARY.                                IMSL PKG
C                                                                       IMSL PKG
      RETURN                                                            IMSL PKG
      END                                                               IMSL PKG
      SUBROUTINE EIGCC (A,N,IA,IJOB,W,Z,IZ,WK,IER)                      IMSL PKG
C                                                                       IMSL PKG
C...THIS SUBROUTINE IS PART OF THE INTERNATIONAL MATHEMATICAL AND       IMSL PKG
C...STATISTICAL LIBRARY (IMSL) PACKAGE WHICH IS THE PROPERTY OF         IMSL PKG
C...INTERNATIONAL MATHEMATICAL AND STATISTICAL LIBRARIES, INC. OF       IMSL PKG
C...HOUSTON, TEXAS. THE SOURCE CODE IS PROPRIETARY AND THE USER         IMSL PKG
C...MUST HAVE ACCESS TO AN IMSL LIBRARY.                                IMSL PKG
C                                                                       IMSL PKG
      RETURN                                                            IMSL PKG
      END                                                               IMSL PKG
      SUBROUTINE EHESSC (AR,AI,K,L,N,IA,ID)                             IMSL PKG
C                                                                       IMSL PKG
C...THIS SUBROUTINE IS PART OF THE INTERNATIONAL MATHEMATICAL AND       IMSL PKG
C...STATISTICAL LIBRARY (IMSL) PACKAGE WHICH IS THE PROPERTY OF         IMSL PKG
C...INTERNATIONAL MATHEMATICAL AND STATISTICAL LIBRARIES, INC. OF       IMSL PKG
C...HOUSTON, TEXAS. THE SOURCE CODE IS PROPRIETARY AND THE USER         IMSL PKG
C...MUST HAVE ACCESS TO AN IMSL LIBRARY.                                IMSL PKG
C                                                                       IMSL PKG
      RETURN                                                            IMSL PKG
      END                                                               IMSL PKG
      SUBROUTINE EBBCKC (ZR,ZI,N,IZ,K,L,M,D)                            IMSL PKG
C                                                                       IMSL PKG
C...THIS SUBROUTINE IS PART OF THE INTERNATIONAL MATHEMATICAL AND       IMSL PKG
C...STATISTICAL LIBRARY (IMSL) PACKAGE WHICH IS THE PROPERTY OF         IMSL PKG
C...INTERNATIONAL MATHEMATICAL AND STATISTICAL LIBRARIES, INC. OF       IMSL PKG
C...HOUSTON, TEXAS. THE SOURCE CODE IS PROPRIETARY AND THE USER         IMSL PKG
C...MUST HAVE ACCESS TO AN IMSL LIBRARY.                                IMSL PKG
C                                                                       IMSL PKG
      RETURN                                                            IMSL PKG
      END                                                               IMSL PKG
      SUBROUTINE UERTST(IER,NAME)                                       IMSL PKG
C                                                                       IMSL PKG
C...THIS SUBROUTINE IS PART OF THE INTERNATIONAL MATHEMATICAL AND       IMSL PKG
C...STATISTICAL LIBRARY (IMSL) PACKAGE WHICH IS THE PROPERTY OF         IMSL PKG
C...INTERNATIONAL MATHEMATICAL AND STATISTICAL LIBRARIES, INC. OF       IMSL PKG
C...HOUSTON, TEXAS. THE SOURCE CODE IS PROPRIETARY AND THE USER         IMSL PKG
C...MUST HAVE ACCESS TO AN IMSL LIBRARY.                                IMSL PKG
C                                                                       IMSL PKG
      RETURN                                                            IMSL PKG
      END                                                               IMSL PKG
C                                                                       00002
C THIS PROGRAM CALCULATES MODAL AMPLITUDE AND PHASE                     00003
C                                                                       00004
C                                                                       00005
      COMMON /PREDCT/ XP(50), RP(50), THETAP(50)                        00006
      COMMON /APHIMU/ AMU(50), PHIMU(50), ICHECK                        00007
      COMMON /REFCON/ REFPRS                                            00008
      COMMON /EMUS/   EMU(50,50), EMUP(50,50), EMUPRM(50,50), IEMPRT    00009
      COMMON /CNSTNT/ NMEAS, NPRED, NMODES, SIGMA, B, MX, FREQ, A,      00010
     1                OMEGA                                             00011
      COMMON /KQMU/   KMU(50), QMU(50)                                  00012
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       00013
      COMMON /ANGLES/ DEGRAD, RADDEG                                    00014
      COMMON /OUTPUT/ AMPR(50), PHASER(50)                              00015
      COMMON /WAVENO/ KX(50)                                            00016
      COMMON /REFS/   XREF, RREF, THREF                                 00017
      REAL KMU, MX                                                      00018
      COMPLEX KX, EXPNT, SUM1, Q(50,50)                                 00019
      DIMENSION EMUDUM(50)                                              00020
C                                                                       00021
C INPUT DATA FOR THIS CASE                                              00022
C                                                                       00023
   20 CALL INPUT( IEND )                                                00024
      IF( IEND .GT. 0 )                GO TO 9999                       00025
C                                                                       00026
C CALCULATE THE CHARACTERISTIC NUMBERS KMU AND QMU FOR EACH SET OF      00027
C  CIRCUMFERENTIAL MODE NUMBER AND RADIAL ORDER                         00028
C                                                                       00029
      CALL KQCAL                                                        00030
C                                                                       00031
C CALCULATE AXIAL WAVE NUMBER                                           00032
C                                                                       00033
      FLOW         = OMEGA / A                                          00034
      AMACH        = 1. - MX * MX                                       00035
      DO 40 I=1,NMODES                                                  00036
      RADICL       = FLOW ** 2 - AMACH * ( KMU(I) / B ) ** 2            00037
      IF( RADICL )                     25, 30, 30                       00038
   25 KX(I)        = CMPLX( -MX * FLOW / AMACH, IWAVE(I) *              00039
     1               SQRT( ABS( RADICL ) ) / AMACH )                    00040
                                       GO TO 40                         00041
   30 KX(I)        = CMPLX( ( -MX * FLOW + IWAVE(I) * SQRT( RADICL ) ) /00042
     1               AMACH, 0.0 )                                       00043
   40 CONTINUE                                                          00044
C                                                                       00045
C IF THIS IS A CHECK RUN, AMU AND PHIMU HAVE BEEN INPUT. THUS THERE IS  00046
C  NO NEED TO CALCULATE THEM.                                           00047
C                                                                       00048
      IF( ICHECK .GT. 0 )              GO TO 60                         00049
C                                                                       00050
C SET UP AND SOLVE THE EQUATION SYSTEM ASSOCIATED WITH THE MEASUREMENT  00051
C  LOCATIONS                                                            00052
C                                                                       00053
      CALL SOLVE                                                        00054
C                                                                       00055
C CALCULATE SENSITIVITY COEFFICIENTS                                    00056
C                                                                       00057
      CALL SENSTY( Q, NMODES )                                          00058
C                                                                       00059
C CALCULATE SUM OF MODAL AMPLITUDES AND PHASES FOR EACH PREDICTION      00060
C  LOCATION                                                             00061
C                                                                       00062
   60 DO 120 J=1,NPRED                                                  00063
      RPRIME       = RP(J) / B                                          00064
C                                                                       00065
C CALCULATE CHARACTERISTIC E-FUNCTIONS FOR RPRIME                       00066
C                                                                       00067
      CALL EMUCAL( RPRIME, EMUP(1,J), EMUDUM, 0 )                       00068
C                                                                       00069
      DXP          = XP(J) - XREF                                       00070
      DTHETP       = THETAP(J) - THREF                                  00071
      SUM1         = CMPLX( 0., 0. )                                    00072
      DO 100 I=1,NMODES                                                 00073
      EXPNT        = CMPLX( 0.0, REAL( KX(I) ) * DXP + MODE(I) * DTHETP 00074
     1               + PHIMU(I) )                                       00075
      SUM1         = AMU(I) * EMUP(I,J) * CEXP( EXPNT ) * EXP( -DXP *   00076
     1               AIMAG( KX(I) ) ) + SUM1                            00077
  100 CONTINUE                                                          00078
C                                                                       00079
      AMPR(J)      = CABS( SUM1 )                                       00080
      PHASER(J)    = ATAN2( AIMAG( SUM1 ), REAL( SUM1 ) )               00081
  120 CONTINUE                                                          00082
C                                                                       00083
C PRINT RESULTS OF THIS CASE                                            00084
C                                                                       00085
      CALL PRINT                                                        00086
C                                                                       00087
C RECYCLE FOR NEXT CASE                                                 00088
C                                                                       00089
                                       GO TO 20                         00090
 9999 STOP                                                              00091
      END                                                               00092
      SUBROUTINE ANGPOS( ANGLE, NUMBER )                                00093
C                                                                       00094
C THIS SUBROUTINE CONVERTS NEGATIVE ANGLES TO CORRESPONDING POSITIVE    00095
C  ANGLES                                                               00096
C                                                                       00097
      DIMENSION ANGLE(1)                                                00098
      DATA DEGREE / 360. /                                              00099
C                                                                       00100
      DO 80 I=1,NUMBER                                                  00101
      IF( ANGLE(I) )                   20, 80, 80                       00102
   20 DO 40 J=1,10                                                      00103
      DELTA        = J * DEGREE                                         00104
      IF( ANGLE(I) + DELTA )           40, 60, 60                       00105
   40 CONTINUE                                                          00106
   60 ANGLE(I)     = DELTA + ANGLE(I)                                   00107
   80 CONTINUE                                                          00108
 9999 RETURN                                                            00109
      END                                                               00110
      SUBROUTINE BESJ( X, N, BJ, D, IER )                               00159
C                                                                       00160
C THIS SUBROUTINE CALCULATES THE J BESSEL FUNCTION FOR A GIVEN ARGUMENT,00161
C  X, AND ORDER N. THIS SUBROUTINE WAS TAKEN FROM THE IBM SCIENTIFIC    00162
C  SUBROUTINE PACKAGE                                                   00163
C                                                                       00164
      BJ           = 0.0                                                00165
      IF( N .GE. 0 )                   GO TO 20                         00166
C                                                                       00167
C ERROR - NEGATIVE ORDER. SET ERROR INDICATOR TO 1 AND RETURN           00168
C                                                                       00169
      IER          = 1                                                  00170
                                       GO TO 9999                       00171
   20 IF( X )                          40, 30, 60                       00172
   30 IF( N .GT. 0 )                   GO TO 40                         00173
      BJ           = 1.0                                                00174
                                       GO TO 9999                       00175
C                                                                       00176
C ERROR - ARGUMENT ZERO OF NEGATIVE. SET ERROR INDICATOR TO 2 AND RETURN00177
C                                                                       00178
   40 IER          = 2                                                  00179
                                       GO TO 9999                       00180
C                                                                       00181
C CALCULATE MAXIMUM ORDER NUMBER THAT CAN BE PROCESSED FOR X.           00182
C   IF X .LE. 15, N MUST BE LESS THAN 20 + 10*X - X**2/3.               00183
C   IF X .GT. 15, N MUST BE LESS THAN 90 + X/2                          00184
C                                                                       00185
   60 IF( X - 15. )                    80, 80, 100                      00186
   80 NTEST        = 20. + 10. * X - X ** 2 / 3.                        00187
                                       GO TO 120                        00188
  100 NTEST        = 90. + X / 2.                                       00189
  120 IF( N .LT. NTEST )               GO TO 140                        00190
C                                                                       00191
C ERROR - ORDER RANGE COMPARED TO X IS NOT CORRECT. SET ERROR INDICATOR 00192
C  TO 4 AND RETURN.                                                     00193
C                                                                       00194
      IER          = 4                                                  00195
                                       GO TO 9999                       00196
  140 IER          = 0                                                  00197
      N1           = N + 1                                              00198
      BPREV        = 0.0                                                00199
C                                                                       00200
C COMPUTE STARTING VALUE OF M                                           00201
C                                                                       00202
      IF( X - 5. )                     160, 180, 180                    00203
  160 MA           = X + 6.                                             00204
                                       GO TO 200                        00205
  180 MA           = 1.4 * X + 60. / X                                  00206
  200 MB           = N + IFIX( X ) / 4 + 2                              00207
      MZERO        = MAX0( MA, MB )                                     00208
C                                                                       00209
C SET UPPER LIMIT OF M                                                  00210
C                                                                       00211
      MMAX         = NTEST                                              00212
  220 DO 320 M=MZERO,MMAX,3                                             00213
C                                                                       00214
C SET F(M), F(M-1)                                                      00215
C                                                                       00216
      FM1          = 1.0E-28                                            00217
      FM           = 0.0                                                00218
      ALPHA        = 0.0                                                00219
      JT           = 1                                                  00220
      IF( ( M / 2 ) * 2 .EQ. M )       JT = -1                          00221
      M2           = M - 2                                              00222
      DO 280 K=1,M2                                                     00223
      MK           = M - K                                              00224
      BMK          = 2. * FLOAT( MK ) * FM1 / X - FM                    00225
      FM           = FM1                                                00226
      FM1          = BMK                                                00227
      IF( MK - N - 1 )                 260, 240, 260                    00228
  240 BJ           = BMK                                                00229
  260 JT           = -JT                                                00230
      S            = 1 + JT                                             00231
      ALPHA        = ALPHA + BMK * S                                    00232
  280 CONTINUE                                                          00233
C                                                                       00234
      BMK          = 2. * FM1 / X - FM                                  00235
      IF( N .EQ. 0 )                   BJ = BMK                         00236
      ALPHA        = ALPHA + BMK                                        00237
      BJ           = BJ / ALPHA                                         00238
      IF( ABS( BJ - BPREV ) - ABS( D * BJ ) )  9999, 9999, 300          00239
  300 BPREV        = BJ                                                 00240
  320 CONTINUE                                                          00241
C                                                                       00242
C ERROR - REQUIRED TOLERANCE NOT OBTAINED. SET ERROR INDICATOR TO 3 AND 00243
C  RETURN                                                               00244
C                                                                       00245
      IER          = 3                                                  00246
 9999 RETURN                                                            00247
      END                                                               00248
      SUBROUTINE BESY( X, N, BY, IER )                                  00249
C                                                                       00250
C THIS SUBROUTINE CALCULATES THE Y BESSEL FUNCTION FOR A GIVEN ARGUMENT,00251
C  X, AND ORDER N. THIS SUBROUTINE WAS TAKEN FROM THE IBM SCIENTIFIC    00252
C  SUBROUTINE PACKAGE                                                   00253
C                                                                       00254
      IER          = 0                                                  00255
      IF( N .GE. 0 )                   GO TO 20                         00256
C                                                                       00257
C ERROR - NEGATIVE ORDER. SET ERROR INDICATOR TO 1 AND RETURN           00258
C                                                                       00259
      IER          = 1                                                  00260
                                       GO TO 9999                       00261
   20 IF( X )                          40, 40, 60                       00262
C                                                                       00263
C ERROR - ARGUMENT ZERO OR NEGATIVE. SET ERROR INDICATOR TO 2 AND RETURN00264
C                                                                       00265
   40 IER          = 2                                                  00266
                                       GO TO 9999                       00267
C                                                                       00268
C BRANCH IF X IS LESS THAN OR EQUAL TO 4.                               00269
C                                                                       00270
   60 IF( X - 4. )                     100, 100, 80                     00271
C                                                                       00272
C CALCULATE Y0 AND Y1 FOR X GREATER THAN 4.                             00273
C                                                                       00274
   80 T1           = 4. / X                                             00275
      T2           = T1 * T1                                            00276
      P0           = ( ( ( ( -.0000037043 * T2 + .0000173565 ) * T2 -   00277
     1               .0000487613 ) * T2 + .00017343 ) * T2 - .001753062 00278
     2               ) * T2 + .3989423                                  00279
      Q0           = ( ( ( ( .0000032312 * T2 - .0000142078 ) * T2 +    00280
     1               .0000342468 ) * T2 - .0000869791 ) * T2 +          00281
     2               .0004564324 ) * T2 - .01246694                     00282
      P1           = ( ( ( ( .0000042414 * T2 - .000020092 ) * T2 +     00283
     1               .0000580759 ) * T2 - .000223203 ) * T2 +           00284
     2               .002921826 ) * T2 + .3989423                       00285
      Q1           = ( ( ( ( -.0000036594 * T2 + .00001622 ) * T2 -     00286
     1               .0000398708 ) * T2 + .0001064741 ) * T2 -          00287
     2               .00063904 ) * T2 + .03740084                       00288
      A            = 2. / SQRT( X )                                     00289
      B            = A * T1                                             00290
      C            = X - .7853982                                       00291
      Y0           = A * P0 * SIN( C ) + B * Q0 * COS( C )              00292
      Y1           = -A * P1 * COS( C ) + B * Q1 * SIN( C )             00293
                                       GO TO 160                        00294
C                                                                       00295
C CALCULATE Y0 AND Y1 FOR X LESS THAN OR EQUAL TO 4                     00296
C                                                                       00297
  100 XX           = .5 * X                                             00298
      X2           = XX * XX                                            00299
      T            = ALOG( XX ) + .5772157                              00300
      SUM          = 0.0                                                00301
      TERM         = T                                                  00302
      Y0           = T                                                  00303
      DO 120 L=1,15                                                     00304
      IF( L .NE. 1 )                   SUM = 1. / FLOAT( L-1) + SUM     00305
      FL           = L                                                  00306
      TS           = T - SUM                                            00307
      TERM         = ( -X2 * TERM / ( FL ** 2 ) ) * ( 1. - 1. / ( FL *  00308
     1               TS ) )                                             00309
      Y0           = TERM + Y0                                          00310
  120 CONTINUE                                                          00311
      TERM         = XX * ( T - .5 )                                    00312
      SUM          = 0.0                                                00313
      Y1           = TERM                                               00314
      DO 140 L=2,16                                                     00315
      SUM          = 1. / FLOAT( L-1 ) + SUM                            00316
      FL           = L                                                  00317
      FL1          = FL - 1.                                            00318
      TS           = T - SUM                                            00319
      TERM         = ( -X2 * TERM / ( FL * FL1 ) ) * ( ( TS - .5 / FL ) 00320
     1               / ( TS + .5 / FL1 ) )                              00321
      Y1           = TERM + Y1                                          00322
  140 CONTINUE                                                          00323
      PI2          = .6366198                                           00324
      Y0           = PI2 * Y0                                           00325
      Y1           = PI2 * ( Y1 - 1. / X )                              00326
C                                                                       00327
C CHECK IF ONLY Y0 OR Y1 IS DESIRED                                     00328
C                                                                       00329
  160 IF( N .GT. 1 )                   GO TO 180                        00330
C                                                                       00331
C RETURN Y0 OR Y1 AS REQUIRED                                           00332
C                                                                       00333
      BY           = Y0                                                 00334
      IF( N .EQ. 1 )                   BY = Y1                          00335
                                       GO TO 9999                       00336
C                                                                       00337
C PERFORM RECURRENCE OPERATIONS TO FIND YN(X)                           00338
C                                                                       00339
  180 YA           = Y0                                                 00340
      YB           = Y1                                                 00341
      K            = 1                                                  00342
  200 T = FLOAT( 2*K ) / X                                              00343
      YC           = T * YB - YA                                        00344
      IF( ABS( YC ) - 1.0E70 )         240, 240, 220                    00345
C                                                                       00346
C ERROR - BY HAS EXCEEDED MAGNITUDE OF 10**70. SET ERROR INDICATOR TO 3 00347
C  AND RETURN                                                           00348
C                                                                       00349
  220 IER          = 3                                                  00350
                                       GO TO 9999                       00351
  240 K            = 1 + K                                              00352
      IF( K .EQ. N )                   GO TO 260                        00353
      YA           = YB                                                 00354
      YB           = YC                                                 00355
                                       GO TO 200                        00356
  260 BY           = YC                                                 00357
 9999 RETURN                                                            00358
      END                                                               00359
      FUNCTION BESL1( X )                                               00111
C                                                                       00112
C THIS FUNCTION CALCULATES VALUES OF THE EQUATION DEFINING THE SYSTEM OF00113
C  DIFFERENTIAL EQUATIONS FOR A NON-ZERO HUB/TIP RATIO                  00114
C                                                                       00115
      COMMON /BESSL/ ISIGN, JSIGN, DELKMU, TOL, M, PI                   00116
      COMMON /CNSTNT/ DUM1(3), SIGMA, DUM2(5)                           00117
C                                                                       00118
      X1           = X * SIGMA                                          00119
      CALL BESJ( X1, M-JSIGN, EMJM1, TOL, IER1 )                        00120
      CALL BESJ( X1, M , EMJX1, TOL, IER2 )                             00121
      CALL BESJ( X, M, EMJ, TOL, IER3 )                                 00122
      CALL BESJ( X, M-JSIGN, EMJP1, TOL, IER4 )                         00123
      CALL BESY( X, M, EMYX, IER5 )                                     00124
      CALL BESY( X1, M, EMYX1, IER6 )                                   00125
C                                                                       00126
      EMJM1        = JSIGN * ISIGN * EMJM1                              00127
      EMJX1        = ISIGN * EMJX1                                      00128
      EMJ          = ISIGN * EMJ                                        00129
      EMJP1        = JSIGN * ISIGN * EMJP1                              00130
      EMYX         = ISIGN * EMYX                                       00131
      EMYX1        = ISIGN * EMYX1                                      00132
C                                                                       00133
      A1           = EMJM1 - ( M * JSIGN / X1 ) * EMJX1                 00134
      A2           = EMJP1 - ( M * JSIGN / X ) * EMJ                    00135
      A3           = 2. * A1 / ( PI * X * EMJ )                         00136
      A4           = 2. * A2 / ( PI * X1 * EMJX1 )                      00137
      A5           = A1 * A2 * ( EMYX / EMJ - EMYX1 / EMJX1 )           00138
C                                                                       00139
      BESL1        = X1 * X * ( A3 - A4 + A5 )                          00140
      RETURN                                                            00141
      END                                                               00142
      FUNCTION BESL2( X )                                               00143
C                                                                       00144
C THIS FUNCTION CALCULATES VALUES OF THE EQUATION DEFINING THE SYSTEM OF00145
C  DIFFERENTIAL EQUATIONS FOR A HUB/TIP RATIO OF ZERO                   00146
C                                                                       00147
      COMMON /BESSL/ ISIGN, JSIGN, DELKMU, TOL, M, PI                   00148
      COMMON /CNSTNT/ DUM1(3), SIGMA, DUM2(5)                           00149
C                                                                       00150
      CALL BESJ( X, M-JSIGN, EMJM1, TOL, IER1 )                         00151
      CALL BESJ( X, M, EMJ, TOL, IER2 )                                 00152
C                                                                       00153
      EMJM1        = JSIGN * ISIGN * EMJM1                              00154
      EMJ          = ISIGN * EMJ                                        00155
      BESL2        = X * EMJM1 - M * JSIGN * EMJ                        00156
      RETURN                                                            00157
      END                                                               00158
      BLOCK DATA                                                        00360
      COMMON /DFAULT/ LOCM, LOCP, HTR, OR, EMX, FRQ, X0, R0,            00361
     1                TH0, X(50), R(50), THM(50), BETAM(50), PSIM(50),  00362
     2                PX(50), PR(50), THP(50), M(50), MUS(50),          00363
     3                IDIR(50), PREF, AM(50), PHI(50), ICHK,            00364
     4                SIGX, SIGR, SIGT, SIGB, SIGP, IEMU, SPEED         00365
C                                                                       00366
C CONSTANT DEFAULT VALUES                                               00367
C                                                                       00368
C    LOCM   - NUMBER OF MEASUREMENT LOCATIONS                           00369
C    LOCP   - NUMBER OF PREDICTION LOCATIONS                            00370
C    HTR    - HUB / TIP RATIO                                           00371
C    OR     - OUTER RADIUS                                              00372
C    EMX    - AXIAL MACH NUMBER                                         00373
C    FRQ    - TEST FREQUENCY                                            00374
C    SPEED  - SPEED OF SOUND                                            00375
C                                                                       00376
      DATA LOCM / 2 /, LOCP / 2 /, HTR / 0.44 /, OR / 5.0 /,            00377
     1     EMX / -0.07 /, FRQ / 3100. /, SPEED / 13566.24 /             00378
C                                                                       00379
C REFERENCE LOCATION VALUES                                             00380
C                                                                       00381
C    X0     - AXIAL COMPONENT OF REFERENCE LOCATION                     00382
C    R0     - RADIAL COMPONENT OF REFERENCE LOCATION                    00383
C    TH0    - ANGULAR COMPONENT OF REFERENCE LOCATION (DEG)             00384
C                                                                       00385
      DATA X0 / 0.0 /, R0 / 0.0 /, TH0 / 0.0 /                          00386
C                                                                       00387
C MEASUREMENT LOCATION VALUES                                           00388
C                                                                       00389
C    X      - AXIAL COMPONENT OF MEASUREMENT LOCATION                   00390
C    R      - RADIAL COMPONENT OF MEASUREMENT LOCATION                  00391
C    THM    - ANGULAR COMPONENT OF MEASUREMENT LOCATION (DEG)           00392
C    BETAM  - AMPLITUDE OF MEASURED VALUE                               00393
C    PSIM   - PHASE ANGLE OF MEASURED VALUE (DEG)                       00394
C                                                                       00395
      DATA X / 9.568, 6.582, 48*0.0 /, R / 2*5.0, 48*0.0 /,             00396
     1     THM   / 50*0.0 /, BETAM / 0.03136, 0.05097, 48*0.0 /,        00397
     2     PSIM / 97.8, 215.6, 48*0.0 /                                 00398
C                                                                       00399
C PREDICTION LOCATION VALUES                                            00400
C                                                                       00401
C    PX     - AXIAL COMPONENT OF PREDICTION LOCATION                    00402
C    PR     - RADIAL COMPONENT OF PREDICTION LOCATION                   00403
C    THP    - ANGULAR COMPONENT OF PREDICTION LOCATION (DEG)            00404
C                                                                       00405
      DATA PX / 5.788, 2.513, 48*0.0 /, PR / 2*5.0, 48*0.0 /,           00406
     1     THP   / 50*0.0 /                                             00407
C                                                                       00408
C MODE VALUES                                                           00409
C                                                                       00410
C    M      - CIRCUMFERENTIAL MODE NUMBER                               00411
C    MUS    - RADIAL ORDER                                              00412
C    IDIR   - INCIDENT OR REFLECTED WAVE INDICATOR                      00413
C                                                                       00414
      DATA M / -2, -2, 48*0 /, MUS / 0, 1, 48*0 /, IDIR / 1, 1, 48*0 /  00415
C                                                                       00416
C REFERENCE CONSTANTS                                                   00417
C                                                                       00418
C    PREF   - REFERENCE PRESSURE                                        00419
C                                                                       00420
      DATA PREF / 2.9E-9 /                                              00421
C                                                                       00422
C RESULTANT AMPLITUDE AND PHASE VALUES                                  00423
C                                                                       00424
C    AM     - AMPLITUDE                                                 00425
C    PHI    - PHASE ANGLE (DEG)                                         00426
C    ICHK   - CHECK CASE INDICATOR                                      00427
C                                                                       00428
      DATA AM / 50*0.0 /, PHI / 50*0.0 /, ICHK / 0 /                    00429
C                                                                       00430
C BESSEL FUNCTION VALUES                                                00431
C                                                                       00432
      COMMON /BESSL/  DUM2(2), DELKMU, TOL, MM, PI                      00433
      DATA DELKMU / 3. /, TOL / .0001 /, PI / 3.141593 /                00434
C                                                                       00435
C ANGULAR CONVERSION FACTORS                                            00436
C                                                                       00437
C    DEGRAD - DEGREES TO RADIANS                                        00438
C    RADDEG - RADIANS TO DEGREES                                        00439
C                                                                       00440
      COMMON /ANGLES/ DEGRAD, RADDEG                                    00441
      DATA DEGRAD / .0174533 /, RADDEG / 57.29578 /                     00442
C                                                                       00443
C                                                                       00444
C ERROR DEVIATION COEFFICIENTS                                          00445
C                                                                       00446
C    SIGX   - AXIAL COEFFICIENT                                         00447
C    SIGR   - RADIAL COEFFICIENT                                        00448
C    SIGT   - ANGULAR COEFFICIENT                                       00449
C    SIGB   - AMPLITUDE COEFFICIENT                                     00450
C    SIGP   - PHASE COEFFICIENT                                         00451
C                                                                       00452
      DATA SIGX / 0.0 /, SIGR / 0.0 /, SIGT / 0.0 /, SIGP / 0.0 /,      00453
     1     SIGB / 0.0 /                                                 00454
      END                                                               00455
      SUBROUTINE EMUCAL( RPRIME, EMU, EMUPRM, IDERIV )                  00456
C                                                                       00457
C THIS SUBROUTINE CALCULATES NMODES CHARACTERISTIC E-FUNCTION VALUES FOR00458
C  A PARTICULAR RADIAL VALUE, RPRIME.                                   00459
C                                                                       00460
      DIMENSION EMU(1), EMUPRM(1)                                       00461
      COMMON /CNSTNT/ NMEAS, NPRED, NMODES, DUM1(6)                     00462
      COMMON /KQMU/   KMU(50), QMU(50)                                  00463
      COMMON /MODES/  MODE(50), DUM2(100)                               00464
      COMMON /BESSL/  ISIGN, JSIGN, DELKMU, TOL, M, PI                  00465
      REAL KMU, JPRIME                                                  00466
C                                                                       00467
C                                                                       00468
      DO 40 I=1,NMODES                                                  00469
      M            = IABS( MODE(I) )                                    00470
      IF( M .NE. 0 )                   GO TO 10                         00471
      ISIGN        = 1                                                  00472
      JSIGN        = -1                                                 00473
                                       GO TO 20                         00474
   10 ISIGN        = MODE(I) / M                                        00475
      JSIGN        = ISIGN                                              00476
      IF( ISIGN .GE. 0 )               GO TO 20                         00477
C                                                                       00478
C NEGATIVE MODE NUMBER. IF EVEN, SIGN OF BESSEL FUNCTION WILL BE +1. IF 00479
C  ODD, SIGN OF BESSEL FUNCTION WILL BE -1.                             00480
C                                                                       00481
      IF( ( M / 2 ) * 2 .EQ. M )       ISIGN = 1                        00482
   20 CONST        = KMU(I) * RPRIME                                    00483
C                                                                       00484
C CALCULATE BESSEL FUNCTIONS OF FIRST AND SECOND KIND FOR KMU(I)*RPRIME 00485
C                                                                       00486
      CALL BESJ( CONST, M, EMJ, TOL, IER1 )                             00487
      CALL BESY( CONST, M, EMY, IER2 )                                  00488
      CALL BESJ( CONST, M-JSIGN, EMM1, TOL, IER3 )                      00489
      EMM1         = ISIGN * JSIGN * EMM1                               00490
      EMJ          = ISIGN * EMJ                                        00491
      EMY          = ISIGN * EMY                                        00492
C                                                                       00493
C CALCULATE CHARACTERISTIC E-FUNCTION                                   00494
C                                                                       00495
      EMU(I)       = EMJ + QMU(I) * EMY                                 00496
      IF( IDERIV .LE. 0 )              GO TO 40                         00497
      IF( KMU(I) )                     30, 25, 30                       00498
C                                                                       00499
C (0,0) CASE. SET DERIVATIVE TO 0.0                                     00500
C                                                                       00501
   25 EMUPRM(I)    = 0.0                                                00502
                                       GO TO 40                         00503
C                                                                       00504
C CALCULATE DERIVATIVE OF CHARACTERISTIC E-FUNCTION                     00505
C                                                                       00506
   30 JPRIME       = EMM1 - MODE(I) * EMJ / CONST                       00507
      YPRIME       = 2. / ( PI * CONST * EMJ ) + JPRIME * EMY / EMJ     00508
      EMUPRM(I)    = KMU(I) * ( JPRIME + QMU(I) * YPRIME )              00509
   40 CONTINUE                                                          00510
 9999 RETURN                                                            00511
      END                                                               00512
      FUNCTION FALZIP (FUNCT, AL , BR , TOL, ROOT, ITER, YY)            00513
C                                                                       00514
C CORRESPONDS TO OLD VERSION (FALSIE) ARGUMENT LIST AS FOLLOWS (THIS IS 00515
C  FOR INTERNAL PURPOSES ONLY, IN USE THE TWO ARE INTERCHANGEABLE).     00516
C                                                                       00517
C     FUNCTION FALSIE (AXR,   XXL, XXR, TOL, ROOT, ITER, YY)            00518
C                                                                       00519
C                                                                       00520
C  THIS ROUTINE USES A COMBINATION OF FALSE POSITION AND BISECTION      00521
C    TECHNIQUES TO SOLVE FOR A ROOT ('ROOT') OF A GIVEN FUNCTION        00522
C    ('FUNCT') WHICH HAS ONE ARGUMENT (THE INDEPENDENT VARIABLE).       00523
C                                                                       00524
C   'AL,BR' DEFINES THE INTERVAL TO BE SEARCHED.                        00525
C                                                                       00526
C  THE VALUE RETURNED BY THE FUNCTION IS FALZIP.  FUNCT(FALZIP) = ROOT  00527
C                                                                       00528
C  THE SEARCH CONTINUES UNTIL TWO SUBSEQUENT GUESSES ARE WITHIN 'TOL'   00529
C    OF EACH OTHER, OR UNTIL 'ITER' ITERATIONS HAVE TAKEN PLACE.        00530
C                                                                       00531
C  'YY' IS RETURNED AS FUNCT(FALZIP), AND SHOULD BE CLOSE TO 'ROOT'.    00532
C                                                                       00533
C  THE TECHNIQUE WAS ADAPTED FROM AN ALGOL SUBROUTINE APPEARING IN THE  00534
C    COMPUTER JOURNAL 12 (1969) --  'EIGENVALUES OF A*X = LAMBDA*B*X    00535
C    WITH BAND SYMMETRIC A AND B' BY G. PETERS + J.H. WILKINSON         00536
C                                                                       00537
      EXTERNAL FUNCT                                                    00538
      REAL INTERP                                                       00539
C                                                                       00540
C  J IS COUNT OF ITERATIONS.                                            00541
    1 J = 0                                                             00542
      A = AL                                                            00543
      B = BR                                                            00544
C                                                                       00545
C  EVALUATE FUNCTION AT LEFT (A) AND RIGHT (B) BRACKETS.                00546
      AF = FUNCT (A)                                                    00547
      BF = FUNCT (B)                                                    00548
C                                                                       00549
C  THE FOLLOWING (THROUGH STATEMENT 3) DETERMINES IF THE FUNCTION IS OF 00550
C    OPPOSITE SIGN AT THE ENDPOINTS GIVEN.                              00551
      ISW = 1                                                           00552
      IF (BF - ROOT) 2, 75, 3                                           00553
    2 ISW = -1                                                          00554
    3 IF ((AF - ROOT) * ISW) 50, 80, 85                                 00555
C                                                                       00556
C  STATEMENT 5 INCREMENTS THE COUNTER J; FIRST TIME THROUGH GO TO 50.   00557
    5 J = J + 1                                                         00558
C                                                                       00559
C  IF LEFT BRACKET HAS 'SAME' FUNCTION VALUE AS RIGHT, USE BISECTION.   00560
C    OTHERWISE, SET UP INTERPOLATED POINT FOR POSSIBLE USE.             00561
      IF (ABS((AF - BF)/BF) - 1.E-5) 10, 10, 15                         00562
   10 INTERP = BISECT                                                   00563
      GO TO 20                                                          00564
   15 INTERP = (A*BF - B*AF + (B-A)*ROOT) / (BF-AF)                     00565
C                                                                       00566
C  IF WITHIN A TOLERANCE OF THE BRACKET B, MOVE THE INTERPOLATED POINT  00567
C    ONE TOLERANCE AWAY.                                                00568
   20 IF ((ABS(INTERP-B)/ABS(INTERP+B)) -2.*TOL) 22,23,23               00569
   22 INTERP = B + (C - B) / ABS (C - B) * TOL                          00570
C                                                                       00571
C  SET A=B (B IS ALWAYS THE POINT WITH SMALLEST (ABS) VALUE OF FUNCTION.00572
   23 A = B                                                             00573
      AF = BF                                                           00574
C                                                                       00575
C  USE POINT CLOSEST TO B (INTERP OR BISECT) AS NEW B AND EVALUATE BF.  00576
      IF ((INTERP - BISECT) * (B - INTERP)) 30, 25, 25                  00577
   25 B = INTERP                                                        00578
      GO TO 35                                                          00579
   30 B = BISECT                                                        00580
   35 BF = FUNCT(B)                                                     00581
      BFMR = BF - ROOT                                                  00582
C                                                                       00583
C  IF CF IS ON THE SAME SIDE OF THE ROOT AS BF, LET POINT C = POINT A.  00584
   40 IF ((CF - ROOT) * BFMR) 55, 75, 50                                00585
   50 C = A                                                             00586
      CF = AF                                                           00587
C                                                                       00588
C  IF CF IS CLOSER (ABS) TO ROOT THAN BF, SWITCH POINTS B AND C.        00589
C    IN ANY CASE, B AND C ARE THE TWO BRACKETS. ALSO BF IS CLOSER TO THE00590
C    ROOT THAN CF IS.                                                   00591
   55 IF (ABS(BF - ROOT) - ABS(CF - ROOT)) 60, 60, 57                   00592
   57 A  = B                                                            00593
      AF = BF                                                           00594
      B  = C                                                            00595
      BF = CF                                                           00596
      C  = A                                                            00597
      CF = AF                                                           00598
C                                                                       00599
C  SET UP BISECTION POINT.  IF CLOSE ENOUGH, FINISH UP.  OTHERWISE GO   00600
C    BACK IF ITERATION COUNT DOESN'T EXCEED MAXIMUM.                    00601
   60 BISECT = (B + C) / 2.                                             00602
      IF ((ABS(BISECT-B)/ABS(BISECT+B)) -2.*TOL) 75,65,65               00603
   65 IF (J - ITER) 5, 70, 70                                           00604
   70 WRITE(6,1000)J,B,BF,C,CF                                          00605
 1000 FORMAT (1H0/// 30X, 'IN FALZIP, AFTER', I4, ' ITERATIONS' //      00606
     1    10X, 'BRACKET 1 = ', G15.8, 5X, 'FUNCTION = ', G15.8/         00607
     2    10X, 'BRACKET 2 = ', G15.8, 5X, 'FUNCTION = ', G15.8/         00608
     3    5X, 'BRACKET 1 WAS RETURNED AS RESULT.')                      00609
   75 FALZIP = B                                                        00610
      YY = BF                                                           00611
      RETURN                                                            00612
   80 FALZIP = A                                                        00613
      YY = AF                                                           00614
      RETURN                                                            00615
   85 WRITE(6,1100)ROOT,A,AF,B,BF                                       00616
 1100 FORMAT ('0***IN FALZIP, ROOT GIVEN (=', G15.8, ') DIDN''T FALL BET00617
     1WEEN VALUES OF FUNCTION AT BRACKETS GIVEN***'/                    00618
     2   10X, 'BRACKET 1 = ', G15.8, 5X, 'FUNCTION = ', G15.8 /         00619
     3   10X, 'BRACKET 2 = ', G15.8, 5X, 'FUNCTION = ', G15.8 /         00620
     4        40X, 'TERMINATING RUN' )                                  00621
      STOP                                                              00622
      END                                                               00623
      SUBROUTINE INPUT( IEND )                                          00624
C                                                                       00625
C THIS SUBROUTINE INPUTS THE DATA REQUIRED FOR THE EXECUTION OF A CASE  00626
C                                                                       00627
      COMMON /DFAULT/ LOCM, LOCP, HTR, OR, EMX, FRQ, X0, R0,            00628
     1                TH0, X(50), R(50), THM(50), BETAM(50), PSIM(50),  00629
     2                PX(50), PR(50), THP(50), M(50), MUS(50),          00630
     3                IDIR(50), PREF, AM(50), PHI(50), ICHK,            00631
     4                SIGX, SIGR, SIGT, SIGB, SIGP, IEMU, SPEED         00632
      COMMON /CNSTNT/ NMEAS, NPRED, NMODES, SIGMA, B, MX, FREQ, A,      00633
     1                OMEGA                                             00634
      COMMON /REFS/   XREF, RREF, THREF                                 00635
      COMMON /MEASUR/ XM(50), RM(50), THETAM(50), BETA(50), PSI(50)     00636
      COMMON /PREDCT/ XP(50), RP(50), THETAP(50)                        00637
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       00638
      COMMON /BESSL/  DUM1(5), PI                                       00639
      COMMON /REFCON/ REFPRS                                            00640
      COMMON /ANGLES/  DEGRAD, RADDEG                                   00641
      COMMON /APHIMU/ AMU(50), PHIMU(50), ICHECK                        00642
      COMMON /EMUS/   EMU(50,50), EMUP(50,50), EMUPRM(50,50), IEMPRT    00643
      COMMON /DVIATE/ SIGMAX, SIGMAR, SIGMAT, SIGMAB, SIGMAP, DUM2(150),00644
     1                IDEV                                              00645
C                                                                       00646
      NAMELIST /INDATA/ LOCM, LOCP, HTR, OR, EMX, FRQ, X0,              00647
     1                  TH0, X, R, THM, BETAM, PSIM, PX, PR, THP, M,    00648
     2                  MUS, IDIR, PREF, VREF, AM, PHI, ICHK,           00649
     3                  SIGX, SIGR, SIGT, SIGB, SIGP, IEMU, SPEED       00650
      REAL MX, LREF                                                     00651
C                                                                       00652
C                                                                       00653
      IEND         = 0                                                  00654
      READ(5,INDATA,END=9998)                                           00655
C                                                                       00656
C SET UP INTERNAL PARAMETERS                                            00657
C                                                                       00658
      NMEAS        = LOCM                                               00659
      NPRED        = LOCP                                               00660
      NMODES       = LOCM                                               00661
      SIGMA        = HTR                                                00662
      MX           = EMX                                                00663
      FREQ         = FRQ                                                00664
      REFPRS       = PREF                                               00665
      ICHECK       = ICHK                                               00666
      XREF         = X0                                                 00667
      RREF         = R0                                                 00668
      THREF        = TH0 * DEGRAD                                       00669
      B            = OR                                                 00670
      A            = SPEED                                              00671
      IEMPRT       = IEMU                                               00672
      SIGMAX       = SIGX                                               00673
      SIGMAR       = SIGR                                               00674
      SIGMAT       = SIGT                                               00675
      SIGMAB       = SIGB                                               00676
      SIGMAP       = SIGP                                               00677
C                                                                       00678
      DO 20 I=1,NMEAS                                                   00679
      XM(I)        = X(I)                                               00680
      RM(I)        = R(I)                                               00681
      THETAM(I)    = THM(I) * DEGRAD                                    00682
      PSI(I)       = PSIM(I) * DEGRAD                                   00683
      BETA(I)      = BETAM(I)                                           00684
   20 CONTINUE                                                          00685
C                                                                       00686
      DO 40 I=1,NPRED                                                   00687
      XP(I)        = PX(I)                                              00688
      RP(I)        = PR(I)                                              00689
      THETAP(I)    = THP(I) * DEGRAD                                    00690
   40 CONTINUE                                                          00691
C                                                                       00692
      DO 60 I=1,NMODES                                                  00693
      MODE(I)      = M(I)                                               00694
      MU(I)        = MUS(I)                                             00695
      IWAVE(I)     = IDIR(I)                                            00696
      AMU(I)       = AM(I)                                              00697
      PHIMU(I)     = PHI(I) * DEGRAD                                    00698
   60 CONTINUE                                                          00699
C                                                                       00700
      DO 80 J=1,20                                                      00701
      DO 80 I=1,20                                                      00702
      EMU(I,J)     = 0.0                                                00703
      EMUP(I,J)    = 0.0                                                00704
      EMUPRM(I,J)  = 0.0                                                00705
   80 CONTINUE                                                          00706
C                                                                       00707
C CALCULATE RADIAN FREQUENCY                                            00708
C                                                                       00709
      OMEGA        = 2. * PI * FREQ                                     00710
C                                                                       00711
C                                                                       00712
C SET INDICATOR FOR ERROR SOURCE STANDARD DEVIATIONS                    00713
C                                                                       00714
      IF( SIGMAX )                     200, 100, 200                    00715
  100 IF( SIGMAR )                     200, 120, 200                    00716
  120 IF( SIGMAT )                     200, 140, 200                    00717
  140 IF( SIGMAB )                     200, 160, 200                    00718
  160 IF( SIGMAP )                     200, 180, 200                    00719
  180 IDEV         = 0                                                  00720
                                       GO TO 9999                       00721
  200 IDEV         = 1                                                  00722
                                       GO TO 9999                       00723
C                                                                       00724
C END OF DATA SET                                                       00725
C                                                                       00726
 9998 IEND         = 1                                                  00727
 9999 RETURN                                                            00728
      END                                                               00729
      SUBROUTINE INVERT( A, N, D, L, M )                                01504
C                                                                       01505
C THIS SUBROUTINE INVERTS A COMPLEX MATRIX. THIS PROCEDURE WAS ADAPTED  01506
C  FROM THE IBM SCIENTIFIC SUBROUTINE PACKAGE                           01507
C                                                                       01508
      DIMENSION L(1), M(1)                                              01509
      COMPLEX A(1), BIGA, HOLD, D, ONE, ZERO                            01510
      DATA ZERO / (0.0,0.0) /, ONE / (1.0,0.0) /                        01511
C                                                                       01512
C SEARCH FOR THE LARGEST ELEMENT                                        01513
C                                                                       01514
      D            = ONE                                                01515
      NK           = -N                                                 01516
      DO 380 K=1,N                                                      01517
      NK           = N + NK                                             01518
      L(K)         = K                                                  01519
      M(K)         = K                                                  01520
      KK           = K + NK                                             01521
      BIGA         = A(KK)                                              01522
      DO 60 J=K,N                                                       01523
      IZ           = N * ( J - 1 )                                      01524
      DO 60 I=K,N                                                       01525
      IJ           = IZ + I                                             01526
   20 IF( CABS( BIGA ) - CABS( A(IJ) ) )  40, 60, 60                    01527
   40 BIGA         = A(IJ)                                              01528
      L(K)         = I                                                  01529
      M(K)         = J                                                  01530
   60 CONTINUE                                                          01531
C                                                                       01532
C INTERCHANGE ROWS                                                      01533
C                                                                       01534
      J            = L(K)                                               01535
      IF( J - K )                      120, 120, 80                     01536
   80 KI           = K - N                                              01537
      DO 100 I=1,N                                                      01538
      KI           = N + KI                                             01539
      HOLD         = -A(KI)                                             01540
      JI           = KI - K + J                                         01541
      A(KI)        = A(JI)                                              01542
      A(JI)        = HOLD                                               01543
  100 CONTINUE                                                          01544
C                                                                       01545
C INTERCHANGE COLUMNS                                                   01546
C                                                                       01547
  120 I            = M(K)                                               01548
      IF( I - K )                      180, 180, 140                    01549
  140 JP           = N * ( I - 1 )                                      01550
      DO 160 J=1,N                                                      01551
      JK           = NK + J                                             01552
      JI           = JP + J                                             01553
      HOLD         = -A(JK)                                             01554
      A(JK)        = A(JI)                                              01555
      A(JI)        = HOLD                                               01556
  160 CONTINUE                                                          01557
C                                                                       01558
C DIVIDE COLUMN BY MINUS PIVOT ( VALUE OF PIVOT IS CONTAINED IN BIGA )  01559
C                                                                       01560
  180 IF( CABS( BIGA ) )               200, 200, 220                    01561
  200 D            = ZERO                                               01562
                                       GO TO 9999                       01563
  220 DO 260 I=1,N                                                      01564
      IF( I - K )                      240, 260, 240                    01565
  240 IK           = NK + I                                             01566
      A(IK)        = A(IK) / ( -BIGA )                                  01567
  260 CONTINUE                                                          01568
C                                                                       01569
C REDUCE MATRIX                                                         01570
C                                                                       01571
      DO 320 I=1,N                                                      01572
      IK           = NK + I                                             01573
      HOLD         = A(IK)                                              01574
      IJ           = I - N                                              01575
      DO 320 J=1,N                                                      01576
      IJ           = IJ + N                                             01577
      IF( I - K )                      280, 320, 280                    01578
  280 IF( J - K )                      300, 320, 300                    01579
  300 KJ           = IJ - I + K                                         01580
      A(IJ)        = HOLD * A(KJ) + A(IJ)                               01581
  320 CONTINUE                                                          01582
C                                                                       01583
C DIVIDE ROW BY PIVOT                                                   01584
C                                                                       01585
      KJ           = K - N                                              01586
      DO 360 J=1,N                                                      01587
      KJ           = N + KJ                                             01588
      IF( J - K )                      340, 360, 340                    01589
  340 A(KJ)        = A(KJ) / BIGA                                       01590
  360 CONTINUE                                                          01591
C                                                                       01592
C CALCULATE DETERMINANT                                                 01593
C                                                                       01594
      D            = D * BIGA                                           01595
C                                                                       01596
C REPLACE PIVOT BY RECIPROCAL                                           01597
C                                                                       01598
      A(KK)        = ONE / BIGA                                         01599
  380 CONTINUE                                                          01600
C                                                                       01601
C FINAL ROW AND COLUMN INTERCHANGE                                      01602
C                                                                       01603
      K            = N                                                  01604
  400 K            = K - 1                                              01605
      IF( K )                          9999, 9999, 420                  01606
  420 I            = L(K)                                               01607
      IF( I - K )                      480, 480, 440                    01608
  440 JQ           = N * ( K - 1 )                                      01609
      JR           = N * ( I - 1 )                                      01610
      DO 460 J=1,N                                                      01611
      JK           = JQ + J                                             01612
      HOLD         = A(JK)                                              01613
      JI           = JR + J                                             01614
      A(JK)        = -A(JI)                                             01615
      A(JI)        = HOLD                                               01616
  460 CONTINUE                                                          01617
  480 J            = M(K)                                               01618
      IF( J - K )                      400, 400, 500                    01619
  500 KI           = K - N                                              01620
      DO 520 I=1,N                                                      01621
      KI           = N + KI                                             01622
      HOLD         = A(KI)                                              01623
      JI           = KI - K + J                                         01624
      A(KI)        = -A(JI)                                             01625
      A(JI)        = HOLD                                               01626
  520 CONTINUE                                                          01627
                                       GO TO 400                        01628
 9999 RETURN                                                            01629
      END                                                               01630
      SUBROUTINE KMUCAL( VALUE, DELTA, KMU, RIGHT )                     00730
C                                                                       00731
C THIS SUBROUTINE CALCULATES THE CHARACTERISTIC NUMBER, KMU             00732
C                                                                       00733
      EXTERNAL BESL1, BESL2                                             00734
      COMMON /CNSTNT/ DUM1(3), SIGMA, DUM2(5)                           00735
      REAL KMU, LEFT                                                    00736
   30 IPLUS        = 0                                                  00737
      IMINUS       = 0                                                  00738
   35 IF( SIGMA )                      50, 40, 50                       00739
C                                                                       00740
   40 KMU          = BESL2( VALUE )                                     00741
                                       GO TO 60                         00742
   50 KMU          = BESL1( VALUE )                                     00743
C                                                                       00744
   60 IF( KMU )                        80, 65, 70                       00745
   65 RIGHT        = VALUE                                              00746
                                       GO TO 130                        00747
   70 IPLUS        = 1                                                  00748
                                       GO TO 90                         00749
   80 IMINUS       = 1                                                  00750
C                                                                       00751
C DETERMINE IF LEFT AND RIGHT BRACKETS HAVE BEEN FOUND.                 00752
C                                                                       00753
   90 IF( IPLUS .EQ. 1 .AND. IMINUS .EQ. 1 )  GO TO 100                 00754
C                                                                       00755
C BRACKETS NOT FOUND. RECYLE.                                           00756
C                                                                       00757
      VALUSV       = VALUE                                              00758
      VALUE        = DELTA + VALUE                                      00759
                                       GO TO 35                         00760
C                                                                       00761
C BRACKETS FOUND, CALCULATE KMU                                         00762
C                                                                       00763
  100 LEFT         = VALUSV                                             00764
      RIGHT        = VALUE                                              00765
      IF( SIGMA )                      110, 120, 110                    00766
  110 KMU          = FALZIP( BESL1,  LEFT, RIGHT, .001, 0.0, 50, YY )   00767
                                       GO TO 130                        00768
  120 KMU          = FALZIP( BESL2,  LEFT, RIGHT, .001, 0.0, 50, YY )   00769
  130 RETURN                                                            00770
      END                                                               00771
      SUBROUTINE KQCAL                                                  00772
C                                                                       00773
C THIS SUBROUTINE CALCULATES THE CHARACTERISTIC NUMBERS KMU AND QMU     00774
C                                                                       00775
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       00776
      COMMON /KQMU/   KMU(50), QMU(50)                                  00777
      COMMON /BESSL/  ISIGN, JSIGN, DELKMU, TOL, M, PI                  00778
      COMMON /CNSTNT/ DUM1(2), NMODES, SIGMA, DUM2(5)                   00779
      REAL KMU, KMUPRM                                                  00780
C                                                                       00781
      DO 100 I=1,NMODES                                                 00782
C                                                                       00783
C CALCULATE ORDER FOR BESSEL FUNCTION EVALUATION                        00784
C                                                                       00785
      M            = IABS( MODE(I) )                                    00786
      IF( M .NE. 0 )                   GO TO 10                         00787
       ISIGN       = 1                                                  00788
      JSIGN        = -1                                                 00789
      BRAKTL       = .1                                                 00790
                                       GO TO 20                         00791
   10 ISIGN        = MODE(I) / M                                        00792
      JSIGN        = ISIGN                                              00793
      BRAKTL       = M                                                  00794
      IF( ISIGN .GE. 0 )               GO TO 20                         00795
C                                                                       00796
C NEGATIVE ORDER. IF EVEN, SIGN OF BESSEL FUNCTION WILL BE +1. IF ODD,  00797
C  SIGN OF BESSEL FUNCTION WILL BE -1.                                  00798
C                                                                       00799
      IF( ( M / 2 ) * 2 .EQ. M )       ISIGN = 1                        00800
C                                                                       00801
   20 NUMMUS       = MU(I) + 1                                          00802
C                                                                       00803
C CALCULATE CHARACTERISTIC NUMBER KMU CORRESPONDING TO MODE(I) AND MU(I)00804
C  THE VALUE OF KMU WILL BE THE MU(I)+1 ROOT OF THE EQUATION DEFINING   00805
C  THE SYSTEM OF SIMULTANEOUS EQUATIONS                                 00806
C                                                                       00807
      KMUPRM       = 0.0                                                00808
      DO 40 J=1,NUMMUS                                                  00809
      IF( M .EQ. 0 .AND. J .EQ. 1 )    GO TO 40                         00810
      CALL KMUCAL( BRAKTL, DELKMU, KMUPRM, BRAKTR )                     00811
      BRAKTL       = BRAKTR                                             00812
   40 CONTINUE                                                          00813
      KMU(I)       = KMUPRM                                             00814
C                                                                       00815
C CALCULATE CHARACTERISTIC NUMBER QMU CORRESPONDING TO MODE(I) AND MU(I)00816
C  IF THE HUB/TIP RATIO IS ZERO, SET QMU TO ZERO AND CONTINUE           00817
C                                                                       00818
      IF( SIGMA )                      60, 60, 80                       00819
   60 QMU(I)       = 0.0                                                00820
                                       GO TO 100                        00821
   80 IF( KMU(I) )                     90, 60, 90                       00822
   90 CALL BESJ( KMUPRM, M-JSIGN, EMM1, TOL, IER )                      00823
      EMM1         = ISIGN * JSIGN * EMM1                               00824
      CALL BESJ( KMUPRM, M, EMJ, TOL, IER2 )                            00825
      CALL BESY( KMUPRM, M, EMY, IER3 )                                 00826
      EMJ          = ISIGN * EMJ                                        00827
      EMY          = ISIGN * EMY                                        00828
      CALL BESY( KMUPRM, M-JSIGN, EYM1, IER4 )                          00829
      EYM1         = ISIGN * JSIGN * EYM1                               00830
      A            = EMM1 - ( M * JSIGN * EMJ ) / KMUPRM                00831
      B            = EYM1 - ( M * JSIGN * EMY ) / KMUPRM                00832
      SIGMAK       = SIGMA * KMUPRM                                     00833
      CALL BESJ( SIGMAK, M-JSIGN, EMM1, TOL, IER5 )                     00834
      CALL BESJ( SIGMAK, M, EMJ, TOL, IER6 )                            00835
      CALL BESY( SIGMAK, M, EMY, IER7 )                                 00836
      CALL BESY( SIGMAK, M-JSIGN, EYM1, IER8 )                          00837
      EMM1         = ISIGN * JSIGN * EMM1                               00838
      EYM1         = ISIGN * JSIGN * EYM1                               00839
      EMJ          = ISIGN * EMJ                                        00840
      EMY          = ISIGN * EMY                                        00841
      C            = EMM1 - ( M * JSIGN * EMJ ) / SIGMAK                00842
      D            = EYM1 - ( M * JSIGN * EMY ) / SIGMAK                00843
      QMU(I)       = - ( A + C * SIGMA ) / ( B + D * SIGMA )            00844
  100 CONTINUE                                                          00845
 9999 RETURN                                                            00846
      END                                                               00847
      SUBROUTINE PRINT                                                  00848
C                                                                       00849
C THIS SUBROUTINE PRINTS INPUT AND CALCULATED VALUES                    00850
C                                                                       00851
      COMMON /CNSTNT/ NMEAS, NPRED, NMODES, SIGMA, B, MX, FREQ, A,      00852
     1                OMEGA                                             00853
      COMMON /REFS/   XREF, RREF, THREF                                 00854
      COMMON /MEASUR/ XM(50), RM(50), THETAM(50), BETA(50), PSI(50)     00855
      COMMON /PREDCT/ XP(50), RP(50), THETAP(50)                        00856
      COMMON /MODES/  MODE(50), MU(50), IWAVE(50)                       00857
      COMMON /EMUS/   EMU(50,50), EMUP(50,50), EMUPRM(50,50), IEMPRT    00858
      COMMON /ANGLES/ DEGRAD, RADDEG                                    00859
      COMMON /OUTPUT/ AMPR(50), PHASER(50)                              00860
      COMMON /REFCON/ REFPRS                                            00861
      COMMON /WAVENO/ KX(50)                                            00862
      COMMON /KQMU/   KMU(50), QMU(50)                                  00863
      COMMON /APHIMU/ AMU(50), PHIMU(50), ICHECK                        00864
      COMMON /DVIATE/ SIGMAX, SIGMAR, SIGMAT, SIGMAB, SIGMAP, SIGAM(50),00865
     1                SIGTM(50), SIGAMC(50), IDEV                       00866
      COMMON /DERSUM/ ARNSUM(50), PRNSUM(50), AXNSUM(50), PXNSUM(50),   00867
     1                ATNSUM(50), PTNSUM(50), ABNSUM(50), PBNSUM(50),   00868
     2                APNSUM(50), PPNSUM(50)                            00869
      COMMON /DERIVS/ DAMDRN(50,50), DAMRNS(50,50), DPHDRN(50,50),      00870
     1                DPHRNS(50,50), DAMDXN(50,50), DAMXNS(50,50),      00871
     2                DPHDXN(50,50), DPHXNS(50,50), DAMDTN(50,50),      00872
     3                DAMTNS(50,50), DPHDTN(50,50), DPHTNS(50,50),      00873
     4                DAMDBN(50,50), DAMBNS(50,50), DPHDBN(50,50),      00874
     5                DPHBNS(50,50), DAMDPN(50,50), DAMPNS(50,50),      00875
     6                DPHDPN(50,50), DPHPNS(50,50)                      00876
      COMMON /MCOMP/  XACOMP(50), RACOMP(50), TACOMP(50), BACOMP(50),   00877
     1                PACOMP(50), XPCOMP(50), RPCOMP(50), TPCOMP(50),   00878
     2                BPCOMP(50), PPCOMP(50)                            00879
      DIMENSION AMUDB(50), DEVDB(50)                                    00880
      COMPLEX KX                                                        00881
      REAL KMU, MX                                                      00882
C                                                                       00883
C CONVERT INTERNAL UNITS TO OUTPUT UNITS                                00884
C                                                                       00885
      THREF        = RADDEG * THREF                                     00886
C                                                                       00887
      DO 20 I=1,NMEAS                                                   00888
      THETAM(I)    = RADDEG * THETAM(I)                                 00889
      PSI(I)       = RADDEG * PSI(I)                                    00890
   20 CONTINUE                                                          00891
C                                                                       00892
      DO 25 I=1,NPRED                                                   00893
      THETAP(I)    = RADDEG * THETAP(I)                                 00894
      PHASER(I)    = RADDEG * PHASER(I)                                 00895
      AMPR(I)      = 20. * ALOG10( AMPR(I) / REFPRS )                   00896
   25 CONTINUE                                                          00897
C                                                                       00898
      DO 30 I=1,NMODES                                                  00899
      KX(I)        = RADDEG * KX(I)                                     00900
   30 CONTINUE                                                          00901
C                                                                       00902
      DO 35 I=1,NMODES                                                  00903
      PHIMU(I)     = RADDEG * PHIMU(I)                                  00904
      AMUDB(I)     = 20. * ALOG10( AMU(I) / REFPRS )                    00905
   35 CONTINUE                                                          00906
C                                                                       00907
      IF( IDEV .LE. 0 )                GO TO 50                         00908
      DO 40 I=1,NMODES                                                  00909
      DEVDB(I)     = 20. * ALOG10( 1. + SIGAM(I) / AMU(I) )             00910
   40 CONTINUE                                                          00911
C                                                                       00912
      DO 45 I=1,NMODES                                                  00913
      DIVSOR       = 1. / AMU(I)                                        00914
      XACOMP(I)    = DIVSOR * SQRT( XACOMP(I) )                         00915
      RACOMP(I)    = DIVSOR * SQRT( RACOMP(I) )                         00916
      TACOMP(I)    = DIVSOR * SQRT( TACOMP(I) )                         00917
      BACOMP(I)    = DIVSOR * SQRT( BACOMP(I) )                         00918
      PACOMP(I)    = DIVSOR * SQRT( PACOMP(I) )                         00919
      XPCOMP(I)    = SQRT( XPCOMP(I) )                                  00920
      RPCOMP(I)    = SQRT( RPCOMP(I) )                                  00921
      TPCOMP(I)    = SQRT( TPCOMP(I) )                                  00922
      BPCOMP(I)    = SQRT( BPCOMP(I) )                                  00923
      PPCOMP(I)    = SQRT( PPCOMP(I) )                                  00924
   45 CONTINUE                                                          00925
C                                                                       00926
   50 DO 55 I=1,NMODES                                                  00927
      DIVSOR       = 1.0 / AMU(I)                                       00928
      ARNSUM(I)    = DIVSOR * SQRT( ARNSUM(I) )                         00929
      AXNSUM(I)    = DIVSOR * SQRT( AXNSUM(I) )                         00930
      ATNSUM(I)    = DIVSOR * SQRT( ATNSUM(I) )                         00931
      ABNSUM(I)    = DIVSOR * SQRT( ABNSUM(I) )                         00932
      APNSUM(I)    = DIVSOR * SQRT( APNSUM(I) )                         00933
      PRNSUM(I)    = SQRT( PRNSUM(I) )                                  00934
      PXNSUM(I)    = SQRT( PXNSUM(I) )                                  00935
      PTNSUM(I)    = SQRT( PTNSUM(I) )                                  00936
      PBNSUM(I)    = SQRT( PBNSUM(I) )                                  00937
      PPNSUM(I)    = SQRT( PPNSUM(I) )                                  00938
   55 CONTINUE                                                          00939
C                                                                       00940
C CONVERT ANY NEGATIVE ANGLES TO POSITIVE ANGLES FOR PRINTING           00941
C                                                                       00942
      CALL ANGPOS( PHIMU, NMODES )                                      00943
      CALL ANGPOS( PHASER, NPRED )                                      00944
C                                                                       00945
C PRINT INPUT VARIABLES                                                 00946
C                                                                       00947
      WRITE(6,9000)                                                     00948
 9000 FORMAT( 1H1, T45, '***  MODAL CALCULATION COMPUTER PROGRAM  ***' )00949
      WRITE(6,9001) NMEAS, NPRED, NMODES                                00950
 9001 FORMAT( //, T56, '... INPUT VARIABLES ...', //, T5, 'NUMBER OF MEA00951
     1SUREMENT LOCATIONS = ', I2, T51, 'NUMBER OF PREDICTION LOCATIONS =00952
     2 ', I2, T96, 'NUMBER OF (MODE,MU) SETS = ', I2 )                  00953
      WRITE(6,9002)                                                     00954
 9002 FORMAT( //, 1X, '... INPUT MODES ...', //, T5, 'MODE', T14,       00955
     1'CIRCUMFERENTIAL', T34, 'RADIAL', T47, 'WAVE', /, T16, 'MODE NUMBE00956
     2R', T34, 'ORDER', T45, 'INDICATOR' )                              00957
      DO 60 I=1,NMODES                                                  00958
      WRITE(6,9003) I, MODE(I), MU(I), IWAVE(I)                         00959
 9003 FORMAT( 5X, I2, 11X, I4, 13X, I2, 11X, I2 )                       00960
   60 CONTINUE                                                          00961
C                                                                       00962
C PRINT REFERENCE VALUES                                                00963
C                                                                       00964
      WRITE(6,9004) REFPRS                                              00965
 9004 FORMAT( ///, 1X, '... REFERENCE VALUES ...', //, T5, 'REFERENCE PR00966
     1ESSURE = ', E9.4 )                                                00967
C                                                                       00968
C PRINT TEST GEOMETRY AND CONDITIONS                                    00969
C                                                                       00970
      WRITE(6,9005) SIGMA, B, MX, FREQ, A, OMEGA                        00971
 9005 FORMAT( ///, 1X, '... TEST GEOMETRY AND CONDITIONS ...', //, T5,  00972
     1'HUB / TIP RATIO = ', F8.3, T42, 'OUTER RADIUS OF DUCT = ', F8.2, 00973
     2T84, 'AXIAL MACH NUMBER = ', F8.2, /, T5, 'FREQUENCY = ', F8.2,   00974
     3T42, 'SPEED OF SOUND = ', F8.2, T84, 'RADIAN FREQUENCY = ',       00975
     4F10.2 )                                                           00976
C                                                                       00977
C PRINT CALCULATED MODAL AMPLITUDES AND PHASES                          00978
C                                                                       00979
      WRITE(6,9000)                                                     00980
      WRITE(6,9006)                                                     00981
 9006 FORMAT( //, T45, '... MODAL AMPLITUDE AND PHASE CALCULATION ...', 00982
     1//, 1X, '... CALCULATED MODAL AMPLITUDES AND PHASES ...', //, T5, 00983
     2'MODE', T12, 'CIRCUMFERENTIAL', T30, 'RADIAL', T41, 'WAVE', T47,  00984
     32(6X,'AMPLITUDE'), T84, 'PHASE', T98, 'AXIAL WAVE NUMBER',        00985
     4T125, 'KMU', /, T14, 'MODE NUMBER', T30, 'ORDER', T39, 'INDICATOR'00986
     5, T53, '(PRESSURE)', T71, '(DB)', T82, '(DEGREES)', T98, 'REAL',  00987
     6T109, 'IMAGINARY', / )                                            00988
      DO 80 I=1,NMODES                                                  00989
      WRITE(6,9007) I, MODE(I), MU(I), IWAVE(I), AMU(I), AMUDB(I),      00990
     1              PHIMU(I), KX(I), KMU(I)                             00991
 9007 FORMAT( 5X, I2, 9X, I4, 11X, I2, 8X, I2, 8X, E12.6, 3X, E12.6,    00992
     14(3X,F10.4) )                                                     00993
   80 CONTINUE                                                          00994
C                                                                       00995
C PRINT REFERENCE LOCATION VALUES                                       00996
C                                                                       00997
      WRITE(6,9008) XREF, RREF, THREF                                   00998
 9008 FORMAT( ///, 1X, '... REFERENCE LOCATION ...', //, T10, 'X', T27, 00999
     1'R', T42, 'THETA', //, 4X, E12.6, 2(5X,E12.6) )                   01000
C                                                                       01001
C PRINT MEASUREMENT LOCATION VALUES                                     01002
C                                                                       01003
      IF( ICHECK .GT. 0 )              GO TO 110                        01004
      WRITE(6,9009)                                                     01005
 9009 FORMAT( ///, 1X, '... MEASUREMENT LOCATIONS ...', //, T5, 'LOCATIO01006
     1N', T23, 'X', T40, 'R', T55, 'THETA', T70, 'AMPLITUDE', T89,      01007
     2'PHASE', /, T6, 'NUMBER', T73, '(B)', T89, '(PSI)', / )           01008
      DO 100 I=1,NMEAS                                                  01009
      WRITE(6,9010) I, XM(I), RM(I), THETAM(I), BETA(I), PSI(I)         01010
 9010 FORMAT( 7X, I2, 3X, 3(5X,F12.6), 5X, E12.6, 5X, F12.6 )           01011
  100 CONTINUE                                                          01012
C                                                                       01013
C PRINT PREDICTION LOCATION VALUES                                      01014
C                                                                       01015
  110 WRITE(6,9011)                                                     01016
 9011 FORMAT( ///, 1X, '... PREDICTION LOCATIONS ...', //, T5, 'LOCATION01017
     1', T23, 'X', T40, 'R', T55, 'THETA', T70, 'AMPLITUDE', T89,       01018
     2'PHASE', /, T6, 'NUMBER', T69, '(RESULTANT)', T86, '(RESULTANT)', 01019
     3/ )                                                               01020
      DO 120 I=1,NPRED                                                  01021
      WRITE(6,9010) I, XP(I), RP(I), THETAP(I), AMPR(I), PHASER(I)      01022
  120 CONTINUE                                                          01023
C                                                                       01024
C PRINT SENSITIVITY CALCULATION VALUES IF NOT A CHECK CASE              01025
C                                                                       01026
      IF( ICHECK .GT. 0 )              GO TO 250                        01027
      WRITE(6,9000)                                                     01028
      WRITE(6,9012)                                                     01029
 9012 FORMAT( //, T45, '... SENSITIVITY COEFFICIENT CALCULATION ...' )  01030
      IF( IDEV .LE. 0 )                GO TO 180                        01031
C                                                                       01032
C PRINT ERROR SOURCE STANDARD DEVIATION VALUES                          01033
C                                                                       01034
      WRITE(6,9013) SIGMAX, SIGMAR, SIGMAT, SIGMAB, SIGMAP              01035
 9013 FORMAT( ///, 1X, '... ERROR SOURCE STANDARD DEVIATIONS ...', //,  01036
     1T7, 'SIGMA X', T24, 'SIGMA R', T39, 'SIGMA THETA', T58, 'SIGMA B',01037
     2T74, 'SIGMA PSI', /, 4X, E12.6, 4(5X,E12.6) )                     01038
C                                                                       01039
C PRINT MODAL STANDARD DEVIATIONS                                       01040
C                                                                       01041
      WRITE(6,9014)                                                     01042
 9014 FORMAT( ///, 1X, '... NORMALIZED STANDARD DEVIATIONS DUE TO ALL ER01043
     1ROR SOURCES ...', //, T5,                                         01044
     1'MODE', T12, 'CIRCUMFERENTIAL', T30, 'RADIAL', T41, 'WAVE', T52,  01045
     2'NORMALIZED AMPLITUDE', T80, 'AMPLITUDE', T105,                   01046
     3'PHASE', /, T14, 'MODE NUMBER', T30, 'ORDER', T39,                01047
     4'INDICATOR', T57, 'DEVIATION', T80, 'DEVIATION', T103, 'DEVIATION'01048
     5, /, T83, '(DB)', T103, '(DEGREES)', / )                          01049
      DO 140 I=1,NMODES                                                 01050
      WRITE(6,9015) I, MODE(I), MU(I), IWAVE(I), SIGAMC(I), DEVDB(I),   01051
     1              SIGTM(I)                                            01052
 9015 FORMAT( 5X, I2, 9X, I4, 11X, I2, 8X, I2, 1X, 3(11X,E12.6) )       01053
  140 CONTINUE                                                          01054
C                                                                       01055
C PRINT MODAL STANDARD DEVIATION COMPONENTS                             01056
C                                                                       01057
      WRITE(6,9016)                                                     01058
 9016 FORMAT( ///, 1X, '... NORMALIZED STANDARD DEVIATION COMPONENTS (ER01059
     1ROR SOURCE DEVIATION TIMES RMS SUM OF NORMALIZED INFLUENCE COEFFIC01060
     2IENTS) ...' )                                                     01061
      WRITE(6,9017)                                                     01062
 9017 FORMAT( //, T5, 'MODE', T26, 'AMPLITUDE DUE TO ERROR IN', T92,    01063
     1'PHASE DUE TO ERROR IN',  /, T15, 'X', T27, 'R', T37, 'THETA',    01064
     2T51, 'B', T62, 'PSI', T79, 'X', T91, 'R', T101, 'THETA', T115,    01065
     3'B', T126, 'PSI', / )                                             01066
      DO 160 I=1,NMODES                                                 01067
      WRITE(6,9018) I, XACOMP(I), RACOMP(I), TACOMP(I), BACOMP(I),      01068
     1              PACOMP(I), XPCOMP(I), RPCOMP(I), TPCOMP(I),         01069
     2              BPCOMP(I), PPCOMP(I)                                01070
 9018 FORMAT( 5X, I2, 5(1X,E11.4), 4X, 5(1X,E11.4) )                    01071
  160 CONTINUE                                                          01072
C                                                                       01073
C PRINT INFLUENCE COEFFICIENTS                                          01074
C                                                                       01075
  180 WRITE(6,9019)                                                     01076
 9019 FORMAT( ///, 1X, '... RMS SUM OF NORMALIZED INFLUENCE COEFFICIENTS01077
     1 ...' )                                                           01078
      WRITE(6,9017)                                                     01079
      DO 200 I=1,NMODES                                                 01080
      WRITE(6,9018) I, AXNSUM(I), ARNSUM(I), ATNSUM(I), ABNSUM(I),      01081
     1              APNSUM(I), PXNSUM(I), PRNSUM(I), PTNSUM(I),         01082
     2              PBNSUM(I), PPNSUM(I)                                01083
  200 CONTINUE                                                          01084
C                                                                       01085
C PRINT PARTIAL DERIVATIVES                                             01086
C                                                                       01087
      WRITE(6,9020)                                                     01088
 9020 FORMAT( ///, 1X, '... INFLUENCE COEFFICIENTS (PARTIAL DERIVATIVES 01089
     1) ...' )                                                          01090
      DO 240 I=1,NMEAS                                                  01091
      WRITE(6,9021) I                                                   01092
 9021 FORMAT( //, T45, 'INFLUENCE COEFFICIENTS FOR MEASUREMENT LOCATION 01093
     1 ', I2 )                                                          01094
      WRITE(6,9017)                                                     01095
      DO 220 J=1,NMODES                                                 01096
      WRITE(6,9018) J, DAMDXN(I,J), DAMDRN(I,J), DAMDTN(I,J),           01097
     1              DAMDBN(I,J), DAMDPN(I,J), DPHDXN(I,J),              01098
     2              DPHDRN(I,J), DPHDTN(I,J), DPHDBN(I,J),              01099
     3              DPHDPN(I,J)                                         01100
  220 CONTINUE                                                          01101
  240 CONTINUE                                                          01102
C                                                                       01103
C PRINT CHARACTERISTIC E-FUNCTION VALUES IF REQUESTED                   01104
C                                                                       01105
  250 IF( IEMPRT .LE. 0 )              GO TO 9999                       01106
      WRITE(6,9000)                                                     01107
      WRITE(6,9022)                                                     01108
 9022 FORMAT( //, T23, '... CHARACTERISTIC E-FUNCTION VALUES FOR MODAL A01109
     1MPLITUDE AND PHASE CALCULATIONS ...' )                            01110
      WRITE(6,9023) ( I,I=1,NMODES )                                    01111
 9023 FORMAT( ///, 1X, '... MEASUREMENT LOCATIONS ...', //, 1X, 'LOCATIO01112
     1N', T68, 'MODES', //, 8X, 15(6X,I2), / )                          01113
      DO 260 J=1,NMEAS                                                  01114
      WRITE(6,9024) J, ( EMU(I,J),I=1,NMODES )                          01115
 9024 FORMAT( 4X, I2, 5X, 15(1X,F7.3) )                                 01116
  260 CONTINUE                                                          01117
      WRITE(6,9025) ( I,I=1,NMODES )                                    01118
 9025 FORMAT( ///, 1X, '... PREDICTION LOCATIONS ...', //, 1X, 'LOCATION01119
     1', T68, 'MODES', //, 8X, 15(6X,I2), / )                           01120
      DO 280 J=1,NPRED                                                  01121
      WRITE(6,9024) J, ( EMUP(I,J),I=1,NMODES )                         01122
  280 CONTINUE                                                          01123
 9999 RETURN                                                            01124
      END                                                               01125
      SUBROUTINE SENSTY( Q, NDIM )                                      01260
C                                                                       01261
C THIS SUBROUTINE CALCULATES THE SENSITIVITY COEFFICIENTS ASSOCIATED    01262
C  WITH THE EQUATION SYSTEM                                             01263
C                                                                       01264
      DIMENSION EMUAVG(50,50), IROW(50), ICOL(50)                       01265
      COMPLEX KX, EQ1, TERM, ZERO, SUM, Q(NDIM,NDIM), DET               01266
      REAL KMU                                                          01267
      COMMON /DERIVS/ DAMDRN(50,50), DAMRNS(50,50), DPHDRN(50,50),      01268
     1                DPHRNS(50,50), DAMDXN(50,50), DAMXNS(50,50),      01269
     2                DPHDXN(50,50), DPHXNS(50,50), DAMDTN(50,50),      01270
     3                DAMTNS(50,50), DPHDTN(50,50), DPHTNS(50,50),      01271
     4                DAMDBN(50,50), DAMBNS(50,50), DPHDBN(50,50),      01272
     5                DPHBNS(50,50), DAMDPN(50,50), DAMPNS(50,50),      01273
     6                DPHDPN(50,50), DPHPNS(50,50)                      01274
      COMMON /DERSUM/ ARNSUM(50), PRNSUM(50), AXNSUM(50), PXNSUM(50),   01275
     1                ATNSUM(50), PTNSUM(50), ABNSUM(50), PBNSUM(50),   01276
     2                APNSUM(50), PPNSUM(50)                            01277
      COMMON /MCOMP/  XACOMP(50), RACOMP(50), TACOMP(50), BACOMP(50),   01278
     1                PACOMP(50), XPCOMP(50), RPCOMP(50), TPCOMP(50),   01279
     2                BPCOMP(50), PPCOMP(50)                            01280
      COMMON /DVIATE/ SIGMAX, SIGMAR, SIGMAT, SIGMAB, SIGMAP, SIGAM(50),01281
     1                SIGTM(50), SIGAMC(50), IDEV                       01282
      COMMON /CNSTNT/ NMEAS, NPRED, NMODES, SIGMA, B, DUM1(4)           01283
      COMMON /MEASUR/ DUM2(150), BETA(50), PSI(50)                      01284
      COMMON /APHIMU/ AMU(50), PHIMU(50)                                01285
      COMMON /EMUS/   EMU(50,50), EMUP(50,50), EMUPRM(50,50), IEMPRT    01286
      COMMON /REFCON/ REFPRS                                            01287
      COMMON /ANGLES/ DEGRAD, RADDEG                                    01288
      COMMON /KQMU/   KMU(50), QMU(50)                                  01289
      COMMON /WAVENO/ KX(50)                                            01290
      COMMON /LMATRX/ EQ1(50,51)                                        01291
      COMMON /MODES/  MODE(50), MU(50)                                  01292
      DATA ZERO / (0.0,0.0) /                                           01293
C                                                                       01294
C CALCULATE INVERSE OF MEASUREMENT LOCATION MATRIX                      01295
C                                                                       01296
      DO 10 J=1,NDIM                                                    01297
      DO 10 I=1,NDIM                                                    01298
      Q(I,J)       = EQ1(I,J)                                           01299
   10 CONTINUE                                                          01300
      CALL INVERT( Q, NDIM, DET, IROW, ICOL )                           01301
C                                                                       01302
C CALCULATE AVERAGE CHARACTERISTIC E-FUNCTION VALUES                    01303
C                                                                       01304
      DO 40 J=1,NMODES                                                  01305
      DO 20 I=1,NMEAS                                                   01306
      EMUAVG(I,J)  = KMU(J) * EMUPRM(J,I) / ( EMU(J,I) * B )            01307
   20 CONTINUE                                                          01308
   40 CONTINUE                                                          01309
C                                                                       01310
C CALCULATE DERIVATIVES WITH RESPECT TO R                               01311
C                                                                       01312
      DO 100 K=1,NMEAS                                                  01313
      SUM          = ZERO                                               01314
      DO 60 J=1,NMODES                                                  01315
      SUM          = EMUAVG(K,J) * EQ1(K,J) * AMU(J) *                  01316
     1               CEXP( CMPLX( 0., PHIMU(J) ) ) + SUM                01317
   60 CONTINUE                                                          01318
      DO 80 L=1,NMODES                                                  01319
      TERM         = Q(L,K) * SUM * CEXP( CMPLX( 0., -PHIMU(L) ) )      01320
      DAMDRN(K,L)  = - REAL( TERM )                                     01321
      DAMRNS(K,L)  = DAMDRN(K,L) ** 2                                   01322
      DPHDRN(K,L)  = - AIMAG( TERM / AMU(L) ) * RADDEG                  01323
      DPHRNS(K,L)  = DPHDRN(K,L) ** 2                                   01324
   80 CONTINUE                                                          01325
  100 CONTINUE                                                          01326
C                                                                       01327
C CALCULATE DERIVATIVES WITH RESPECT TO X                               01328
C                                                                       01329
      DO 160 K=1,NMEAS                                                  01330
      SUM          = ZERO                                               01331
      DO 120 J=1,NMODES                                                 01332
      SUM          = EQ1(K,J) * KX(J) * AMU(J) * CEXP( CMPLX( 0.,       01333
     1               PHIMU(J) ) ) + SUM                                 01334
  120 CONTINUE                                                          01335
      DO 140 L=1,NMODES                                                 01336
      TERM         = Q(L,K) * SUM * CEXP( CMPLX( 0., -PHIMU(L) ) )      01337
      DAMDXN(K,L)  = AIMAG( TERM )                                      01338
      DAMXNS(K,L)  = DAMDXN(K,L) ** 2                                   01339
      DPHDXN(K,L)  = - REAL( TERM / AMU(L) ) * RADDEG                   01340
      DPHXNS(K,L)  = DPHDXN(K,L) ** 2                                   01341
  140 CONTINUE                                                          01342
  160 CONTINUE                                                          01343
C                                                                       01344
C CALCULATE DERIVATIVES WITH RESPECT TO THETA                           01345
C                                                                       01346
      DO 220 K=1,NMEAS                                                  01347
      SUM          = ZERO                                               01348
      DO 180 J=1,NMODES                                                 01349
      SUM          = EQ1(K,J) * MODE(J) * AMU(J) *                      01350
     1               CEXP( CMPLX( 0., PHIMU(J) ) ) + SUM                01351
  180 CONTINUE                                                          01352
      DO 200 L=1,NMODES                                                 01353
      TERM         = Q(L,K) * SUM * CEXP( CMPLX( 0., -PHIMU(L) ) )      01354
      DAMDTN(K,L)  = AIMAG( TERM ) / RADDEG                             01355
      DAMTNS(K,L)  = DAMDTN(K,L) ** 2                                   01356
      DPHDTN(K,L)  = -REAL( TERM / AMU(L) )                             01357
      DPHTNS(K,L)  = DPHDTN(K,L) ** 2                                   01358
  200 CONTINUE                                                          01359
  220 CONTINUE                                                          01360
C                                                                       01361
C CALCULATE DERIVATIVES WITH RESPECT TO BN                              01362
C                                                                       01363
      DO 260 L=1,NMODES                                                 01364
      DO 240 K=1,NMEAS                                                  01365
      TERM         = Q(L,K) * CEXP( CMPLX( 0., PSI(K) - PHIMU(L) ) )    01366
      DAMDBN(K,L)  = REAL( TERM )                                       01367
      DAMBNS(K,L)  = DAMDBN(K,L) ** 2                                   01368
      DPHDBN(K,L)  = AIMAG( TERM / AMU(L) ) * RADDEG                    01369
      DPHBNS(K,L)  = DPHDBN(K,L) ** 2                                   01370
  240 CONTINUE                                                          01371
  260 CONTINUE                                                          01372
C                                                                       01373
C CALCULATE DERIVATIVES WITH RESPECT TO PSI                             01374
C                                                                       01375
      DO 300 L=1,NMODES                                                 01376
      DO 280 K=1,NMEAS                                                  01377
      TERM         = Q(L,K) * BETA(K) * CEXP( CMPLX( 0., PSI(K) -       01378
     1               PHIMU(L) ) )                                       01379
      DAMDPN(K,L)  = - AIMAG( TERM ) / RADDEG                           01380
      DAMPNS(K,L)  = DAMDPN(K,L) ** 2                                   01381
      DPHDPN(K,L)  = REAL( TERM / AMU(L) )                              01382
      DPHPNS(K,L)  = DPHDPN(K,L) ** 2                                   01383
  280 CONTINUE                                                          01384
  300 CONTINUE                                                          01385
C                                                                       01386
C CALCULATE SUMS OF DERIVATIVES                                         01387
C                                                                       01388
      DO 340 J=1,NMODES                                                 01389
      SUMM         = 0.0                                                01390
      DO 320 I=1,NMEAS                                                  01391
      SUMM         = DAMRNS(I,J) + SUMM                                 01392
  320 CONTINUE                                                          01393
      ARNSUM(J)    = SUMM                                               01394
  340 CONTINUE                                                          01395
C                                                                       01396
      DO 380 J=1,NMODES                                                 01397
      SUMM         = 0.0                                                01398
      DO 360 I=1,NMEAS                                                  01399
      SUMM         = DPHRNS(I,J) + SUMM                                 01400
  360 CONTINUE                                                          01401
      PRNSUM(J)    = SUMM                                               01402
  380 CONTINUE                                                          01403
C                                                                       01404
      DO 420 J=1,NMODES                                                 01405
      SUMM         = 0.0                                                01406
      DO 400 I=1,NMEAS                                                  01407
      SUMM         = DAMXNS(I,J) + SUMM                                 01408
  400 CONTINUE                                                          01409
      AXNSUM(J)    = SUMM                                               01410
  420 CONTINUE                                                          01411
C                                                                       01412
      DO 460 J=1,NMODES                                                 01413
      SUMM         = 0.0                                                01414
      DO 440 I=1,NMEAS                                                  01415
      SUMM         = DPHXNS(I,J) + SUMM                                 01416
  440 CONTINUE                                                          01417
      PXNSUM(J)    = SUMM                                               01418
  460 CONTINUE                                                          01419
C                                                                       01420
      DO 500 J=1,NMODES                                                 01421
      SUMM         = 0.0                                                01422
      DO 480 I=1,NMEAS                                                  01423
      SUMM         = DAMTNS(I,J) + SUMM                                 01424
  480 CONTINUE                                                          01425
      ATNSUM(J)    = SUMM                                               01426
  500 CONTINUE                                                          01427
C                                                                       01428
      DO 540 J=1,NMODES                                                 01429
      SUMM         = 0.0                                                01430
      DO 520 I=1,NMEAS                                                  01431
      SUMM         = DPHTNS(I,J) + SUMM                                 01432
  520 CONTINUE                                                          01433
      PTNSUM(J)    = SUMM                                               01434
  540 CONTINUE                                                          01435
C                                                                       01436
      DO 580 J=1,NMODES                                                 01437
      SUMM         = 0.0                                                01438
      DO 560 I=1,NMEAS                                                  01439
      SUMM         = DAMBNS(I,J) + SUMM                                 01440
  560 CONTINUE                                                          01441
      ABNSUM(J)    = SUMM                                               01442
  580 CONTINUE                                                          01443
C                                                                       01444
      DO 620 J=1,NMODES                                                 01445
      SUMM         = 0.0                                                01446
      DO 600 I=1,NMEAS                                                  01447
      SUMM         = DPHBNS(I,J) + SUMM                                 01448
  600 CONTINUE                                                          01449
      PBNSUM(J)    = SUMM                                               01450
  620 CONTINUE                                                          01451
C                                                                       01452
      DO 660 J=1,NMODES                                                 01453
      SUMM         = 0.0                                                01454
      DO 640 I=1,NMEAS                                                  01455
      SUMM         = DAMPNS(I,J) + SUMM                                 01456
  640 CONTINUE                                                          01457
      APNSUM(J)    = SUMM                                               01458
  660 CONTINUE                                                          01459
C                                                                       01460
      DO 700 J=1,NMODES                                                 01461
      SUMM         = 0.0                                                01462
      DO 680 I=1,NMEAS                                                  01463
      SUMM         = DPHPNS(I,J) + SUMM                                 01464
  680 CONTINUE                                                          01465
      PPNSUM(J)    = SUMM                                               01466
  700 CONTINUE                                                          01467
C                                                                       01468
C CALCULATE COEFFICIENTS OF DEVIATION FOR EACH MODE IF REQUESTED        01469
C                                                                       01470
      IF( IDEV .EQ. 0 )                GO TO 9999                       01471
      SIGR         = SIGMAR ** 2                                        01472
      SIGX         = SIGMAX ** 2                                        01473
      SIGT         = SIGMAT ** 2                                        01474
      SIGB         = SIGMAB ** 2                                        01475
      SIGP         = SIGMAP ** 2                                        01476
C                                                                       01477
C CALCULATE COMPONENTS OF MODAL STANDARD DEVIATIONS                     01478
C                                                                       01479
      DO 720 I=1,NMODES                                                 01480
      XACOMP(I)    = AXNSUM(I) * SIGX                                   01481
      RACOMP(I)    = ARNSUM(I) * SIGR                                   01482
      TACOMP(I)    = ATNSUM(I) * SIGT                                   01483
      BACOMP(I)    = ABNSUM(I) * SIGB                                   01484
      PACOMP(I)    = APNSUM(I) * SIGP                                   01485
  720 CONTINUE                                                          01486
      DO 740 I=1,NMODES                                                 01487
      XPCOMP(I)    = PXNSUM(I) * SIGX                                   01488
      RPCOMP(I)    = PRNSUM(I) * SIGR                                   01489
      TPCOMP(I)    = PTNSUM(I) * SIGT                                   01490
      BPCOMP(I)    = PBNSUM(I) * SIGB                                   01491
      PPCOMP(I)    = PPNSUM(I) * SIGP                                   01492
  740 CONTINUE                                                          01493
      DO 760 I=1,NMODES                                                 01494
      SIGAM(I)     = SQRT( XACOMP(I) + RACOMP(I) + TACOMP(I) +          01495
     1               BACOMP(I) + PACOMP(I) )                            01496
      SIGTM(I)     = SQRT( XPCOMP(I) + RPCOMP(I) + TPCOMP(I) +          01497
     1               BPCOMP(I) + PPCOMP(I) )                            01498
      SIGAMC(I)    = SIGAM(I) / AMU(I)                                  01499
  760 CONTINUE                                                          01500
C                                                                       01501
 9999 RETURN                                                            01502
      END                                                               01503
      SUBROUTINE SIMEQC( A, C, NA, NB, SNGUL )                          01126
C                                                                       01127
C THIS SUBROUTINE SOLVES A NA X NA SYSTEM OF SIMULTANEOUS EQUATIONS     01128
C  HAVING COMPLEX COEFFICIENTS USING GAUSSIAN ELIMINATION METHOD.       01129
C                                                                       01130
      COMPLEX A(50,1), C(1), SAVE, ZERO                                 01131
      DATA ZERO / (0.0,0.0) /                                           01132
C                                                                       01133
      SNGUL        = 0.0                                                01134
      DO 240 I=1,NA                                                     01135
C                                                                       01136
C FIND MAXIMUM ELEMENT IN JTH COLUMN, ROWS I+1 TO NA                    01137
C                                                                       01138
      JZ           = I + 1                                              01139
      IF( I - NA )                     20, 100, 20                      01140
   20 VALMX        = CABS( A(I,I) )                                     01141
      MZ           = I                                                  01142
      DO 60 KZ=JZ,NA                                                    01143
      B            = CABS( A(KZ,I) )                                    01144
      IF( VALMX - B )                  40, 40, 60                       01145
   40 VALMX        = B                                                  01146
      MZ           = KZ                                                 01147
   60 CONTINUE                                                          01148
C                                                                       01149
C INTERCHANGE ROW CONTAINING MAXIMUM WITH ITH ROW                       01150
C                                                                       01151
      DO 80 IK=1,NB                                                     01152
      SAVE         = A(I,IK)                                            01153
      A(I,IK)      = A(MZ,IK)                                           01154
      A(MZ,IK)     = SAVE                                               01155
   80 CONTINUE                                                          01156
C                                                                       01157
C NORMALIZE ITH ROW                                                     01158
C                                                                       01159
  100 IF( REAL( A(I,I) ) )             160, 120, 160                    01160
  120 IF( AIMAG( A(I,I) ) )            160, 140, 160                    01161
C                                                                       01162
C ERROR - COEFFICIENT MATRIX IS SINGULAR                                01163
C                                                                       01164
  140 SNGUL        = 1.0                                                01165
                                       GO TO 9999                       01166
  160 DO 220 LZ=JZ,NB                                                   01167
      A(I,LZ)      = A(I,LZ) / A(I,I)                                   01168
      IF( JZ - NB )                    180, 260, 260                    01169
  180 DO 200 NZ=JZ,NA                                                   01170
      A(NZ,LZ)     = A(NZ,LZ) - A(NZ,I) * A(I,LZ)                       01171
  200 CONTINUE                                                          01172
  220 CONTINUE                                                          01173
  240 CONTINUE                                                          01174
C                                                                       01175
C SOLVE FOR COEFFICIENTS                                                01176
C                                                                       01177
  260 DO 280 MZ=1,NA                                                    01178
      C(MZ)        = ZERO                                               01179
  280 CONTINUE                                                          01180
      C(NA)        = A(NA,NB)                                           01181
      NC           = NA - 1                                             01182
      II           = 1                                                  01183
      DO 320 IZ=1,NC                                                    01184
      KK           = NA                                                 01185
      LZ           = NA - IZ                                            01186
      C(LZ)        = A(LZ,NB)                                           01187
      DO 300 N=1,II                                                     01188
      C(LZ)        = C(LZ) - C(KK) * A(LZ,KK)                           01189
      KK           = KK - 1                                             01190
  300 CONTINUE                                                          01191
      II           = II + 1                                             01192
  320 CONTINUE                                                          01193
 9999 RETURN                                                            01194
      END                                                               01195
      SUBROUTINE SOLVE                                                  01196
C                                                                       01197
C THIS SUBROUTINE SETS UP AND SOLVES THE EQUATION SYSTEM ASSOCIATED WITH01198
C  MEASUREMENT LOCATION PARAMETERS                                      01199
C                                                                       01200
      COMMON /BESSL/ DUM3(5), PI                                        01201
      COMMON /REFS/   XREF, RREF, THREF                                 01202
      COMMON /MEASUR/ XM(50), RM(50), THETAM(50), BETA(50), PSI(50)     01203
      COMMON /MODES/  MODE(50), DUM1(100)                               01204
      COMMON /EMUS/   EMU(50,50), EMUP(50,50), EMUPRM(50,50), IEMPRT    01205
      COMMON /APHIMU/ AMU(50), PHIMU(50), ICHECK                        01206
      COMMON /CNSTNT/ NMEAS, NPRED, NMODES, SIGMA, B, DUM2(4)           01207
      COMMON /WAVENO/ KX(50)                                            01208
      COMMON /LMATRX/ EQ1(50,51)                                        01209
      COMMON /DVIATE/ DUM4(155), IDEV                                   01210
      COMPLEX KX, EXPNT, EQ1, EQ(50,51), ANSWER(50)                     01211
C                                                                       01212
C SET UP COEFFICIENT MATRIX                                             01213
C                                                                       01214
      DO 40 I=1,NMEAS                                                   01215
      DX           = XM(I) - XREF                                       01216
      DR           = RM(I) - RREF                                       01217
      DTHETA       = THETAM(I) - THREF                                  01218
C                                                                       01219
C CALCULATE CHARACTERISTIC E-FUNCTION VALUES AND DERIVATIVES FOR RPRIME 01220
C                                                                       01221
   10 RPRIME       = DR / B                                             01222
      CALL EMUCAL( RPRIME, EMU(1,I), EMUPRM(1,I), 1 )                   01223
C                                                                       01224
   15 DO 20 J=1,NMODES                                                  01225
      EXPNT        = CMPLX( 0.0, REAL( KX(J) ) * DX + MODE(J) * DTHETA )01226
      EQ(I,J)      = EMU(J,I) * CEXP( EXPNT ) * EXP( -DX *              01227
     1               AIMAG( KX(J) ) )                                   01228
      EQ1(I,J)     = EQ(I,J)                                            01229
   20 CONTINUE                                                          01230
C                                                                       01231
C SET UP RIGHT HAND SIDE                                                01232
C                                                                       01233
      EQ(I,NMODES+1) = BETA(I) * CEXP( CMPLX( 0.0, PSI(I) ) )           01234
      EQ1(I,NMODES+1) = EQ(I,NMODES+1)                                  01235
   40 CONTINUE                                                          01236
C                                                                       01237
C SOLVE EQUATION SYSTEM                                                 01238
C                                                                       01239
      CALL SIMEQC( EQ, ANSWER, NMEAS, NMODES+1, SNGULR )                01240
      IF( SNGULR )                     60, 80, 60                       01241
C                                                                       01242
C ERROR - SINGULAR MATRIX. TERMINATE EXECUTION                          01243
C                                                                       01244
   60 NM1          = NMODES + 1                                         01245
      WRITE(6,1000) ( ( EQ1(I,J),J=1,NM1 ),I=1,NMEAS )                  01246
 1000 FORMAT( //, 5X, 'COEFFICIENT MATRIX IS SINGULAR', ( /, 1X,        01247
     110G13.6 ) )                                                       01248
                                       STOP                             01249
C                                                                       01250
C CALCULATE AMPLITUDE AND PHASE VALUES                                  01251
C                                                                       01252
   80 DO 100 I=1,NMODES                                                 01253
      AMU(I)       = CABS( ANSWER(I) )                                  01254
      PHIMU(I)     = ATAN2( AIMAG( ANSWER(I) ), REAL( ANSWER(I) ) )     01255
  100 CONTINUE                                                          01256
C                                                                       01257
 9999 RETURN                                                            01258
      END                                                               01259
